Excel-VBA：从多个已关闭的工作簿中提取数据，文件名以＆＃34; xxx＆＃34;开头。

Question

我想创建一个宏，将多个关闭工作簿中的数据提取到此（ThisWorkbook）工作簿中。

所有已关闭的工作簿都在同一个文件夹中 - 但也有一些文件应该从中提取数据。

所以只有以＆＃34; 0101＆＃34;开头的文件在文件名中。

我想从FIRST工作簿的第一张中复制A1：D18中的数据，然后将其传递到活动工作表上的ThisWorkbook单元格A1中。而对于其余的我只想复制C3并将其放入变量中。如果有多个文件，那么它应该将所有C3值组合到同一个变量中。

这可能吗？

提前非常感谢你！

Answer 1

这将打开所有以0101开头的Excel文件：

Sub StringLoopOpen()

Dim folder As String
Dim file As String

folder = "C:\foo\bar"
file = Dir(folder & "\0101*.xlsx")

Do While file <> ""
Workbooks.Open Filename:=folder & "\" & file
file = Dir
Loop

End Sub

如果您需要执行其他任务（例如移动数据，关闭文件等），请在“do while”和“loop”之间执行。

Answer 2

从下面的链接下载并安装AddIn。

https://www.rondebruin.nl/win/addins/rdbmerge.htm

请不要低价投票。它将完全符合OP的要求。