VBA xls in xlsx
27.02.2020 15:37:42
Maik
Wir haben ein Programm was uns den Stundenplan in excel xls ausgibt.
Leider kann man das Programm nicht umstellen und ein Update ist nicht zu erwarten.
Wir haben also einen Ordner mit ca 100 xls Dateien die ich gerne via VBA wenn das geht in xlsx umwandeln
am besten wäre auch wenn er die alten xls dateien gleich löscht.
Grund das beim öffnen der xls Dateien immer fehler kommen die dann immer mühselig weggeklickt werden müssen.
Das wollen die user aber nicht.
Ich habe dazu auch schon scripte im Netz gefunden leider funktionieren die nicht
Egal welches skript der Fehler kommt immer bei:
Die Dateien liegen in C:\test\
Set xlFile = Workbooks.Open(objFile.Path, , True)
Beispiel:
Sub ChangeFileFormat()
Dim strCurrentFileExt As String
Dim strNewFileExt As String
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim xlFile As Workbook
Dim strNewName As String
Dim strFolderPath As String
strCurrentFileExt = ".xls"
strNewFileExt = ".xlsx"
strFolderPath = "C:\test\"
If Right(strFolderPath, 1) "\" Then
strFolderPath = strFolderPath & "\"
End If
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.getfolder(strFolderPath)
For Each objFile In objFolder.Files
strNewName = objFile.Name
If Right(strNewName, Len(strCurrentFileExt)) = strCurrentFileExt Then
Set xlFile = Workbooks.Open(objFile.Path, , True)
strNewName = Replace(strNewName, strCurrentFileExt, strNewFileExt)
Application.DisplayAlerts = False
Select Case strNewFileExt
Case ".xlsx"
xlFile.SaveAs strFolderPath & strNewName, XlFileFormat.xlOpenXMLWorkbook
Case ".xlsm"
xlFile.SaveAs strFolderPath & strNewName, XlFileFormat. _
xlOpenXMLWorkbookMacroEnabled
End Select
xlFile.Close
Application.DisplayAlerts = True
End If
Next objFile
ClearMemory:
strCurrentFileExt = vbNullString
strNewFileExt = vbNullString
Set objFSO = Nothing
Set objFolder = Nothing
Set objFile = Nothing
Set xlFile = Nothing
strNewName = vbNullString
strFolderPath = vbNullString
End Sub