方法很多，说个最简单易懂的比如说，如果你要把c盘file2里的一个数据表读进file1 spreadsheet1
如果没啥特别的要求，直接用
file1.Cells(i, j).Formula = "='C:\[file1.xls]spreadsheet1'!" & Cells(m, n).Address
(i, j)是file1数据的位置，(m, n)是file2相对应的数据位置
不好意思，写错了 ：P
把c盘file2 spreadsheet1里的一个数据表读进file1 spreadsheet1
在file1下写macro：
spreadsheet1.Cells(i, j).Formula = "='C:\[file2.xls]spreadsheet1'!" & Cells(m, n).Address
(i, j)是file1数据的位置，(m, n)是file2相对应的数据位置
很久很久没写，有点忘了，好像上述command需要file2是打开状态。。。所以可以加这么几行：
' open file2
ChDir "C:"
Workbooks.Open Filename:="C:\file2.xls"
'copy data
...
spreadsheet1.Cells(i, j).Formula = "='C:\[file2.xls]spreadsheet1'!" & Cells(m, n).Address
...
'close file2
Workbooks.Close Filename:="C:\file2.xls"
在file1下写macro：
spreadsheet1.Cells(i, j).Formula = "='C:\[file2.xls]spreadsheet1'!" & Cells(m, n).Address
(i, j)是file1数据的位置，(m, n)是file2相对应的数据位置
很久很久没写，有点忘了，好像上述command需要file2是打开状态。。。所以可以加这么几行：
' open file2
ChDir "C:"
Workbooks.Open Filename:="C:\file2.xls"
'copy data
...
spreadsheet1.Cells(i, j).Formula = "='C:\[file2.xls]spreadsheet1'!" & Cells(m, n).Address
...
'close file2
Workbooks.Close Filename:="C:\file2.xls"
Huasing Association 1999 - 2013