Excel-VBA：从文件名以“xxx”开头的多个已关闭工作簿中提取数据

Question

我想制作一个宏，将数据从多个关闭的工作簿中提取到这个 (ThisWorkbook) 工作簿中。

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

所以只有文件名中以“0101”开头的文件。

我想从 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

从下面的链接下载并安装插件。

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

请不要对此投反对票。它将完全按照 OP 的要求进行操作。