Sziasztok!

Azt szereteném az exceltől kérni makróban, hogy egy megadott folderban lévő összes munkafüzetet nyisson ki, majd mindenek az első lapját másolja egy master fájlba.

De nem akar működni.

Hol rontottam el szerintetek?

Köszi a segítséget!!

--------

Sub MergeSheets()

Dim wbMaster As Workbook
Dim NumbSht As Integer
Dim BegSht As Integer

Application.ScreenUpdating = False

útvonal = "S:AdHoc AnalysisMACROExperiment"

Workbooks.Add 1
ActiveWorkbook.SaveAs Filename:=útvonal & "Master.xls"

With Application.FileSearch
    .LookIn = útvonal
    .FileType = msoFileTypeExcelWorkbooks
    .Execute
    
For i = 1 To .FoundFiles.Count
     Workbooks.Open .FoundFiles(i)
     
     BkName = ActiveWorkbook.Name
     BegSht = 1
   
             Workbooks(BkName).Sheets(BegSht).Move Before:=Workbooks("Master.xls").Sheets(1)
   Next
End With

Application.ScreenUpdating = True
End Sub