临时用到VBA,做一个需求:把不在同一个文件中的数据复制到一个文件中。
新建过程,如下:
Sub 复制行() Dim mybook As Workbook Set mybook = Workbooks("2011明细表.xls") Dim target As Workbook Set target = Workbooks("详单.xls") mybook.Sheets("sheet1").Rows(6).Copy target.Sheets("sheet2").Cells(1, 1) Set mybook = Nothing Set target = Nothing End SubCells(1,1)也可以用Range("A1")来表示,更直观。
一开始,运行时总会报错“下标越界”,最后发现是不支持sheet为中文,改成英文就OK了。
另外一点是需要把两个文件都打开,这个还没找到怎么处理。