相关疑难解决方法(0)

伙计们这就是我想要做的事情,我在做这件事时遇到了一些麻烦.我有1个工作簿,我想从不同的文件中收集数据.

Do While THAT_DIFFERENT_FILE_SOMEWHERE_ON_MY_HDD.Cells(Rand, 1).Value <> "" And Rand < 65536
        then 'I will search if the last row in my main worksheet is in this file... 
End Loop           

如果它是我将退出While循环,如果它不是我将复制一切.实际上这不会像我想的那样工作,但我找不到合适的算法也不会有问题.

我的问题是我不知道如何访问不同的工作簿.

我需要帮助将几个已关闭的工作簿中的数据复制到使用VBA的主工作簿中,而无需打开它们.今天我使用函数Workbooks.open这样做,虽然我使用4-6个文件来复制数据,并且每个需要打开的文件 - 显着减慢了复制操作.

我需要帮助使用高效的VBA代码来复制数据而无需打开每个文件.

这是我的代码示例:

Set x = Workbooks.Open("C:\Bel.xls")
'Now, copy 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

请提前帮助,