комбинат только первый лист из нескольких книг в одну Excel VBA

Question

У меня есть макрос, чтобы объединить различные книги в один мастер первенствовать книги:

Sub GetSheets() 
Path = "\Users\myname\Documenten\Test\" 
Filename = Dir(Path & "*.xls") 
    Do While Filename <> "" 
    Workbooks.Open Filename:=Path & Filename, ReadOnly:=True 
    For Each Sheet In ActiveWorkbook.Sheets 
    Sheet.Copy After:=ThisWorkbook.Sheets(1) 
    Next Sheet 
    Workbooks(Filename).Close 
    Filename = Dir() 
    Loop 
End Sub 

У меня есть два вопроса относительно этого:

• Я бы как включить только первый рабочий лист каждой книги в основную книгу, как это возможно?
• Я хотел бы переименовать первую рабочую таблицу, в которую я включаю название рабочей книги, из которой выходит рабочий лист. Как я могу это сделать?

Большое спасибо!

Answer 1

попробовать это:

Option Explicit 

Sub GetSheets() 
    Dim Path As String, fileName As String 
    Dim Sht As Worksheet 

    Path = "\Users\myname\Documenten\Test\" 
    fileName = Dir(Path & "*.xls") 
    Do While fileName <> "" 
     Workbooks.Open fileName:=Path & fileName, ReadOnly:=True 
     With ActiveWorkbook 
      .Worksheets(1).Copy After:=ThisWorkbook.Sheets(1) 
      ThisWorkbook.Sheets(2).name = .name 
     End With 
     ActiveWorkbook.Close 
     fileName = Dir() 
    Loop 
End Sub