Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Using SaveAs Dialog and Changing Location
I would like to call up the Save As dialog box, but get it to save in a
specific folder, as opposed to the current workbook's path. Eg. Instead of the workbook's path of "C:\Test\Test.xls", I would like it to look in "C:\Test2" and let you choose a filename. TIA. -- I am running on Office 2003, unless otherwise stated. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Using SaveAs Dialog and Changing Location
Hi Orion Change MyPath Sub test() Dim FName As Variant Dim MyPath As String Dim SaveDriveDir As String SaveDriveDir = CurDir MyPath = "C:\Users\Ron\Test2\" ChDrive MyPath ChDir MyPath FName = Application.GetSaveAsFilename("", _ fileFilter:="Excel Files (*.xls), *.xls") If FName < False Then ' do your Save stuff End If ChDrive SaveDriveDir ChDir SaveDriveDir End Sub -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Orion Cochrane" wrote in message ... I would like to call up the Save As dialog box, but get it to save in a specific folder, as opposed to the current workbook's path. Eg. Instead of the workbook's path of "C:\Test\Test.xls", I would like it to look in "C:\Test2" and let you choose a filename. TIA. -- I am running on Office 2003, unless otherwise stated. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Using SaveAs Dialog and Changing Location
I wonder if Ron's answer is what the OP really wanted or if the Save as
dialog box was required. The following actually displays the Save As dialog box with the required folder location. Sub SaveWorkbook() Dim myTitle 'myTitle is the title displayed on the dialog box. myTitle = "Select or enter the file name for save" With Application.FileDialog(msoFileDialogSaveAs) .Title = myTitle 'Note the backslash on the end or Excel _ interprets last text as a file name. .InitialFileName = "C:\Users\OssieMac\Documents\Excel\" .Show End With -- Regards, OssieMac |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
SaveAs dialog box | Excel Programming | |||
SaveAs Dialog comes up twice??? | Excel Programming | |||
SaveAs Dialog Box | Excel Programming | |||
SaveAs dialog | Excel Discussion (Misc queries) | |||
Saveas Dialog Box | Excel Programming |