将数据从多个 excel 文件中提取到 excel 2007 的单个 excel 文件中答案

【问题标题】：Pulling data from multiple excel files to a single excel file for excel 2007将数据从多个 excel 文件中提取到 excel 2007 的单个 excel 文件中
【发布时间】：2017-04-11 09:02:06
【问题描述】：

有没有办法将不同excel文件中的数据提取到一个excel文件中？

例如，从 excel 文件 (1) 和 excel 文件 (2) 中提取数据到一个新的 excel 文件(1_2)中

【问题讨论】：

是的 - 您可以编写一些 VBA 代码来执行此操作，或者您可以编写一些 Excel 公式。
我需要用宏来做。所以基本上我需要编写 VBA 代码。我可以知道我该怎么做吗？谢谢

标签： excel excel-2007 vba

【解决方案1】：

如果您的意思是“将数据从文件 1 和 2 拉到文件 3”，您将数据从不同的工作簿复制到新的工作簿，我建议您看看

这个答案https://stackoverflow.com/a/19352099/5902728

为了答案的完整性，链接答案的 sn-p（@David Zemens）：

Sub foo()
Dim x As Workbook
Dim y As Workbook

'## Open both workbooks first:
Set x = Workbooks.Open(" path to copying book ")
Set y = Workbooks.Open(" path to destination book ")

'Now, copy what you want from x:
x.Sheets("name of copying sheet").Range("A1").Copy

'Now, paste to y worksheet:
y.Sheets("sheetname").Range("A1").PasteSpecial

'Close x:
x.Close

End Sub

用于选择工作簿的完整范围：

With x.Sheets("name of copying sheet").UsedRange
    'Now, paste to y worksheet:
    y.Sheets("sheet name").Range("A1").Resize( _
        .Rows.Count, .Columns.Count) = .Value
End With

我不太确定这是否是您的意思，因此请更新您的答案并提供更多详细信息。

还要确保搜索 SO 或 Google。

如果你想知道其他任何事情，请告诉我。

【讨论】：

【解决方案2】：

当然有办法做到这一点。实际上，有很多方法可以做到这一点。请参阅上面发布的 VBA 代码。另外，请考虑使用以下链接中的此插件。

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

使用该插件，您可以轻松地合并文件夹中多个 Excel 文件中的数据、文件名中包含某些字符的文件、特定工作表名称、某些工作表的范围等等。

【讨论】：