Saving with Excel VBA

Scooter057 · January 15th, 2008, 10:00 AM

I need to write a code that will download a specific file from a database to the user's hard drive. The code so far has the destination folder hardcoded but I would like to use the save as dialog box so the user can select a location to download to.

I've never messed with user forms before, can anyone help me?

Thanks,
Scott

Scott Waters

Shasur · January 15th, 2008, 10:33 PM

Hi Scooter

Here is the code in Excel VBA

Code:

Sub PromptSaveAs()

Dim oWB As Workbook
Set oWB = ActiveWorkbook
Ret = Application.GetSaveAsFilename(InitialFilename:="c:\", fileFilter:="Excel File (*.xls), *.xls")
oWB.SaveAs Ret


End Sub

If you are doing it in Visual Basic 6.0 or VS2005 etc, you need to add reference to Excel Object library

Cheers
Shasur

http://www.dotnetdud.blogspot.com

VBA Tips & Tricks (http://www.vbadud.blogspot.com)