Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Wildcard to activate another window
Hello. I'm trying to make another window active which will have the file
name of "WIPDrilldownExport(__).xls", where only one character appears in the parentheses and could be a 1, 2, or 3. The line Windows("WIPDrilldownExport(#).xls").Activate doesn't work. Thanks in advance. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Wildcard to activate another window
Option Explicit
Sub testme() Dim myWindow As Window For Each myWindow In Application.Windows If LCase(myWindow.Caption) Like LCase("WIPDrilldownExport(?).xls") Then myWindow.Activate Exit For End If Next myWindow End Sub I usually go through the workbooks collection so I don't have to worry about any modifications to the window's caption: Option Explicit Sub testme() Dim wkbk As Workbook For Each wkbk In Application.Workbooks If LCase(wkbk.Name) Like LCase("WIPDrilldownExport(?).xls") Then wkbk.Activate Exit For End If Next wkbk End Sub Rob wrote: Hello. I'm trying to make another window active which will have the file name of "WIPDrilldownExport(__).xls", where only one character appears in the parentheses and could be a 1, 2, or 3. The line Windows("WIPDrilldownExport(#).xls").Activate doesn't work. Thanks in advance. -- Dave Peterson |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Wildcard to activate another window
A procedure to activate the window using a search string. If you are sure
there is not other workbook opened which contain the numeric 1 you can usel this as ActivateBookwithKeyword ("1") Sub ActivateBookwithKeyword(strSearch As String) For intTemp = 1 To Workbooks.Count If InStr(1, Workbooks(intTemp).Name, strSearch, 1) < 0 Then Workbooks(intTemp).Activate Exit Sub End If Next End Sub If this post helps click Yes --------------- Jacob Skaria "Rob" wrote: Hello. I'm trying to make another window active which will have the file name of "WIPDrilldownExport(__).xls", where only one character appears in the parentheses and could be a 1, 2, or 3. The line Windows("WIPDrilldownExport(#).xls").Activate doesn't work. Thanks in advance. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Using Wildcard to Activate & Rename Workbooks | Excel Programming | |||
Workbook.Activate / Window.Activate problem | Excel Programming | |||
Activate an Excel spreadsheet using wildcard name | Excel Programming | |||
Activate new window | Excel Programming | |||
Activate new window | Excel Programming |