how do I write a request to 'Save As' Macro
Hi, I have recorded a macro which opens a new workbook called 'wizdatasave',
then the macro selects and copies 2 worsheets from another open workbook and pastes them into the newly open workbook 'wizdatasave'. What code do I enter into the macro to automate the 'Save As' function? I need to save the 'wizdatasave' workbook as something different each time it is opened. regards Craig |
how do I write a request to 'Save As' Macro
Maybe you could use the date/time appended to the name:
Dim WizWkbk as workbook set wizwkbk = workbooks.open("C:\somefolder\wizdatasave.xls") 'do the work wizwkbk.saveas filename:="C:\someexistingfolder\wizdata" _ & format(now, "yyyymmdd-hhmmss") & ".xls", _ fileformat:=xlworkbooknormal CRAIG K wrote: Hi, I have recorded a macro which opens a new workbook called 'wizdatasave', then the macro selects and copies 2 worsheets from another open workbook and pastes them into the newly open workbook 'wizdatasave'. What code do I enter into the macro to automate the 'Save As' function? I need to save the 'wizdatasave' workbook as something different each time it is opened. regards Craig -- Dave Peterson |
how do I write a request to 'Save As' Macro
Hi Dave, I actually need to call teh work book by a different number which
may not be incremental so I would have to enter it manually at the save as stage such as "2350wiz.xls". Here is the actual macro to show you what I have and maybe you could show me how to append the 'save as' bit to the end regards Craig Workbooks.Open Filename:="C:\excel run data\data\WIZSAVEDATA.xls" Windows("JETLOOPR.XLS").Activate Sheets("Ten Minutes").Select Sheets("Ten Minutes").Copy Befo=Workbooks("WIZSAVEDATA.xls").Sheets(1) Windows("JETLOOPR.XLS").Activate Sheets("Hourly").Select Sheets("Hourly").Copy Befo=Workbooks("WIZSAVEDATA.xls").Sheets(1) ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub "Dave Peterson" wrote: Maybe you could use the date/time appended to the name: Dim WizWkbk as workbook set wizwkbk = workbooks.open("C:\somefolder\wizdatasave.xls") 'do the work wizwkbk.saveas filename:="C:\someexistingfolder\wizdata" _ & format(now, "yyyymmdd-hhmmss") & ".xls", _ fileformat:=xlworkbooknormal CRAIG K wrote: Hi, I have recorded a macro which opens a new workbook called 'wizdatasave', then the macro selects and copies 2 worsheets from another open workbook and pastes them into the newly open workbook 'wizdatasave'. What code do I enter into the macro to automate the 'Save As' function? I need to save the 'wizdatasave' workbook as something different each time it is opened. regards Craig -- Dave Peterson |
how do I write a request to 'Save As' Macro
Const FILE_BASE As String = "C:\excel run data\data\WIZSAVEDATA"
Set wb = Workbooks.Open(Filename:=FILE_BASE & ".xls") Windows("JETLOOPR.XLS").Activate Sheets("Ten Minutes").Select Sheets("Ten Minutes").Copy Befo=Workbooks("WIZSAVEDATA.xls").Sheets(1) Windows("JETLOOPR.XLS").Activate Sheets("Hourly").Select Sheets("Hourly").Copy Befo=Workbooks("WIZSAVEDATA.xls").Sheets(1) ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ans = InputBox("Supply filename increment") wb.SaveAs FILE_BASE & ans & ".xls" -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "CRAIG K" wrote in message ... Hi Dave, I actually need to call teh work book by a different number which may not be incremental so I would have to enter it manually at the save as stage such as "2350wiz.xls". Here is the actual macro to show you what I have and maybe you could show me how to append the 'save as' bit to the end regards Craig Workbooks.Open Filename:="C:\excel run data\data\WIZSAVEDATA.xls" Windows("JETLOOPR.XLS").Activate Sheets("Ten Minutes").Select Sheets("Ten Minutes").Copy Befo=Workbooks("WIZSAVEDATA.xls").Sheets(1) Windows("JETLOOPR.XLS").Activate Sheets("Hourly").Select Sheets("Hourly").Copy Befo=Workbooks("WIZSAVEDATA.xls").Sheets(1) ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub "Dave Peterson" wrote: Maybe you could use the date/time appended to the name: Dim WizWkbk as workbook set wizwkbk = workbooks.open("C:\somefolder\wizdatasave.xls") 'do the work wizwkbk.saveas filename:="C:\someexistingfolder\wizdata" _ & format(now, "yyyymmdd-hhmmss") & ".xls", _ fileformat:=xlworkbooknormal CRAIG K wrote: Hi, I have recorded a macro which opens a new workbook called 'wizdatasave', then the macro selects and copies 2 worsheets from another open workbook and pastes them into the newly open workbook 'wizdatasave'. What code do I enter into the macro to automate the 'Save As' function? I need to save the 'wizdatasave' workbook as something different each time it is opened. regards Craig -- Dave Peterson |
how do I write a request to 'Save As' Macro
If you want to type in the name of the file, then why not just hit ctrl-s or
File|SaveAs. But you could show that same dialog with a line: Application.Dialogs(xlDialogSaveAs).Show CRAIG K wrote: Hi Dave, I actually need to call teh work book by a different number which may not be incremental so I would have to enter it manually at the save as stage such as "2350wiz.xls". Here is the actual macro to show you what I have and maybe you could show me how to append the 'save as' bit to the end regards Craig Workbooks.Open Filename:="C:\excel run data\data\WIZSAVEDATA.xls" Windows("JETLOOPR.XLS").Activate Sheets("Ten Minutes").Select Sheets("Ten Minutes").Copy Befo=Workbooks("WIZSAVEDATA.xls").Sheets(1) Windows("JETLOOPR.XLS").Activate Sheets("Hourly").Select Sheets("Hourly").Copy Befo=Workbooks("WIZSAVEDATA.xls").Sheets(1) ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub "Dave Peterson" wrote: Maybe you could use the date/time appended to the name: Dim WizWkbk as workbook set wizwkbk = workbooks.open("C:\somefolder\wizdatasave.xls") 'do the work wizwkbk.saveas filename:="C:\someexistingfolder\wizdata" _ & format(now, "yyyymmdd-hhmmss") & ".xls", _ fileformat:=xlworkbooknormal CRAIG K wrote: Hi, I have recorded a macro which opens a new workbook called 'wizdatasave', then the macro selects and copies 2 worsheets from another open workbook and pastes them into the newly open workbook 'wizdatasave'. What code do I enter into the macro to automate the 'Save As' function? I need to save the 'wizdatasave' workbook as something different each time it is opened. regards Craig -- Dave Peterson -- Dave Peterson |
how do I write a request to 'Save As' Macro
thanks, problem sorted
regards Craig "Dave Peterson" wrote: If you want to type in the name of the file, then why not just hit ctrl-s or File|SaveAs. But you could show that same dialog with a line: Application.Dialogs(xlDialogSaveAs).Show CRAIG K wrote: Hi Dave, I actually need to call teh work book by a different number which may not be incremental so I would have to enter it manually at the save as stage such as "2350wiz.xls". Here is the actual macro to show you what I have and maybe you could show me how to append the 'save as' bit to the end regards Craig Workbooks.Open Filename:="C:\excel run data\data\WIZSAVEDATA.xls" Windows("JETLOOPR.XLS").Activate Sheets("Ten Minutes").Select Sheets("Ten Minutes").Copy Befo=Workbooks("WIZSAVEDATA.xls").Sheets(1) Windows("JETLOOPR.XLS").Activate Sheets("Hourly").Select Sheets("Hourly").Copy Befo=Workbooks("WIZSAVEDATA.xls").Sheets(1) ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub "Dave Peterson" wrote: Maybe you could use the date/time appended to the name: Dim WizWkbk as workbook set wizwkbk = workbooks.open("C:\somefolder\wizdatasave.xls") 'do the work wizwkbk.saveas filename:="C:\someexistingfolder\wizdata" _ & format(now, "yyyymmdd-hhmmss") & ".xls", _ fileformat:=xlworkbooknormal CRAIG K wrote: Hi, I have recorded a macro which opens a new workbook called 'wizdatasave', then the macro selects and copies 2 worsheets from another open workbook and pastes them into the newly open workbook 'wizdatasave'. What code do I enter into the macro to automate the 'Save As' function? I need to save the 'wizdatasave' workbook as something different each time it is opened. regards Craig -- Dave Peterson -- Dave Peterson |
All times are GMT +1. The time now is 03:31 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com