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

我想制作一个将多个closures工作簿中的数据导入到这个（ThisWorkbook）工作簿的macros。

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

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

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

那可能吗？

提前谢谢你！

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 

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

Answer 2

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

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

请不要往下投票。 它将完成OP所要的。