 |
 | Home | Contact Us | FAQ | Search & Site Map | Link to Us |
 | Sign In | Join | Other 45 Sites in Network |
| HomeDiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWordDirectoryUser Groups Related Topics Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ... |
MS Office Forum / Excel / Programming / March 2006activating a workbook
I need to activate a workbook through a cell reference. the workook name is stored in cell A1 as "pnlreport_060321.xls". This name automatically changes daily based on the date. This is how I wrote the code to activate the workbook: Sub import() Dim fileA As String fileA = Range("A1").Value windows("fileA").Activate End Sub Please HELP. How would I activate a workbook which is already open. I cannot use the file name in the code because the name changes every day. Thanks : ) if it's already open, just delete the quotes Windows(fileA).Activate  SignatureGary >I need to activate a workbook through a cell reference. the workook > name is stored in cell A1 as "pnlreport_060321.xls". This name [quoted text clipped - 14 lines] > > Thanks : ) Gary It still does not work. Gives me a Run-Time Error 9 message: Subscript out of range. Thanks also, is the workbook already open, or do you need code to open it, too? SignatureGary > Gary > It still does not work. Gives me a Run-Time Error 9 message: Subscript > out of range. > Thanks The workbook is already open. Need to activate that open workbook. filename to open that workbook is located in cell A1 of current workbook (the workbook in which I am writing the macros). :) if it's already loaded, try this. you may not have the file extension in A1 Windows(fileA & ".xls").Activate SignatureGary > Gary > It still does not work. Gives me a Run-Time Error 9 message: Subscript > out of range. > Thanks Again gives me same Run Time Error '9': Subscript out of range. Makes the line Windows(fileA & ".xls").Activate as yellow. Thnx you have & ".xls" already in A1, i didn't know until you just posted the formula, so this wouldn't work. SignatureGary > Again gives me same Run Time Error '9': Subscript out of range. Makes > the line Windows(fileA & ".xls").Activate as yellow. > > Thnx what, exactly, is in A1 SignatureGary >I need to activate a workbook through a cell reference. the workook > name is stored in cell A1 as "pnlreport_060321.xls". This name [quoted text clipped - 14 lines] > > Thanks : ) A1 in the current workbook gives me the file name that changes everyday due to date. A1 shows: ="pnlreport_"& TEXT(now(),"yymmdd")& ".xls" this will produce: pnlreport_060321.xls if today's date is 21st March 2006. I need to activate this file, which is already open through VB. But it gives me a run time error in above code. Thanks i put your formula in A1 and this worked for me Windows(fileA).Activate maybe you should qualify the range with the sheet name, since i don't know what the active sheet is fileA = workbooks("YourWorkbookName").worksheets("YourSheetName").Range("A1").Value SignatureGary > A1 in the current workbook gives me the file name that changes everyday > due to date. [quoted text clipped - 7 lines] > > Thanks IT WORKS GARY!!!! thank you so much and thanks a millionsss. i really appreciate your help Dhaval you're welcome SignatureGary > IT WORKS GARY!!!! > thank you so much and thanks a millionsss. > i really appreciate your help > > Dhaval |
Reply to this Message |
 Sign In
 Join
 My Latest Posts My Monitored Threads My Blog My Photo Gallery My Profile My Homepage Start New Thread Enable EMail Alerts Rate this Thread
|
©2008 Advenet LLC Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.