Dzień dobry panie Witku,

Fragment kodu otwierający i modyfikujący wszystkie pliki w folderze jest następujący:

Sub listaPlikow()

    Dim sciezka As String
    Dim i As Long
    Dim nowy_Plik_Z_Danymi As Workbook
    
    ChDir ThisWorkbook.Path
    sciezka = Dir("")
    
    Set nowy_Plik_Z_Danymi = Workbooks.Add
    
    i = 1
    Do Until sciezka = ""
    If Right(sciezka, 4) = "xlsx" Or Right(sciezka, 3) = "xls" Then
        Debug.Print sciezka
        Workbooks.Open ThisWorkbook.Path & "\" & sciezka
        nowy_Plik_Z_Danymi.Worksheets.Add
        ActiveWorkbook.ActiveSheet.UsedRange.Copy nowy_Plik_Z_Danymi.ActiveSheet.Range("A1")
        nowy_Plik_Z_Danymi.ActiveSheet.Name = ActiveWorkbook.ActiveSheet.Name
        ActiveWorkbook.Close
        i = i + 1
    End If
    sciezka = Dir
    Loop
    
    nowy_Plik_Z_Danymi.SaveAs ThisWorkbook.Path & "\" & "Nowy plik.xlsx", xlOpenXMLWorkbook

End Sub

Odnośnie punktów a-d:

Jeśli chcemy zapisać plik lub nie to ustawmy sobie zmienną albo zapytajmy użytkownika albo przekażmy to w formie parametru. I dodajmy (lub nie) linię jakikolwiek_plik_do_zapisu.save

Jeśli chcemy, żeby program otwierał pliki z konkretnym rozszerzeniem, albo wszystkie to i tak musimy sprawdzić rozszerzenie - a to już mamy na przykładzie plików xlsx i xls w kodzie. Znowu jak wyżej - wystarczy wybrać ifem lub selectem czy innym sposobem czy chcemy otwierać wszystkie pliki excela czy tylko konkretne.

Pozdrawiam,

Marek Krawczyk