从多个excel文件中获取数据到另一个文件中的单个工作表中？

Question

我有19个文件，每个文件中有不同的数据集。每个文件都有一个包含2列的工作表，我正在尝试编写一个分配给按钮的VB宏[获取输出数据] - 我的按钮名称在一个工作表中。

这是我为从19个文件中的一个获取数据而编写的代码。

Sub FetchQAData()

Dim filePath As String
Dim SourceWb As Workbook
Dim TargetWb As Workbook

Set TargetWb = ActiveWorkbook

filePath = TargetWb.Sheets("Control").Range("D8").Value
Set SourceWb = Workbooks.Open(filePath)

       SourceWb.Sheets("results").Range("A1:B9").Copy Destination:=TargetWb.Sheets("QA model output").Range("B5:C13")

SourceWb.Close

MsgBox "RESULTS IMPORTED"

End Sub

这些文件都存储在中央服务器上，当我运行宏时出现运行时错误1004，应用程序无法识别文件路径。

有人可以帮忙吗？

Answer 1

您在单元格中的文件路径＆＃34; D8＆＃34;必须是工作簿的完整路径才能包含扩展名：ie＆＃34; C：\ WorkbookName.xlsx＆＃34;没有＆＃34;＆＃34;标记。

Answer 2

这个AddIn怎么样？试试这个，看看它是否符合你的要求。

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