VBA 合並來自不同 Excel 工作簿的選項卡（名稱相似），每個工作簿都有多個選項卡

Question

我在一個文件夾中有大約 50 個 xlsx 文件，其中包含三個選項卡：1. 活動、2. 活動更改和 3. 暫停。 我想將所有名稱類似於“暫停”的選項卡合並到一個工作簿中。 我在第 7 行代碼“ For Sheets... ”中不斷收到語法錯誤。 任何幫助糾正這一點將不勝感激！

Sub GetSheets()
Path = "C:\Users\Tracy Anderson Dell\Dropbox\Memberships & Subs Tracking\MBO\Membership\59th Street\"
Filename = Dir(Path & ".xlsx")
strSheetName = "Suspended"
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Sheets(strSheetName).Select In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub

Answer 1

聲明您的變量並創建一個工作簿變量，然后只需復制工作表而不使用工作表循環。

Sub GetSheets()
    Dim path As String
    path = "C:\Users\Tracy Anderson Dell\Dropbox\Memberships & Subs Tracking\MBO\Membership\59th Street\"

    Dim fileName As String
    fileName = Dir(path & ".xlsx")

    Dim strSheetName As String
    strSheetName = "Suspended"

    Do While fileName <> ""
        Dim wkb As Workbook
        Set wkb = Workbooks.Open(fileName:=path & fileName, ReadOnly:=True)

        wbk.Worksheets(strsheename).Copy After:=ThisWorkbook.Sheets(1)

        wkb.Close
        fileName = Dir()
    Loop
End Sub