Anderes WB öffnen und speicher unter neuen Namen

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Anfrage hat sich erledgt. Ich habe es selbst gelöst.
@RPP63: Ja, ich habe es in 2 Foren gepostet. Brauchst Dir keine Mühe machen und in weiteren Foren nach mir suchen, ich bin nur in diesen 2 Foren aktiv.
Ich persönlich gehen davon aus, dass in den Foren unterschiedliche Personen aktiv sind und habe daher in beiden etwas gepsotet. Verwerflich? Ich meine NEIN.
Antwort im anderen Forum hatte ich noch nicht kommentiert, da ich damit noch experimientiere. Kommt aber noch. Keine Sorge.
Ich persönlich finde es auch nicht dreist, aber da stehe ich wohl allein auf weiter Flur mit.
Danke jedoch für deine kritisch Äußerung. Für die Zukunft weiß ich dann BESCHEID.
Für alle die ein ähnliches Problem haben hier noch die Lösung:
Code kommt in MODUL1


' Excel VORLAGE (.xltm) als .xlsm umspeichern
Sub selbst_gelöst()
Dim Pfad As String
Dim Dateiname As String
Dim file As String
Pfad = Environ("temp")
Dateiname = "TEST" & Format(Now, "YYYYMMDD" & "_" & "hhmmss") 'Datum und Uhrzeit damit nicht  _
identische Dateien entstehen können.
file = Pfad & "\" & Dateiname
ActiveWorkbook.SaveCopyAs Filename:=file & ".xltm" 'CopyAs kann nur im selben Format speichern  _
wie Ausgangsdatei .xltm
Workbooks.Open file & ".xltm"
ActiveWorkbook.SaveAs Filename:=file & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled 'Hier  _
Änderung von Vorlage .xltm in .xlsm
ActiveWorkbook.Close False 'FALSE damit nicht erneut gespeichert wird oder Abfrage kommt.
End Sub

Ich habe das benötigt um die XLSM jetzt per Outlook zu verschicken. Den Code erspare ich Euch hier aber.
DANKE trotzdem für alle deren Zeit ich verschwendet habe!
VG
Kinopio

Beliebteste Forumthreads (12 Monate)

Anderes WB öffnen und speicher unter neuen Namen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread