AW: viele Dateien auf Excel 2010 umstellen
18.10.2011 16:34:32
Peter.H
Hallo Wolfang
vesuche es einmal mit folgendem Code
Public Sub Convert_xls_xlsm()
Dim WB As Workbook
Dim Datei As String, OldFile As String, Ordner As String
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False
Application.AskToUpdateLinks = False
Application.ShowWindowsInTaskbar = False
' Application.EnableCancelKey = xlDisabled
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "C:\Temp\"
.Title = "Ordnerauswahl"
.ButtonName = "Auswahl..."
.InitialView = msoFileDialogViewList
If .Show = -1 Then
Ordner = .SelectedItems(1)
If Right(Ordner, 1) "\" Then Ordner = Ordner & "\"
Else
Exit Sub 'Ordner = ""
End If
End With
On Error Resume Next
ChDir Ordner
Datei = Dir(Ordner & "*.xls")
Do While Datei ""
Set WB = Workbooks.Open(Ordner & Datei)
With ActiveWorkbook
' Dateiformat prüfen
If .FileFormat = xlWorkbookNormal Or .FileFormat = xlExcel8 Then
' Dateinamen merken
OldFile = .FullName
' Datei im neuen Dateinformat speichern
.SaveAs Filename:=Replace(OldFile, "xls", "xlsm"), FileFormat:= _
xlOpenXMLWorkbookMacroEnabled
' alte Datei löschen
Kill OldFile
End If
End With
WB.Close
Datei = Dir
Loop
Set WB = Nothing
' Application.EnableCancelKey = xlInterrupt
Application.EnableEvents = True
Application.DisplayAlerts = True
Application.AskToUpdateLinks = True
Application.ShowWindowsInTaskbar = True
Application.ScreenUpdating = True
End Sub
Gruß
Peter