Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Daily Report Template
I have some daily reports templates set up to open and save with a date
related name in a preset folder. I have them working so that if the file already exists with the date in name it will add (x). Example C:\MyReports\DailyReport 12-25-09(1).xls for the second time template is used. I would like to use a msgbox to give the user a choice of reopening the first copy rather than making a second. I have it set up to work except my statements for opening the first file does not open it. sample of my code: If Ans = vbYes Then Me.Close SaveChanges:=False Dim wb1 As Workbook wb1 = Workbooks.Open(myPath & myFile & myExt) wb1.Activate wb1.visble = True Can anyone tell me what I am doing wrong here. Thanks SC -- SC from Lubbock, Texas |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Daily Report Template
You are using the Me key word which in this case probably refers to the
active workbook. If you close the workbook running the code, the rest of the code will not execute, or it might just give you an error message. Try opening the other workbook first and then close the workbook running the code. Better yet, if you do not really want to close the workbook running the code, then use the actual workbook name or an object variable for it. "SC in Texas" wrote in message ... I have some daily reports templates set up to open and save with a date related name in a preset folder. I have them working so that if the file already exists with the date in name it will add (x). Example C:\MyReports\DailyReport 12-25-09(1).xls for the second time template is used. I would like to use a msgbox to give the user a choice of reopening the first copy rather than making a second. I have it set up to work except my statements for opening the first file does not open it. sample of my code: If Ans = vbYes Then Me.Close SaveChanges:=False Dim wb1 As Workbook wb1 = Workbooks.Open(myPath & myFile & myExt) wb1.Activate wb1.visble = True Can anyone tell me what I am doing wrong here. Thanks SC -- SC from Lubbock, Texas |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Daily Report Template
Thanks "JLGWhiz" I finally realized that I need to change the order of the
commands while driving home yesterday. Should caught that sooner, I guess I was hung up on needing to close the new report and open the previous made report and was trying to do it in that order. I already fixed the problem this morning. SC -- SC from Lubbock, Texas "JLGWhiz" wrote: You are using the Me key word which in this case probably refers to the active workbook. If you close the workbook running the code, the rest of the code will not execute, or it might just give you an error message. Try opening the other workbook first and then close the workbook running the code. Better yet, if you do not really want to close the workbook running the code, then use the actual workbook name or an object variable for it. "SC in Texas" wrote in message ... I have some daily reports templates set up to open and save with a date related name in a preset folder. I have them working so that if the file already exists with the date in name it will add (x). Example C:\MyReports\DailyReport 12-25-09(1).xls for the second time template is used. I would like to use a msgbox to give the user a choice of reopening the first copy rather than making a second. I have it set up to work except my statements for opening the first file does not open it. sample of my code: If Ans = vbYes Then Me.Close SaveChanges:=False Dim wb1 As Workbook wb1 = Workbooks.Open(myPath & myFile & myExt) wb1.Activate wb1.visble = True Can anyone tell me what I am doing wrong here. Thanks SC -- SC from Lubbock, Texas . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Where can I find a Outside Sales Daily Call Report Template? | Excel Discussion (Misc queries) | |||
Macro to Open Daily Report | Excel Discussion (Misc queries) | |||
Automation of report, daily, monthly then yearly as per need | Excel Programming | |||
daily cash report | Excel Worksheet Functions |