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
|