Save Workbook As macro problem
 

Hi, I have the following code to save the current workbook with a specific
filename.
It is linked to a button launched from a custom menu.

Sub Save_File()
' Macro to Save file as ZFPW_dd-mm-yyyy.xls
Dim path As String, filename As String, filetype As String, file As String
path = "C:\Documents and Settings\username\My Documents\SOX
Reporting\Metrics"
file_name = "ZFPW_" & Format(Date, "dd-mm-yyyy")
filetype = ".xls"
file = path & file_name & filetype
ChDir path
ActiveWorkbook.SaveAs filename:=file
End Sub

When I run the macro, I get "Compile error: Wrong number of arguments or
invalid property assignment" with Format highlighted as the error.

I'm sure it's a minor fix, but it's not giving me any love at the moment.

Thanks

Save Workbook As macro problem
 

I'm not seeing a problem here. What do you get when you do this

Debug.print Date
Debug.print Format(Date, "dd-mm-yyyy")

"D Zandveld" wrote:

Hi, I have the following code to save the current workbook with a specific
filename.
It is linked to a button launched from a custom menu.

Sub Save_File()
' Macro to Save file as ZFPW_dd-mm-yyyy.xls
Dim path As String, filename As String, filetype As String, file As String
path = "C:\Documents and Settings\username\My Documents\SOX
Reporting\Metrics"
file_name = "ZFPW_" & Format(Date, "dd-mm-yyyy")
filetype = ".xls"
file = path & file_name & filetype
ChDir path
ActiveWorkbook.SaveAs filename:=file
End Sub

When I run the macro, I get "Compile error: Wrong number of arguments or
invalid property assignment" with Format highlighted as the error.

I'm sure it's a minor fix, but it's not giving me any love at the moment.

Thanks

Save Workbook As macro problem
 

Same error, but this time on Format in the debug code.

Do I need to declare 'Format' as anything? I didn't think so?

"Barb Reinhardt" wrote:

I'm not seeing a problem here. What do you get when you do this

Debug.print Date
Debug.print Format(Date, "dd-mm-yyyy")

"D Zandveld" wrote:

Hi, I have the following code to save the current workbook with a specific
filename.
It is linked to a button launched from a custom menu.

Sub Save_File()
' Macro to Save file as ZFPW_dd-mm-yyyy.xls
Dim path As String, filename As String, filetype As String, file As String
path = "C:\Documents and Settings\username\My Documents\SOX
Reporting\Metrics"
file_name = "ZFPW_" & Format(Date, "dd-mm-yyyy")
filetype = ".xls"
file = path & file_name & filetype
ChDir path
ActiveWorkbook.SaveAs filename:=file
End Sub

When I run the macro, I get "Compile error: Wrong number of arguments or
invalid property assignment" with Format highlighted as the error.

I'm sure it's a minor fix, but it's not giving me any love at the moment.

Thanks

Save Workbook As macro problem
 

What application are you running this out of? I'm using Excel 2007. Might
you be running it from something besides Excel?

"D Zandveld" wrote:

Same error, but this time on Format in the debug code.

Do I need to declare 'Format' as anything? I didn't think so?

"Barb Reinhardt" wrote:

I'm not seeing a problem here. What do you get when you do this

Debug.print Date
Debug.print Format(Date, "dd-mm-yyyy")

"D Zandveld" wrote:

Hi, I have the following code to save the current workbook with a specific
filename.
It is linked to a button launched from a custom menu.

Sub Save_File()
' Macro to Save file as ZFPW_dd-mm-yyyy.xls
Dim path As String, filename As String, filetype As String, file As String
path = "C:\Documents and Settings\username\My Documents\SOX
Reporting\Metrics"
file_name = "ZFPW_" & Format(Date, "dd-mm-yyyy")
filetype = ".xls"
file = path & file_name & filetype
ChDir path
ActiveWorkbook.SaveAs filename:=file
End Sub

When I run the macro, I get "Compile error: Wrong number of arguments or
invalid property assignment" with Format highlighted as the error.

I'm sure it's a minor fix, but it's not giving me any love at the moment.

Thanks

Save Workbook As macro problem
 

Excel 2003

"Barb Reinhardt" wrote:

What application are you running this out of? I'm using Excel 2007. Might
you be running it from something besides Excel?

"D Zandveld" wrote:

Same error, but this time on Format in the debug code.

Do I need to declare 'Format' as anything? I didn't think so?

"Barb Reinhardt" wrote:

I'm not seeing a problem here. What do you get when you do this

Debug.print Date
Debug.print Format(Date, "dd-mm-yyyy")

"D Zandveld" wrote:

Hi, I have the following code to save the current workbook with a specific
filename.
It is linked to a button launched from a custom menu.

Sub Save_File()
' Macro to Save file as ZFPW_dd-mm-yyyy.xls
Dim path As String, filename As String, filetype As String, file As String
path = "C:\Documents and Settings\username\My Documents\SOX
Reporting\Metrics"
file_name = "ZFPW_" & Format(Date, "dd-mm-yyyy")
filetype = ".xls"
file = path & file_name & filetype
ChDir path
ActiveWorkbook.SaveAs filename:=file
End Sub

When I run the macro, I get "Compile error: Wrong number of arguments or
invalid property assignment" with Format highlighted as the error.

I'm sure it's a minor fix, but it's not giving me any love at the moment.

Thanks

Save Workbook As macro problem
 

It'll take me a while to access Excel 2003, but you might try replacing
Format with WorksheetFunction.Text( )



"D Zandveld" wrote:

Excel 2003

"Barb Reinhardt" wrote:

What application are you running this out of? I'm using Excel 2007. Might
you be running it from something besides Excel?

"D Zandveld" wrote:

Same error, but this time on Format in the debug code.

Do I need to declare 'Format' as anything? I didn't think so?

"Barb Reinhardt" wrote:

I'm not seeing a problem here. What do you get when you do this

Debug.print Date
Debug.print Format(Date, "dd-mm-yyyy")

"D Zandveld" wrote:

Hi, I have the following code to save the current workbook with a specific
filename.
It is linked to a button launched from a custom menu.

Sub Save_File()
' Macro to Save file as ZFPW_dd-mm-yyyy.xls
Dim path As String, filename As String, filetype As String, file As String
path = "C:\Documents and Settings\username\My Documents\SOX
Reporting\Metrics"
file_name = "ZFPW_" & Format(Date, "dd-mm-yyyy")
filetype = ".xls"
file = path & file_name & filetype
ChDir path
ActiveWorkbook.SaveAs filename:=file
End Sub

When I run the macro, I get "Compile error: Wrong number of arguments or
invalid property assignment" with Format highlighted as the error.

I'm sure it's a minor fix, but it's not giving me any love at the moment.

Thanks