Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Open a Workbook Q
I found this code that opens up a workbook, saves it and closes it. I will
be calling a further macro within this code latter. My problem is that it will open a specific file called "Book1.xls", however I have a file that changes name everyweek and I wish to run below each day at 9:00am. Is it possible to have say in Sheet1 A1 the file name so that the code below can reference to it? Is that possible? Q 2 - do I place the Sub RunOnTime within a 'normal' module within my file? Thanks Sub RunOnTime() 'Run this once and at the next 9am it will run 'the procedure OpenBook2 Application.OnTime "09:00:00", "OpenBook2" End Sub Sub OpenBook2() 'This procedure opens the book2.xls file 'Prints it and closes it without saving 'It then loops back to RunOnTime and runs again 'at the next 9am Dim wb2 As Workbook Set wb2 = Workbooks.Open("C:\Book1.xls") wb2.Close SaveChanges:=True RunOnTime End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Open a Workbook Q
#1. You can pick up the name in A1 of sheet1 by changing this line:
Set wb2 = Workbooks.Open("C:\Book1.xls") to Set wb2 = Workbooks.Open(thisworkbook.worksheets("sheet1").r ange("a1").value I'm not sure how you go about updating that cell's value for the next day, though. #2. Yep. #3. If you haven't looked at Chip Pearson's notes about OnTime, you may want to review them: http://www.cpearson.com/excel/ontime.htm John wrote: I found this code that opens up a workbook, saves it and closes it. I will be calling a further macro within this code latter. My problem is that it will open a specific file called "Book1.xls", however I have a file that changes name everyweek and I wish to run below each day at 9:00am. Is it possible to have say in Sheet1 A1 the file name so that the code below can reference to it? Is that possible? Q 2 - do I place the Sub RunOnTime within a 'normal' module within my file? Thanks Sub RunOnTime() 'Run this once and at the next 9am it will run 'the procedure OpenBook2 Application.OnTime "09:00:00", "OpenBook2" End Sub Sub OpenBook2() 'This procedure opens the book2.xls file 'Prints it and closes it without saving 'It then loops back to RunOnTime and runs again 'at the next 9am Dim wb2 As Workbook Set wb2 = Workbooks.Open("C:\Book1.xls") wb2.Close SaveChanges:=True RunOnTime End Sub -- Dave Peterson |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Open a Workbook Q
Thanks Dave
I just re-name the file each week, so I guess the changed name will follow in A1, but thinking, that will mean all my 'old' files with the same command will continue to run also. Guess I just have to remove the OnTime command from them "Dave Peterson" wrote in message ... #1. You can pick up the name in A1 of sheet1 by changing this line: Set wb2 = Workbooks.Open("C:\Book1.xls") to Set wb2 = Workbooks.Open(thisworkbook.worksheets("sheet1").r ange("a1").value I'm not sure how you go about updating that cell's value for the next day, though. #2. Yep. #3. If you haven't looked at Chip Pearson's notes about OnTime, you may want to review them: http://www.cpearson.com/excel/ontime.htm John wrote: I found this code that opens up a workbook, saves it and closes it. I will be calling a further macro within this code latter. My problem is that it will open a specific file called "Book1.xls", however I have a file that changes name everyweek and I wish to run below each day at 9:00am. Is it possible to have say in Sheet1 A1 the file name so that the code below can reference to it? Is that possible? Q 2 - do I place the Sub RunOnTime within a 'normal' module within my file? Thanks Sub RunOnTime() 'Run this once and at the next 9am it will run 'the procedure OpenBook2 Application.OnTime "09:00:00", "OpenBook2" End Sub Sub OpenBook2() 'This procedure opens the book2.xls file 'Prints it and closes it without saving 'It then loops back to RunOnTime and runs again 'at the next 9am Dim wb2 As Workbook Set wb2 = Workbooks.Open("C:\Book1.xls") wb2.Close SaveChanges:=True RunOnTime End Sub -- Dave Peterson |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Open a Workbook Q
Renaming the file won't affect what's in A1, though. That would be a manual
effort??? John wrote: Thanks Dave I just re-name the file each week, so I guess the changed name will follow in A1, but thinking, that will mean all my 'old' files with the same command will continue to run also. Guess I just have to remove the OnTime command from them "Dave Peterson" wrote in message ... #1. You can pick up the name in A1 of sheet1 by changing this line: Set wb2 = Workbooks.Open("C:\Book1.xls") to Set wb2 = Workbooks.Open(thisworkbook.worksheets("sheet1").r ange("a1").value I'm not sure how you go about updating that cell's value for the next day, though. #2. Yep. #3. If you haven't looked at Chip Pearson's notes about OnTime, you may want to review them: http://www.cpearson.com/excel/ontime.htm John wrote: I found this code that opens up a workbook, saves it and closes it. I will be calling a further macro within this code latter. My problem is that it will open a specific file called "Book1.xls", however I have a file that changes name everyweek and I wish to run below each day at 9:00am. Is it possible to have say in Sheet1 A1 the file name so that the code below can reference to it? Is that possible? Q 2 - do I place the Sub RunOnTime within a 'normal' module within my file? Thanks Sub RunOnTime() 'Run this once and at the next 9am it will run 'the procedure OpenBook2 Application.OnTime "09:00:00", "OpenBook2" End Sub Sub OpenBook2() 'This procedure opens the book2.xls file 'Prints it and closes it without saving 'It then loops back to RunOnTime and runs again 'at the next 9am Dim wb2 As Workbook Set wb2 = Workbooks.Open("C:\Book1.xls") wb2.Close SaveChanges:=True RunOnTime End Sub -- Dave Peterson -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to: Open closed workbook/Search data tables/Return data to open workbook | Excel Discussion (Misc queries) | |||
Opening Excel, Book1 opens, remains open with other workbook open | Excel Discussion (Misc queries) | |||
how do i open a data workbook when i open a timesheet workbook | Excel Discussion (Misc queries) | |||
excel 2003 saved file will not open without a blank workbook open | Excel Discussion (Misc queries) | |||
How do you program so that Workbook B cannot be open unless Workbook A is open? Plus I need to validation | Excel Programming |