Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Home Zurück Vor

Download Beispiel-Arbeitsmappe

Thema

XL5/7-Dateien nach XL8 konvertieren

Gruppe

Version

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