Hi,

Is there vba for making the Save As prompt appear with a certain active
directory and a suggested file name?

Thanks,

Bura

Hi Bura
try the following
Sub foo()
Dim fname As String
Dim path As String
Dim drive As String
Dim ret_value

drive = "C:"
path = "C:\temp\"
fname = "test.xls"
ChDrive (drive)
ChDir (path)
ret_value = Application.GetSaveAsFilename(InitialFileName:=fna me)
MsgBox ret_value

End Sub

--
Regards
Frank Kabel
Frankfurt, Germany


Bura Tino wrote:
Hi,

Is there vba for making the Save As prompt appear with a certain
active directory and a suggested file name?

Thanks,

Bura

Hi Bura

Sub SavePrompt()
Dim S As Variant
S = Application.GetSaveAsFilename
If S < False Then
MsgBox "He said " & S, , "hee hee"
End If
End Sub

Note that it doesn't actually DO anything.

HTH. Best wishes Harald
"Bura Tino" skrev i melding
news:MFWhc.4555$YP5.402600@attbi_s02...
Hi,

Is there vba for making the Save As prompt appear with a certain active
directory and a suggested file name?

Thanks,

Bura

Hi Bura,

Just to expand a bit...as Frank shows, there is no way to specify the
starting drive/path for the dialog. So you must actually change the current
directory for the user, then display the form. When you do that, it's a
good idea to put things back in place when you're done. Here's an example:

Sub ShowSaveAs()
Dim vResponse As Variant
Dim sOldPath As String

sOldPath = CurDir

ChDrive "C:"
ChDir "C:\"

vResponse = Application.GetSaveAsFilename("jake.xls", _
"Microsoft Excel Files (*.xls), *.xls")

If vResponse < False Then
MsgBox CStr(vResponse)
End If

ChDrive sOldPath
ChDir sOldPath
End Sub

As Harald noted, this does not *do* anything per se. But it will return
either False (if the user clicked Cancel) or a String representing the full
path/filename the user selected.

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]


Bura Tino wrote:
Hi,

Is there vba for making the Save As prompt appear with a certain
active directory and a suggested file name?

Thanks,

Bura

"Jake Marx" wrote in message
...
Hi Bura,

Just to expand a bit...as Frank shows, there is no way to specify the
starting drive/path for the dialog. So you must actually change the
current
directory for the user, then display the form. When you do that, it's a
good idea to put things back in place when you're done. Here's an
example:

Sub ShowSaveAs()
Dim vResponse As Variant
Dim sOldPath As String

sOldPath = CurDir

ChDrive "C:"
ChDir "C:\"

vResponse = Application.GetSaveAsFilename("jake.xls", _
"Microsoft Excel Files (*.xls), *.xls")

If vResponse < False Then
MsgBox CStr(vResponse)
End If

ChDrive sOldPath
ChDir sOldPath
End Sub

As Harald noted, this does not *do* anything per se. But it will return
either False (if the user clicked Cancel) or a String representing the
full
path/filename the user selected.

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com


Thank you all -- so useful!!!


[please keep replies in the newsgroup - email address unmonitored]


Bura Tino wrote:
Hi,

Is there vba for making the Save As prompt appear with a certain
active directory and a suggested file name?

Thanks,

Bura