Anzeige

VBA
Programmierer
gesucht?
 
Anzeige
VBA Programmierer gesucht?
 

VBA Codeschnipselsammlung

Viele *.XLS Dateien als *.XLSX speichern (OpenXMLFormat)

Dieses kleine Makro öffnet alle *.XLS Dateien in einem Verzeichnis und speichert diese im neuen Dateiformat als *.XLSX im selben Verzeichnis.

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


Autor: Marc Wershoven (2013)

Anzeige

VBA Programmierer gesucht?
http://www.WershovenOnline.de

Anzeige

Der Quick E-Mail Support von WershovenOnline®

Schnelle Hilfe bei Fragen rund um Microsoft® Office und VBA Makros

Der Quick E-Mail Support von WershovenOnline® Sie haben beispielsweise eine Frage zu einer Ihrer eigenen Makroprogrammierungen in VBA? Oder Sie suchen Unterstützung und Informationen über eine bestimmte Microsoft® Excel® Formel? Bei nahezu allen Fragen und Problemen rund um Microsoft® Office und VBA Makros steht Ihnen unser individueller Quick E-Mail Support zur Verfügung. Einfach, schnell und unkompliziert Ihre Frage in einer E-Mail formulieren, mit oder ohne Screenshots oder einer Beispieldatei absenden und kurze Zeit später haben Sie eine vollständige Lösung inkl. ausführlicher Erklärung vom Profi in Ihrem Postfach! Zusätzlich besteht die Option, dass wir uns mittels Fernwartung (selbstverständlich nach Ihrem Einvertändnis) direkt "live" mit Ihnen zusammen an Ihrem Bildschirm gemeinsam Fragen und Problemstellungen anschauen und lösen können!

Weitere Informationen zu diesem kostenpflichtigen Angebot finden Sie auf der Anbieterseite von WershovenOnline® auf www.wershovenonline.de.

Zum Anbieter des Quick-E-Mail-Support...

Zum Seitenanfang