sub nn()
Workbooks.Open Filename:="C:\Documents and Settings\Excel\Example.xls "
workbooks("Example.xls").worksheets(1)
'对工作表1的引用就可以了
end sub
这些语句都不用去记,你通过录制宏就可以完全获得这种语句
当前表A1单元格等于D:\Text.xls工作簿Sheet1工作表的A1单元格:
Range("A1") = "='D:\[Test.xls]Sheet1'!$A$1"
Workbooks.Open "C:\Documents and Settings\Excel\Example.xls"