HERBERS Excel-Forum - die Beispiele

Thema: XL5/7-Dateien nach XL8 konvertieren

Home

Gruppe

Datei

Problem

Wie kann ich alle XL5/7-Dateien eines Verzeichnisses in das XL8Format konvertieren?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
ClassModule: Tabelle1

Private Sub CommandButton1_Click()
    Call Konvertieren
End Sub

StandardModule: basMain

Sub Konvertieren()
   Dim arr()
   Dim sName As String, iCount As Integer
   Dim iCounter As Integer
   sName = Dir("*.xls")
   Do While sName <> ""
      iCount = iCount + 1
      ReDim Preserve arr(1 To iCount)
      arr(iCount) = sName
      sName = Dir()
   Loop
   Application.DisplayAlerts = False
   For iCounter = 1 To iCount
      Workbooks.Open arr(iCounter)
      ActiveWorkbook.SaveAs _
         FileName:=arr(iCounter), _
         FileFormat:=xlNormal
      ActiveWorkbook.Close
   Next iCounter
   Application.DisplayAlerts = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen Datei und Version

Excel/PDF Datei unter bestimmten Pfad abspeichern aus excel Worddatei nach Wert durchsuchen
Split-Funktion beim Einlesen TXT-Datei Datei löschen mit unterschiedlichen Zahlen im Name
Datei löschen mit unterschiedlichen Zhalen im Name geöffnete Worddatei und Word aus Excel beenden
Excel-Datei nicht im Projekt-Explorer Suche nach jüngster Datei
Mehrere Zellen in mehreren Dateien ersetzen Kompatibilität der Excel-Versionen
Datei öffnen mit variablen im Namen Vergleichen zweier Dateien und aktualisieren
Datei langsam durch Formel Dateien aus Unterordner öffnen
Daten import aus txt--Datei Dateipfad öffnen mit VBA
Datei-Verknüpfungen Masterdatei erschaffen?
Mehrere Datenblätter als PDF-Datei ausgeben Makro bei Erstellen einer Datei aus einer Vorlage
Zusammenführung aus mehreren Dateien Rechteck per Button in andere Datei einfügen.
Alle Dateien in einem Unterordner öffnen VBA: MsgBox: yes/no. Bei yes andere Datei öffnen
Mehrere txt Dateien einlesen in ein Programm VBA Datei als .txt speichern
Excel Datei in CSV Datei wandeln mit Extras aktierten Text in geöffnete Worddatei
Spalte in andere Dateien kopieren + zurückkopieren Aus einer CSV-Datei ein bestimmtes Layout erzeugen
Daten ausgew. WS in 2. Datei zusammenführen Per VBA aktuelle Datei in Autostart-Ordner
csv Dateien importieren Makrodatei als Software hochwertiger gestalten
manuelles Speichern bei schreibgeschützter Datei Daten aus geschlossener Datei in Zieldatei kopiere
Dateinamen per VBA vorgeben (Datum: Vormonat) Ordner mit Unterordnern/Dateien kopieren
Auswertung über mehrere Dateien Geschlossene Excel-Datei bearbeiten?
datei öffnen durch vba ohne makroaktivierung Datei öffnet im Entwurfsmodus
Dateinamen der ausgelesenen Datei anzeigen Dateien vergleichen-doppelte löschen
Datendatei per Doppelklick einlesen Hyperlink auf Excel-Datei funktioniert nicht
Kopieren über 2 Dateien? Dateiinfo aller Dateien in allen Verz./Unterverz
Excel Datei