Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Activate Worksheet
The following code gives me a list of filenames I've chosen from the open
file dialog (file 1). Other code then opens the first file in the list (call it file 2), and if a specific sheet name exists in that file, it runs a macro from the file the list of names is in (file 1). The macro runs in the correct file (file 2), but I run into problems when I need to run a second macro from file 1 because I need to activate file 2 again and make sure the macro runs there. I've been able to do this so far by activating Window 2, but if the user has multiple files open I'm dead. Since I assign FName to a variable in the code, can't I refer to FName to reactivate that file? I've tried a few things but none have worked so far; I'm sure it's something simple. Sub ShowFileNames() Dim FName As Variant Dim xNames As Range Sheets("Files").Select Range("A1").Select Set xNames = Range("xFiles") FName = ActiveCell For Each FName In xNames Workbooks.Open FName If SheetExists("PT - Selected Mfr") Then ClearPivottable BuildPivottable Else End If |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Activate Worksheet
When I amn working with multiple open files at one time I like to set
references to those files explicitly something like this... Sub test() Dim wbkMain As Workbook Dim wbkNewBook As Workbook Dim wbkIsOpen As Workbook Dim wbkOpened As Workbook Set wbkMain = ThisWorkbook Set wbkNewBook = Workbooks.Add Set wbkIsOpen = Workbooks("ExcessByBranch.xls") Set wbkOpened = Workbooks.Open("C:\Test.xls") wbkNewBook.Activate wbkNewBook.Sheets("Sheet2").Select End Sub I can now refer to the workbooks using wbk... which makes moving back and forth between books a lot easier and to perform and debug as I do not need to wory about the activeworkbook and such... This reply is a little general but It should help you get started... HTH "cottage6" wrote: The following code gives me a list of filenames I've chosen from the open file dialog (file 1). Other code then opens the first file in the list (call it file 2), and if a specific sheet name exists in that file, it runs a macro from the file the list of names is in (file 1). The macro runs in the correct file (file 2), but I run into problems when I need to run a second macro from file 1 because I need to activate file 2 again and make sure the macro runs there. I've been able to do this so far by activating Window 2, but if the user has multiple files open I'm dead. Since I assign FName to a variable in the code, can't I refer to FName to reactivate that file? I've tried a few things but none have worked so far; I'm sure it's something simple. Sub ShowFileNames() Dim FName As Variant Dim xNames As Range Sheets("Files").Select Range("A1").Select Set xNames = Range("xFiles") FName = ActiveCell For Each FName In xNames Workbooks.Open FName If SheetExists("PT - Selected Mfr") Then ClearPivottable BuildPivottable Else End If |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how to activate the scrolling within the worksheet? | Excel Discussion (Misc queries) | |||
Help! Activate worksheet from a listbox | Excel Worksheet Functions | |||
Worksheet.activate | Excel Discussion (Misc queries) | |||
Worksheet Activate Event | Excel Programming | |||
Worksheet activate | Excel Programming |