xltm saveas xlsm
in [Programming]
|
Prev: xlookup & paste a picture
Next: Printing App
From: Helmut on 2 Mar 2010 05:19 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
From: Bob Phillips on 2 Mar 2010 05:30 Did you try adding FileFormat:= xlOpenXMLWorkbookMacroEnabled to the save statement? HTH Bob "Helmut" <Helmut(a)discussions.microsoft.com> wrote in message news:A7800D7D-0321-4535-A708-A2519A13753B(a)microsoft.com... >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
From: Helmut on 3 Mar 2010 03:07 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 Phillips" wrote: > Did you try adding FileFormat:= xlOpenXMLWorkbookMacroEnabled to the save > statement? > > HTH > > Bob > > "Helmut" <Helmut(a)discussions.microsoft.com> wrote in message > news:A7800D7D-0321-4535-A708-A2519A13753B(a)microsoft.com... > >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 > > > . >
From: Helmut on 3 Mar 2010 03:18 Bob, I get "Run-time error '1004' - Method 'SaveAs' of 'object '_Workbook' failed." Helmut "Bob Phillips" wrote: > Did you try adding FileFormat:= xlOpenXMLWorkbookMacroEnabled to the save > statement? > > HTH > > Bob > > "Helmut" <Helmut(a)discussions.microsoft.com> wrote in message > news:A7800D7D-0321-4535-A708-A2519A13753B(a)microsoft.com... > >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 > > > . >
From: Bob Phillips on 3 Mar 2010 03:45
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 "Helmut" <Helmut(a)discussions.microsoft.com> wrote in message news:43C89CC1-746F-42BB-B0A3-FD18B58DA53F(a)microsoft.com... > Bob, > I get "Run-time error '1004' - Method 'SaveAs' of 'object '_Workbook' > failed." > Helmut > > "Bob Phillips" wrote: > >> Did you try adding FileFormat:= xlOpenXMLWorkbookMacroEnabled to the save >> statement? >> >> HTH >> >> Bob >> >> "Helmut" <Helmut(a)discussions.microsoft.com> wrote in message >> news:A7800D7D-0321-4535-A708-A2519A13753B(a)microsoft.com... >> >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 >> >> >> . >> |