将多个excel文件中的数据拖到excel 2007的单个excel文件中

Question

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

例如，将数据从excel文件（1）和excel文件（2）拉入单个新的Excel文件（1_2）

Answer 1

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

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

为了答案完整性，链接答案的片段（由@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。

如果您想了解其他任何内容，请与我联系。

Answer 2

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

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

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