VBA xltm Datei speichern unter xlsm
16.11.2017 21:42:02
Roland
Vielleicht kann mir jemand helfen, ich möcht mit folgendem Code aus Autocad eine xltm öffnen und speichern unter xlsm. Es wird das Fenster "Speichern unter" geöffnet, Pfad asuswahl ist möglich, Dateiname kann ich eingeben, Dateiendung .xlsm bekomme ich zur auswahl, aber wenn ich speichern klicke, öffnet sich nur das excel file, aber gespeichert ist es nicht...
was kann da der fehler sein?
Danke schon im Voraus!
Sub test()
Dim Excel As Excel.Application
Set Excel = New Excel.Application
Dateiformat = "Excel Files (*.xlsm), *.xlsm"
Speicherpfad = "C:\test\"
Excel.Workbooks.Open(Vorlagexltm).SaveAs Filename:=Excel.Application.GetSaveAsFilename( _
Speicherpfad, Dateiformat)
Excel.Application.Visible = True
End Sub
