Save As to a particular file location.
 

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

Save As to a particular file location.
 

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

Save As to a particular file location.
 

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

Save As to a particular file location.
 

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

Save As to a particular file location.
 

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

Save As to a particular file location.
 

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