Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Automate File Naming Function in sequence
I created a module and inserted the code into the template.
I've inserted the code into a new module, (Nothing happened) Inserted the code in the workbook area, nothing happened. Inserted the code into the Sheet name area and still nothing happened. Actually, what i might do is put it in the macro when I open up the sheet via the toolbars. Sub GetNewFileName() Dim NFile As Integer, FNo As Long NFile = FreeFile() Open "C:\Zemd.Txt" For Input As #NFile Input #NFile, FNo Close #NFile Open "C:\Zemd.Txt" For Output As #NFile Print #NFile, FNo + 1 Close #NFile ActiveWorkbook.SaveAs Filename:="H:\REGISTRATIONS\ZEMD\DAILY SUMMARY\ZEMD" & FNo End Sub *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
In Excel 2003, how do I automate file naming/saving + date? | Setting up and Configuration of Excel | |||
how to automate excel file sending by outlook from within the file | Excel Discussion (Misc queries) | |||
Would Like to Automate Batch File Creation and Text FIle Import | Excel Discussion (Misc queries) | |||
automate the tab naming | Excel Discussion (Misc queries) | |||
How can I automate the naming of worksheet tabs? | Excel Discussion (Misc queries) |