Ausgangslage:
Excel Vorlage (XLTM) soll in TEMP als .XLSM gespeichert werden und zwar so, dass man weiterhin in der Vorlage arbeitet und nicht die abgespeicherte Version nutzt. Dann soll die TEMP XLTM Datei in XLSM gewandelt werden.
SaveCopyAS geht ja leider nicht mit Formatwechsel.
Kann mir bitte jemand erklären wie ich eine andere Excel Datei öffne und mit SaveAs im anderen Format speichere und dann die Tabelle schließe.
Hier mein Versuch, aber ich bin zu unwissend bei VBA und auch suchen hat mich nicht weiter gebracht bisher.
Dim Pfad As String
Dim Dateiname As String
Dim file As String
Pfad = Environ("temp")
Dateiname = "TEST"
file = Pfad & "\" & Dateiname
ActiveWorkbook.SaveCopyAs Filename:=file & ".xltm"
Workbooks.Open file & ".xltm"
'Bis hier klappt alles, wo kommt jetzt der Fehler? Was muss ich anders machen?
Workbooks(Dateiname).SaveAs Filename:=file & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled ' HIER FEHLERMELDUNG(Laufzeitfehler 9)
Workbooks(Dateiname).Close
DANKE Für ein Denkanstoss oder eine Lösung!!!!
Gruß Kinopio