Импорт из нескольких книг с несколькими листами - PullRequest
Новая
       2

Импорт из нескольких книг с несколькими листами

0 голосов
/ 12 июля 2020

Я пытаюсь импортировать конкретный рабочий лист c, который отображается в нескольких (40) книгах. Я не беспокоюсь о том, как рабочие листы упорядочены в новой рабочей книге. Следующий код работает, но пытается вытащить все листы и падает, когда находит скрытые листы. Как уже было сказано, я хочу копировать только один лист. 

Sub CombineWorkbooks()
 
    Dim FName As String, FPath As String
    Dim Sheet As Worksheet
   
    Application.ScreenUpdating = False
   
    FPath = Worksheets("Combine Sheets").Cells(2, 2).Value
    FName = Dir(FPath & "\*.xls*")
   
    Do While FName <> ""
   
        Workbooks.Open Filename:=FPath & "\" & FName, ReadOnly:=True
   
        For Each Sheet In ActiveWorkbook.Sheets
       
            Sheet.Copy After:=ThisWorkbook.Sheets(1)
           
        Next Sheet
       
        Workbooks(FName).Close
        FName = Dir()
       
    Loop
   
    Application.ScreenUpdating = True
   
End Sub
...