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
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???? |
#4
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???? |
#5
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???? |
#6
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???? |
#7
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 |
#8
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 |
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 |