时间戳

首页 > 解决方案 > 将多个 Excel 工作簿合并为一个主工作簿

excel - 将多个 Excel 工作簿合并为一个主工作簿

问题描述

正如上面标题中提到的。我一直在寻找方法。我尝试过使用 VB 脚本将 excel 工作簿合并为一个 excel 工作簿的方法。但是，在我编写脚本时，没有迹象表明将所有工作簿都编译到主工作簿中。

这是我完成的 VB 脚本：

Sub GetSheets()
Path = "C:\Users\..."
Filename = Dir(Path & ".xlsx") 
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=This.Workbook.Sheets(1)
Next Sheet 
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub

标签： excelvba

解决方案

当您打开工作簿时，它会成为活动工作簿。

Sub GetSheets()

    Path = "C:\Users\..."
    Filename = Dir(Path & "*.xlsx")
    Dim Wb As Workbook
    Dim Wb0 As Workbook: Set Wb0 = ActiveWorkbook
    Dim Sh As Worksheet

    Do While Filename <> ""
        Set Wb = Workbooks.Open(Path & Filename)

        For Each Sh In Wb.Sheets
            Sh.Copy After:=Wb0.Sheets(Wb0.Sheets.Count)
        Next Sh

        Wb.Saved = True
        Wb.Close
        Filename = Dir()
    Loop

End Sub

推荐阅读