VBA 从一个Excel文件复制一行数据到另一个Excel文件

临时用到VBA，做一个需求：把不在同一个文件中的数据复制到一个文件中。

新建过程，如下：

[vb] view plain copy print?

1. Sub 复制行()  
2.     Dim mybook As Workbook  
3.     Set mybook = Workbooks("2011明细表.xls")  
4.       
5.     Dim target As Workbook  
6.     Set target = Workbooks("详单.xls")  
7.       
8.     mybook.Sheets("sheet1").Rows(6).Copy target.Sheets("sheet2").Cells(1, 1)  
9.       
10.     Set mybook = Nothing  
11.     Set target = Nothing  
12. End Sub  

 

Cells(1,1)也可以用Range("A1")来表示，更直观。

一开始，运行时总会报错“下标越界”，最后发现是不支持sheet为中文，改成英文就OK了。

另外一点是需要把两个文件都打开，这个还没找到怎么处理。

请选中你要保存的内容，粘贴到此文本框