excel - save file - specify path and name

  • Thread starter Thread starter etradeguru
  • Start date Start date
E

etradeguru

something which I have looked hard for is to be able to change path
and file name where I can input the text manually.
So I tried for myself and here is what I came up with. If you find it
useful let me know.


Dim myPath As String
Dim myFilename As String
'point at the (UNC) path here.
myPath = InputBox("enter path here")
If Right(myPath, 1) <> "\" Then
myPath = myPath & "\"
End If
myFilename = InputBox("enter filename here") & " your text here if
common ending .xls"
ActiveWorkbook.SaveAs Filename:=myPath & myFilename

Cheers
Mark
 
Thats good work, but something you might find helpful:
dlgAnswer = Application.Dialogs(xlDialogSaveAs).Show
opens the dialog to let you choose where to put it instead of typing all of
that stuff.
 
Thats good work, but something you might find helpful:
dlgAnswer = Application.Dialogs(xlDialogSaveAs).Show
opens the dialog to let you choose where to put it instead of typing all of
that stuff.
--
-John
Please rate when your question is answered to help us and others know what
is helpful.







- Show quoted text -
Click to expand...

Hi John,

Thats cool, I had been looking for a way to invoke the box but couodnt
find it. Thanks for that.

Mark
 
Back
Top