临时用到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了。
另外一点是需要把两个文件都打开,这个还没找到怎么处理。
本文详细介绍了使用VBA解决在不同文件间复制数据的问题,特别指出中文工作表名称可能导致的“下标越界”错误,并提供了相应的解决方法。此外,还讨论了如何确保在进行跨文件操作时同时打开两个文件,避免因文件未打开而引发的错误。
1707





