Wildcard to activate another window

  • Thread starter Thread starter Rob
  • Start date Start date
R

Rob

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.
 
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
 
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
 
Back
Top