Aaron, try:
Sub foo()
Dim sPath$, sFile$, sFull$
sPath = "c:\windows\"
sFile = "text.csv"
ChDrive sPath
ChDir sPath
sFull = Application.GetSaveAsFilename(sFile, "CSV files,*.csv")
End Sub
--
keepITcool
|
www.XLsupport.com | keepITcool chello nl | amsterdam
Aaron Howe wrote :
I have been trying to enter a code into my sheet which will save the
file to a directory on the network using a pre-defined file name. My
filename is a declared string, and is working properly. I can get as
far as:
* Getting the Save As dialogue in the right folder, but with no
filename * Getting the Save As dialogue to show a name, not the right
one, in the last place I saved
* Getting the Save As dialogue to show the completely wrong name in
the right folder.
Assuming I wanted to do this using the GetSaveAsFilename option, how
would I do it? And how would it differ if I wanted an automatic save
where the user didn't have the prompt? The end result would have to
be:
\\server\folder\subfolder\filenamefromstring.xls
Whichever way it was done...!