| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Save as dialog
I have a macro on an Activeworkbook that opens a specifice file in my C:
drive and copies data from the activeworkbook into the workbook in my C: drive. When my active workbook copies the data to the file, I would like the file to prompt the SaveAs dialog box. Can anyone help???? |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Save as dialog
David,
Maybe:- Sub sonic() 'Your code Dim FileName As String FileName = Application.GetSaveAsFilename If FileName = "False" Then Exit Sub ActiveWorkbook.SaveAs FileName End Sub "David T" wrote: I have a macro on an Activeworkbook that opens a specifice file in my C: drive and copies data from the activeworkbook into the workbook in my C: drive. When my active workbook copies the data to the file, I would like the file to prompt the SaveAs dialog box. Can anyone help???? |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Save as dialog
thanks mike. I used your code on another one workbook. It works great!!!!
"Mike H" wrote: David, Maybe:- Sub sonic() 'Your code Dim FileName As String FileName = Application.GetSaveAsFilename If FileName = "False" Then Exit Sub ActiveWorkbook.SaveAs FileName End Sub "David T" wrote: I have a macro on an Activeworkbook that opens a specifice file in my C: drive and copies data from the activeworkbook into the workbook in my C: drive. When my active workbook copies the data to the file, I would like the file to prompt the SaveAs dialog box. Can anyone help???? |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Save as dialog
Suggestion
Change "False" to False If your code is running on a non English machine "False" is not working -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "David T" wrote in message ... thanks mike. I used your code on another one workbook. It works great!!!! "Mike H" wrote: David, Maybe:- Sub sonic() 'Your code Dim FileName As String FileName = Application.GetSaveAsFilename If FileName = "False" Then Exit Sub ActiveWorkbook.SaveAs FileName End Sub "David T" wrote: I have a macro on an Activeworkbook that opens a specifice file in my C: drive and copies data from the activeworkbook into the workbook in my C: drive. When my active workbook copies the data to the file, I would like the file to prompt the SaveAs dialog box. Can anyone help???? |
|
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Save as dialog
And remember to also change:
Dim FileName As String to Dim FileName As Variant 'could be a string or a boolean Ron de Bruin wrote: Suggestion Change "False" to False If your code is running on a non English machine "False" is not working -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "David T" wrote in message ... thanks mike. I used your code on another one workbook. It works great!!!! "Mike H" wrote: David, Maybe:- Sub sonic() 'Your code Dim FileName As String FileName = Application.GetSaveAsFilename If FileName = "False" Then Exit Sub ActiveWorkbook.SaveAs FileName End Sub "David T" wrote: I have a macro on an Activeworkbook that opens a specifice file in my C: drive and copies data from the activeworkbook into the workbook in my C: drive. When my active workbook copies the data to the file, I would like the file to prompt the SaveAs dialog box. Can anyone help???? -- Dave Peterson |
|
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Save as dialog
Good catch, I miss that one Dave
-- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Dave Peterson" wrote in message ... And remember to also change: Dim FileName As String to Dim FileName As Variant 'could be a string or a boolean Ron de Bruin wrote: Suggestion Change "False" to False If your code is running on a non English machine "False" is not working -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "David T" wrote in message ... thanks mike. I used your code on another one workbook. It works great!!!! "Mike H" wrote: David, Maybe:- Sub sonic() 'Your code Dim FileName As String FileName = Application.GetSaveAsFilename If FileName = "False" Then Exit Sub ActiveWorkbook.SaveAs FileName End Sub "David T" wrote: I have a macro on an Activeworkbook that opens a specifice file in my C: drive and copies data from the activeworkbook into the workbook in my C: drive. When my active workbook copies the data to the file, I would like the file to prompt the SaveAs dialog box. Can anyone help???? -- Dave Peterson |
|
#7
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Save as dialog
Hello David
See VBA help on either: Application.Dialogs(xlDialogSaveAs).Show or Application.GetSaveAsFilename HTH Cordially Pascal "David T" a écrit dans le message de news: ... I have a macro on an Activeworkbook that opens a specifice file in my C: drive and copies data from the activeworkbook into the workbook in my C: drive. When my active workbook copies the data to the file, I would like the file to prompt the SaveAs dialog box. Can anyone help???? |
|
#8
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Save as dialog
thanks very much. the code works great!
"papou" wrote: Hello David See VBA help on either: Application.Dialogs(xlDialogSaveAs).Show or Application.GetSaveAsFilename HTH Cordially Pascal "David T" a écrit dans le message de news: ... I have a macro on an Activeworkbook that opens a specifice file in my C: drive and copies data from the activeworkbook into the workbook in my C: drive. When my active workbook copies the data to the file, I would like the file to prompt the SaveAs dialog box. Can anyone help???? |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| save as webpage dialog box missing | Excel Discussion (Misc queries) | |||
| Help with custom save as dialog box. | Excel Discussion (Misc queries) | |||
| how to get disk icon on save button of save as dialog like 2000 | Excel Discussion (Misc queries) | |||
| Override save as Dialog box | Excel Worksheet Functions | |||
| Save as Dialog Box Mysterious " " | Excel Worksheet Functions | |||
Hybrid Mode
