Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Excel / New Users / September 2007

Tip: Looking for answers? Try searching our database.

How to activate window using a defined filename?

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
wel - 03 Sep 2007 13:10 GMT
I need to work between 3 different excel workbooks. I enter the
location path for 2 of the workbooks in a cell and define a name for
each of them.

I can then open the workbook if the filename changed simply by
changing in the cell that is defined.

Windows("BOOK1.xls").Activate
Sheets("sheet 1").Select
Loc1 = Range("path1")
Workbooks.Open Filename:=loc1

Windows("BOOK1.xls").Activate
Sheets("sheet 1").Select
Loc2 = Range("path2")
Workbooks.Open Filename:=loc2

How do i make use of the defined name to activate the workbook to work
on? the whole idea is something like this:

Windows("loc1").Activate
Dave Peterson - 03 Sep 2007 13:19 GMT
When you open the workbook, then that newly opened workbook should be the
activeworkbook.  You shouldn't have to do more.

But I'd use something like:

Dim Loc1 as string
dim wkbk1 as workbook

loc1 = workbooks("book1.xls").range("Path1").value
set wkbk1 = nothing
on error resume next
set wkbk1 = workbooks.open(filename:=loc1)
on error goto 0

if wkbk1 is nothing then
 msgbox "That file: " & loc1 & " doesn't exist"
else
 wkbk1.activate
end if

======
And similar stuff for the other two workbooks/locations

Then I could refer to each workbook by wkbk1, wkbk2, wkbk3.

In fact, those variable names could be confusing.  I'd use more mnemonically
significant names:

Dim PricesWkbk as workbook
dim StatusWkbk as workbook
dim EmployeesWkbk as workbook

(or what ever made sense to you.)

> I need to work between 3 different excel workbooks. I enter the
> location path for 2 of the workbooks in a cell and define a name for
[quoted text clipped - 17 lines]
>
> Windows("loc1").Activate

Signature

Dave Peterson

wel - 03 Sep 2007 15:58 GMT
Many thanks Dave.

Reason I using this is because I need to perform a lot of cut and
paste among 3 workbooks, and their filename changed monthly as in

Rec_Aug07, Rec_Sep07, Rec_Oct07 and so on...

I will try out your method.

Tks.

> When you open the workbook, then that newly opened workbook should be the
> activeworkbook.  You shouldn't have to do more.
[quoted text clipped - 57 lines]
>
> - Show quoted text -

Rate this thread:






 
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.