不好意思,写错了 :P
所在版块:求学狮城 发贴时间:2009-03-31 14:55  评分:

用户信息
复制本帖HTML代码
高亮: 今天贴 X 昨天贴 X 前天贴 X 
把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"
.
欢迎来到华新中文网,踊跃发帖是支持我们的最好方法!

小白,你在哪尼。。。
 相关帖子 我要回复↙ ↗回到正文
Excel Macro expert please come in o_o   (172 bytes , 748reads )
前两天写的面试用的,run macro-> select file->processing nus_card   (1431 bytes , 462reads )
如果你的file1位置固定,可以用以下的code nus_card   (490 bytes , 375reads )
上面的code用前要做些相应的修改:) nus_card   (0 bytes , 301reads )
学这个东西要先研究别人是怎样写的 nus_card   (19 bytes , 275reads )
厉害~~那里去看别人写的呀? 九妹   (0 bytes , 260reads )
我当时是实习,老板就把前辈的程序让我看 nus_card   (111 bytes , 276reads )
方法很多,说个最简单易懂的 7-UP   (229 bytes , 312reads )
不好意思,写错了 :P 7-UP   (543 bytes , 684reads )