我需要帮助将几个已关闭的工作簿中的数据复制到使用VBA的主工作簿中,而无需打开它们 . 今天我使用函数Workbooks.open这样做,虽然我使用4-6个文件来复制数据,并且每个需要打开的文件 - 显着减慢了复制操作 .
我需要帮助使用高效的VBA代码来复制数据而无需打开每个文件 .
这是我的代码示例:
Set x = Workbooks.Open("C:\Bel.xls")
'Now, copoy what you want from x:
x.Sheets("Daily Figures").Range("A13:j102").Copy
'Now, paste to y worksheet
y.Activate
Sheets("Data - Daily").Range("N2").PasteSpecial
'Close x:
Application.CutCopyMode = False
x.Close
Sheets("sheet1").Range("M4") = Date
请提前帮助,
1 回答
试试这个 . 它可以在不打开源文件的情况下使用ADO: