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

Объявите свои переменные и создайте переменную книги, затем просто скопируйте лист без листа l oop.

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