Option Explicit
' ************************************************************************************************
' Autor/en: http://www.online-vba.de - Marc Wershoven
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von www.online-vba.de!
' Original-Quelltext: www.online-vba.de/vba_multidateiformatupdate.php
' ************************************************************************************************

'Wichtiger Hinweis: Die XLS Dateien die umgewandelt werden dürfen keine Makros enthalten!
'Grund: Das XLSX Format beinhaltet keine Makros!!!

Sub MWMultiDateiFormatUpdate()
   Dim oSourceBook As Object
   Dim sPfad As String
   Dim sDatei As String
    
     Application.ScreenUpdating = False 'Das "Flackern" ausstellen
    
     'Schritt 1: Schleife über alle Excel Dateien in einem Verzeichnis
     sPfad = "C:\TEST\XLS2XLSX\"
     sDatei = Dir(CStr(sPfad & "*.xls")) 'Alle *.xls Dateien
    
     Do While sDatei <> ""
    
         'Schritt 2: öffnen der Datei und Datenübertragung
         Set oSourceBook = Workbooks.Open(sPfad & sDatei, False, True) 'nur lesend öffnen
        
         'Schritt 3: Datei speichern und wieder zu machen und nächste Schleifenrunde
         Application.DisplayAlerts = False
         'Speichern im XLSX Format
         oSourceBook.SaveAs Filename:=CStr(sPfad & sDatei & "x"), FileFormat:=xlOpenXMLWorkbook
         oSourceBook.Close False
         Application.DisplayAlerts = True
        
         'Nächste Datei
         sDatei = Dir()
     Loop
    
     Application.ScreenUpdating = True 'Das Bildschirm-Aktualisieren wieder einschalten
    
     'Variablen aufräumen
     Set oSourceBook = Nothing
End Sub