|
Hi ich habe folgendes Makro welches Lokal funktioniert jedoch auf einem Netzlaufwerk nicht:
Kann mir da jemand helfen warum das nicht am Netzwerk funktioniert?
Funktion Makro: xlsm Datei nach öffnen in neues xlsx konvertieren und original xlsm löschen
LG
Sub SaveAsXLSX_AndDeleteOriginal()
Application.DisplayAlerts = False
Dim originalPath As String
Dim newPath As String
' Originalpfad speichern
originalPath = ThisWorkbook.FullName
' Neuen Pfad (ohne .xlsm) erstellen
newPath = Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - 5) & "xlsx"
' Als .xlsx speichern
ThisWorkbook.SaveAs Filename:=newPath, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
' Neue .xlsx-Datei aktivieren
Workbooks.Open Filename:=newPath
' Alte .xlsm-Datei schließen und löschen
Kill originalPath
Application.DisplayAlerts = True
End Sub
|