| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Prompt for Save As Window through macro
Hello,
Im trying to create a macro that opens the file save as window with a prefilled fill name and file format and allows me to save the file when I click on the save button in the save as window. The save as window opens, but when I click save the window closes and the file is not saved. Below is the code. Any suggestions are greatly appreciated. Private Sub CommandButton2_Click() Dim fileSaveName As String fileSaveName = Application.GetSaveAsFilename( _ InitialFileName:=Range("B1").Value, _ FileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm") End Sub |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Prompt for Save As Window through macro
You're only getting the name, not actually saving the workbook.
Add the line ActiveWorkbook.SaveAs fileSaveName HTH, Bernie MS Excel MVP "h2fcell" wrote in message ... Hello, I'm trying to create a macro that opens the file save as window with a prefilled fill name and file format and allows me to save the file when I click on the save button in the save as window. The save as window opens, but when I click save the window closes and the file is not saved. Below is the code. Any suggestions are greatly appreciated. Private Sub CommandButton2_Click() Dim fileSaveName As String fileSaveName = Application.GetSaveAsFilename( _ InitialFileName:=Range("B1").Value, _ FileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm") End Sub |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Prompt for Save As Window through macro
Hi,
Try this Dim fileSaveName As String fileSaveName = Application.GetSaveAsFilename( _ InitialFileName:=Range("B1").Value, _ FileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm") If fileSaveName < "" Then ActiveWorkbook.SaveAs fileSaveName Mike "h2fcell" wrote: Hello, Im trying to create a macro that opens the file save as window with a prefilled fill name and file format and allows me to save the file when I click on the save button in the save as window. The save as window opens, but when I click save the window closes and the file is not saved. Below is the code. Any suggestions are greatly appreciated. Private Sub CommandButton2_Click() Dim fileSaveName As String fileSaveName = Application.GetSaveAsFilename( _ InitialFileName:=Range("B1").Value, _ FileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm") End Sub |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Prompt for Save As Window through macro
OOPS,
I meant to say If fileSaveName < False Then ActiveWorkbook.SaveAs fileSaveName In case the user presses cancel. Mike "Mike H" wrote: Hi, Try this Dim fileSaveName As String fileSaveName = Application.GetSaveAsFilename( _ InitialFileName:=Range("B1").Value, _ FileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm") If fileSaveName < "" Then ActiveWorkbook.SaveAs fileSaveName Mike "h2fcell" wrote: Hello, Im trying to create a macro that opens the file save as window with a prefilled fill name and file format and allows me to save the file when I click on the save button in the save as window. The save as window opens, but when I click save the window closes and the file is not saved. Below is the code. Any suggestions are greatly appreciated. Private Sub CommandButton2_Click() Dim fileSaveName As String fileSaveName = Application.GetSaveAsFilename( _ InitialFileName:=Range("B1").Value, _ FileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm") End Sub |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Prompt for Save As Window through macro
Thank you so very much.
"Mike H" wrote: Hi, Try this Dim fileSaveName As String fileSaveName = Application.GetSaveAsFilename( _ InitialFileName:=Range("B1").Value, _ FileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm") If fileSaveName < "" Then ActiveWorkbook.SaveAs fileSaveName Mike "h2fcell" wrote: Hello, Im trying to create a macro that opens the file save as window with a prefilled fill name and file format and allows me to save the file when I click on the save button in the save as window. The save as window opens, but when I click save the window closes and the file is not saved. Below is the code. Any suggestions are greatly appreciated. Private Sub CommandButton2_Click() Dim fileSaveName As String fileSaveName = Application.GetSaveAsFilename( _ InitialFileName:=Range("B1").Value, _ FileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm") End Sub |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Prompt for Save As Window through macro
try somthing like ...
Option Explicit Sub Human() Dim FileName As String FileName = "YourFileName" Application.Dialogs(xlDialogSaveAs).Show (FileName) End Sub "h2fcell" wrote: Hello, Im trying to create a macro that opens the file save as window with a prefilled fill name and file format and allows me to save the file when I click on the save button in the save as window. The save as window opens, but when I click save the window closes and the file is not saved. Below is the code. Any suggestions are greatly appreciated. Private Sub CommandButton2_Click() Dim fileSaveName As String fileSaveName = Application.GetSaveAsFilename( _ InitialFileName:=Range("B1").Value, _ FileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm") End Sub |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Prompt for Save As Window through macro
If fileSaveName < False Then ActiveWorkbook.SaveAs fileSaveName In which case you need to declare fileSaveName as Variant, not String. Cordially, Chip Pearson Microsoft MVP Excel Product Group Pearson Software Consulting, LLC www.cpearson.com (email on web site) On Wed, 10 Dec 2008 08:01:01 -0800, Mike H wrote: OOPS, I meant to say If fileSaveName < False Then ActiveWorkbook.SaveAs fileSaveName In case the user presses cancel. Mike "Mike H" wrote: Hi, Try this Dim fileSaveName As String fileSaveName = Application.GetSaveAsFilename( _ InitialFileName:=Range("B1").Value, _ FileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm") If fileSaveName < "" Then ActiveWorkbook.SaveAs fileSaveName Mike "h2fcell" wrote: Hello, I’m trying to create a macro that opens the file save as window with a prefilled fill name and file format and allows me to save the file when I click on the save button in the save as window. The save as window opens, but when I click save the window closes and the file is not saved. Below is the code. Any suggestions are greatly appreciated. Private Sub CommandButton2_Click() Dim fileSaveName As String fileSaveName = Application.GetSaveAsFilename( _ InitialFileName:=Range("B1").Value, _ FileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm") End Sub |
|
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Prompt for Save As Window through macro
Thanks, I forgot to alter that while correcting the error in my first post
"Chip Pearson" wrote: If fileSaveName < False Then ActiveWorkbook.SaveAs fileSaveName In which case you need to declare fileSaveName as Variant, not String. Cordially, Chip Pearson Microsoft MVP Excel Product Group Pearson Software Consulting, LLC www.cpearson.com (email on web site) On Wed, 10 Dec 2008 08:01:01 -0800, Mike H wrote: OOPS, I meant to say If fileSaveName < False Then ActiveWorkbook.SaveAs fileSaveName In case the user presses cancel. Mike "Mike H" wrote: Hi, Try this Dim fileSaveName As String fileSaveName = Application.GetSaveAsFilename( _ InitialFileName:=Range("B1").Value, _ FileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm") If fileSaveName < "" Then ActiveWorkbook.SaveAs fileSaveName Mike "h2fcell" wrote: Hello, Im trying to create a macro that opens the file save as window with a prefilled fill name and file format and allows me to save the file when I click on the save button in the save as window. The save as window opens, but when I click save the window closes and the file is not saved. Below is the code. Any suggestions are greatly appreciated. Private Sub CommandButton2_Click() Dim fileSaveName As String fileSaveName = Application.GetSaveAsFilename( _ InitialFileName:=Range("B1").Value, _ FileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm") End Sub |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Need simple prompt to save at end of macro | Excel Programming | |||
| save prompt for user exit, but no save prompt for batch import? | Excel Discussion (Misc queries) | |||
| How to CANCEL file SAVE PROMPT when MACRO is running? | Excel Discussion (Misc queries) | |||
| CLOSE ALL macro for XL2K (but with prompt to save for each file)? | Excel Programming | |||
| Can a MACRO prompt for the filename to open and/or save? | Excel Programming | |||
Linear Mode
