怎样在用VBA取另一工作薄数据

cqdian

我用此方法出现错误：
surbiao = "'\\192.168.18.225\备料部入库计划系统\原计划\[导入.xls]'A1-1"
sur1 = Worksheets(surbiao).Range("A5").Value
MsgBox (sur1)

请问该怎样修改？是否需要事先建立“链接”之类的。

Yedajun

WORKBOOKS.OPEN(THISWORKBOOK.PATH&"\工作簿名称.XLS",先访问工作簿，再写取数值语句。

[ 本帖最后由 Yedajun 于 2011-6-9 10:54 编辑 ]

cqdian

多谢Yedajun，我按你的方法加了句改成：
surbiao = "\\192.168.18.225\备料部入库计划系统\原计划\导入.xls"
Workbooks.Open (surbiao)
sur1 = surbiao.Worksheets("A1-1").Range("A5").Value
MsgBox (sur1)

执行时能够打开另一工作薄，但取数又出错呢。该怎样取？

Yedajun

VBA取另一工作簿数据,如附件:

cqdian

再次感谢Yedajun的解答。差不多明白了。