Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
After running some code, I would like to open a "Save As" box and navigate
to a specific directory. At this point I would like to wait for the user to type a file name. Can someone help me with this part of the code? Thank You |
#2
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() Hello Striker, You can call up the "Save As" dialog in VBA using the code below. Application.Dialogs(xlDialogSaveAs).Show Sincerely, Leith Ros -- Leith Ros ----------------------------------------------------------------------- Leith Ross's Profile: http://www.excelforum.com/member.php...fo&userid=1846 View this thread: http://www.excelforum.com/showthread.php?threadid=55912 |
#3
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() Hello Striker, You can call up the "Save As" dialog in VBA using the code below. Application.Dialogs(xlDialogSaveAs).Show Sincerely, Leith Ros -- Leith Ros ----------------------------------------------------------------------- Leith Ross's Profile: http://www.excelforum.com/member.php...fo&userid=1846 View this thread: http://www.excelforum.com/showthread.php?threadid=55912 |
#4
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() Hello Striker, You can call up the "Save As" dialog in VBA using the code below. Application.Dialogs(xlDialogSaveAs).Show Sincerely, Leith Ros -- Leith Ros ----------------------------------------------------------------------- Leith Ross's Profile: http://www.excelforum.com/member.php...fo&userid=1846 View this thread: http://www.excelforum.com/showthread.php?threadid=55912 |
#5
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() Hello Striker, You can call up the "Save As" dialog in VBA using the code below. Application.Dialogs(xlDialogSaveAs).Show Sincerely, Leith Ros -- Leith Ros ----------------------------------------------------------------------- Leith Ross's Profile: http://www.excelforum.com/member.php...fo&userid=1846 View this thread: http://www.excelforum.com/showthread.php?threadid=55912 |
#6
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Hi Striker,
Try something like: '============= Public Sub Tester() Dim myFolder As String Dim myPath As String Dim FName As Variant myFolder = CurDir myPath = "C:\Data\" '<<=== CHANGE If Right(myPath, 1) < "\" Then myPath = myPath & "\" End If ChDrive myPath ChDir myPath FName = Application.GetSaveAsFilename( _ FileFilter:="Excel Files (*.xls), *.xls") If FName < False Then ActiveWorkbook.SaveAs Filename:=FName End If ChDrive myFolder ChDir myFolder End Sub '<<============= --- Regards, Norman "Striker" wrote in message ... After running some code, I would like to open a "Save As" box and navigate to a specific directory. At this point I would like to wait for the user to type a file name. Can someone help me with this part of the code? Thank You |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Save, save as, page setup dimmed out in unprotected excel sheet? | Excel Discussion (Misc queries) | |||
Save As and save current numbers not the actual formulas and links | Excel Discussion (Misc queries) | |||
How to diasble save and save as menu but allow a save button | Excel Programming | |||
how to get disk icon on save button of save as dialog like 2000 | Excel Discussion (Misc queries) | |||
Totally Disabling (^ save ) (Save as) and Save Icon – Which code do I use: | Excel Programming |