Dateierweiterung mit VBA-Code ändern (mit Bildern)
Was ist es:
Mit diesem VBA-Code können Sie die Dateierweiterung der Dateien in einem bestimmten Ordner/Verzeichnis ändern.
Wenn Sie beispielsweise die Erweiterung der im XLSX-Format empfangenen Excel-Dateien in XLS oder umgekehrt ändern möchten, können Sie diesen VBA-Code verwenden.
Warum:
Wenn Sie an einem Projekt arbeiten, bei dem Sie Eingabedateien mit unterschiedlichen Dateierweiterungen erhalten und die Dateien in einem Standardformat für Ihr VBA-Programm vorliegen sollen, Sie jedoch keine Kontrolle über die Eingabedateien haben, ist dieser Code sehr hilfreich, da Sie die Erweiterung in jedes gewünschte Format ändern können.
Um die Erweiterung in diesem Code zu ändern, wird ein Windows-Skriptobjekt verwendet.
So ändern Sie die Dateierweiterung mit VBA-Code:
Schritt 1: Öffnen Sie die Arbeitsmappe, die geschützt werden muss, und drücken Sie Alt + F11
Schritt 2: Kopieren Sie den folgenden Code, fügen Sie ihn in das VBA-Editorfenster ein und speichern Sie die Arbeitsmappe.
Sub changeExt() strDir = "C:\myFolder\" 'Geben Sie hier den Pfad Ihres Dateiordners an With CreateObject("wscript.shell") .currentdirectory = strDir .Run "%comspec% /c ren *.xlsx *.xls", 0, True End With End Sub
Schritt 3: Klicken Sie auf F5 um den Code auszuführen.
2 Antworten
was wäre, wenn die Dateien ursprünglich keine Erweiterung hätten und Sie möchten, dass bei allen die Erweiterung .xls hinzugefügt wird?
Guten Tag
Wie ändere ich eine bestimmte Dateierweiterung?
Denn dieser Code ändert alle Dateien im Ordner
Danke