xltm saveas xlsm

  • Thread starter Thread starter Helmut
  • Start date Start date
H

Helmut

I have the following code within an "xltm" file which I want to then save as
"xlsm":

Do
fName = Application.GetSaveAsFilename(InitialFileName:="kupa",
filefilter:= _
" Excel Macro Enabled Workbook (*.xlsm), *.xlsm,")
Loop Until fName <> False
ActiveWorkbook.SaveAs Filename:=fName

I get ERROR on last statement. How can I add "FileFormatValue = 52" to save
the file as a "MacroEnabled"
thanks
 
Did you try adding FileFormat:= xlOpenXMLWorkbookMacroEnabled to the save
statement?

HTH

Bob
 
Bob, YES, I did try that too. It seems no matter what I add, it is ignored
and it gives me error that it cannot save a file with macro in non-macro
extension and saves it without macro and without extension.
Help
 
Bob,
I get "Run-time error '1004' - Method 'SaveAs' of 'object '_Workbook' failed."
Helmut
 
This is odd Helmut. I have just tried your code and it works fine for me, I
didn't even need the FileFormat property, so there must be something else in
your code.

HTH

Bob
 
Bob,
The following did finally work:

' Save File as "xlsm" in new location

Do
fName = Application.GetSaveAsFilename(InitialFileName:=Myvalue,
filefilter:= _
" Excel Macro Enabled Workbook (*.xlsm), *.xlsm,")
Loop Until fName <> False

ActiveWorkbook.SaveAs Filename:=fName,
FileFormat:=xlOpenXMLWorkbookMacroEnabled

Thanks for your help anyhow.
 
Back
Top