I have having using a macro to "save as" to a particular file
location. For some reason it was working and now it always saves the
file to "my document". I don't know what happened. Below is the code,
with the location I want to save it at in "local". Any ideas?

Sub save()
ActiveWorkbook.SaveAs FileFormat:=51,
Filename:=Sheets("dashboard").Range("B6").Value & " Weekly Report " &
Format(Date, "mmdd"), Local:="N:\Aarons Team\TSA Core Reports"
End Sub

Is FileFormat 51 an xl2007 file format? I can't find it in xl2002.
In any case, the file path should be part of the Filename.
So...
ActiveWorkbook.SaveAs FileFormat:=51, _
Filename:="N:\Aarons Team\TSA Core Reports\" & _
Sheets("dashboard").Range("B6").Value & _
" Weekly Report " & Format(Date, "mmdd")
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



wrote in message
I have having using a macro to "save as" to a particular file
location. For some reason it was working and now it always saves the
file to "my document". I don't know what happened. Below is the code,
with the location I want to save it at in "local". Any ideas?

Sub save()
ActiveWorkbook.SaveAs FileFormat:=51,
Filename:=Sheets("dashboard").Range("B6").Value & " Weekly Report " &
Format(Date, "mmdd"), Local:="N:\Aarons Team\TSA Core Reports"
End Sub

Ron de Bruin has some sample code that saves as different formats:
http://www.rondebruin.nl/saveas.htm


Jim Cone wrote:


Is FileFormat 51 an xl2007 file format? I can't find it in xl2002.
In any case, the file path should be part of the Filename.
So...
ActiveWorkbook.SaveAs FileFormat:=51, _
Filename:="N:\Aarons Team\TSA Core Reports\" & _
Sheets("dashboard").Range("B6").Value & _
" Weekly Report " & Format(Date, "mmdd")
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


wrote in message
I have having using a macro to "save as" to a particular file
location. For some reason it was working and now it always saves the
file to "my document". I don't know what happened. Below is the code,
with the location I want to save it at in "local". Any ideas?

Sub save()
ActiveWorkbook.SaveAs FileFormat:=51,
Filename:=Sheets("dashboard").Range("B6").Value & " Weekly Report " &
Format(Date, "mmdd"), Local:="N:\Aarons Team\TSA Core Reports"
End Sub

--

Dave Peterson

Maybe:

filename:="N:\Aarons Team\TSA Core Reports\" _
& Sheets("dashboard").Range("B6").Value & " Weekly Report " _
& Format(Date, "mmdd") & ".xlsx"

I think you'll want to read about what Local does in VBA's help under .saveas.

wrote:

I have having using a macro to "save as" to a particular file
location. For some reason it was working and now it always saves the
file to "my document". I don't know what happened. Below is the code,
with the location I want to save it at in "local". Any ideas?

Sub save()
ActiveWorkbook.SaveAs FileFormat:=51,
Filename:=Sheets("dashboard").Range("B6").Value & " Weekly Report " &
Format(Date, "mmdd"), Local:="N:\Aarons Team\TSA Core Reports"
End Sub

--

Dave Peterson

Thanks! I just removed the two "_" dashes and your code worked. Yes,
file format 51 is 2007 format for a macro enabled workbook.

The space character followed by the underscore character is the continuation
character.

That means that the line doesn't have to extend to the far right (causing you to
scroll right/left to read it).

It can make it easier to read the code when you just have to scroll up/down.

wrote:

Thanks! I just removed the two "_" dashes and your code worked. Yes,
file format 51 is 2007 format for a macro enabled workbook.

--

Dave Peterson