佳礼资讯网

 找回密码
 注册

ADVERTISEMENT

查看: 1372|回复: 4

Excel macro 如何找file??

[复制链接]
发表于 6-4-2010 09:52 AM | 显示全部楼层 |阅读模式
本帖最后由 common2000 于 6-4-2010 09:56 AM 编辑

file:///C:/Documents%20and%20Settings/%7EOwner%7E/Desktop/search.JPGC:%5Csearch.JPG
C:%5Cexcel_partno.JPG

想问如何找file??? 我想按了button后,可找回相同名字的excel file. 但,我的macro, 不知有何不对的地方?
有error....

Dim partno As String


Sub Rectangle1_Click()   


partno = Worksheets("Sheet1").Range("C10").Value     

Workbooks.Open "D:\stock list\&partno&.xls"


End Sub
回复

使用道具 举报


ADVERTISEMENT

发表于 6-4-2010 12:35 PM | 显示全部楼层
联系我,我来做,MSN TANDANSSQ983@HOTMAIL.COM
回复

使用道具 举报

 楼主| 发表于 6-4-2010 01:27 PM | 显示全部楼层
回复 2# tandan999


    谢谢。已email 你了。
回复

使用道具 举报

发表于 8-4-2010 09:03 PM | 显示全部楼层
你是要打开某个文件??

Dim partno As String
Sub Rectangle1_Click()   

partno = Worksheets("Sheet1").Range("C10").Value     
Workbooks.Open "D:\stock list\&partno&.xls <-- workbooks.open "D:\stock list\" & partno & ".xls"

End Sub

我只是根据这边的错误来改。。。
回复

使用道具 举报

 楼主| 发表于 9-4-2010 06:23 PM | 显示全部楼层
回复 4# mapler傻瓜


    谢了,已成功了
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

 

ADVERTISEMENT



ADVERTISEMENT



ADVERTISEMENT

ADVERTISEMENT


版权所有 © 1996-2023 Cari Internet Sdn Bhd (483575-W)|IPSERVERONE 提供云主机|广告刊登|关于我们|私隐权|免控|投诉|联络|脸书|佳礼资讯网

GMT+8, 24-11-2025 06:42 AM , Processed in 0.104141 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表