excel - 如何将不同excel文件和工作表中的数据导入一个主excel文件

Question

我有不同的 excel 文件，其中有多个工作表，我想将它们导入到一个主 excel 文件中。
这些文件位于不同的目录下。因此，我想知道将所有这些文件中的特定单元格导入一个主 excel 文件是否可行，该文件应在每次更改时更新。

Answer 1

您可以像这样创建宏:

Sub ConsolidateWorkbooks()
    Dim myRange As String
    myRange = "A1:B2" 'Put the range you want to copy from each workbook here
    Dim thisWorkbook As String
    Dim thisWorksheet As String
    thisWorkbook = ActiveWorkbook.name
    thisWorksheet = ActiveSheet.name

    CopyPasteOneWorkbook ("C:\firstworkbook.xls")
    CopyPasteOneWorkbook ("C:\secondworkbook.xls")


End Sub

Sub CopyPasteOneWorkbook(name As String)
    Workbooks.Open Filename:=name
    range(myRange).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(thisWorkbook).Activate
    'Select the first empty cell in column A:
    Worksheets(thisWorksheet).range("A1").End(xlDown).Select
    Selection.Offset(1, 0).Select
    ActiveSheet.Paste
End Sub

如果您的工作簿都在一个文件中并且具有连续的名称(workbook1.xls、workbook2.xls 等)，那么您可以创建一个 For环形。否则，只需根据需要对 CopyPasteOneWorkbook 进行尽可能多的调用。