Macro syntax: SaveAs Filename=ActiveCell.Text . BUT to a specified folder

  • Thread starter Thread starter magnus.ferman
  • Start date Start date
M

magnus.ferman

Hi, I would like to "save as" with the active cell value to a
specified folder.
If use SaveAs Filename=ActiveCell.Text it save to My documents which I
don't want.
Any tips? Thanks in advance / Magnus

ActiveWorkbook.SaveAs Filename:=ActiveCell.Text, FileFormat:=xlNormal
_
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
 
Hi, I would like to "save as" with the active cell value to a
specified folder.
If use SaveAs Filename=ActiveCell.Text it save to My documents which I
don't want.
Any tips? Thanks in advance / Magnus

ActiveWorkbook.SaveAs Filename:=ActiveCell.Text, FileFormat:=xlNormal
_
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Click to expand...

SaveAs filename:="C:\temp\" & activecell.text

obviously replace my example c:\temp with whatever path you want!!!
 
answer taken from another thread on same subject from Bob Phillips

sFilename = Format(Worksheets("Sheet1").Range("A1").Value, "yyyy-mm-dd")
ans = MsgBox ("Save file as " & sFilename)
if ans = vbOK Then
Activeworkbook.SaveAs Filename:= sFilename
End If

Above should give you the general idea, although if memory serves this will
still save to your default "My Documents", will search for another method as
this was a question I asked on this NG a while ago

HTH
 
If you know the path in which you want to save the file, just add the path
to the filename:
ActiveWorkbook.SaveAs Filename:="C:\Test\" & ActiveCell.Text
HTH, James
 
Back
Top