Snasui Excel Forum

Code: Select all

Sub GetIE()
marker = 0
Set objShell = CreateObject("Shell.Application")
IE_count = objShell.Windows.Count
For x = 0 To (IE_count - 1)
    On Error Resume Next
    my_url = objShell.Windows(x).Document.Location
    my_title = objShell.Windows(x).Document.Title

    If my_title Like "Google" & "*" Then     ' ตรงนี้ใส่ Title ของ Web ที่ต้องการค้นหาครับ
        Set IE = objShell.Windows(x)
        marker = 1
        Exit For
    Else
    End If
Next

If marker = 0 Then
        MsgBox ("ท่านยังไม่ได้เปิด Web ครับ")
Else
IE.Visible = False
DoEvents
IE.Visible = True   ' ต้องการให้มันเด้งไปที่ Tab Google ครับ
End If
End Sub

Code: Select all

If LCase(my_title) Like LCase("Google") & "*" Then  'เปลี่ยน Title ตรงนี้
    Set IE = objShell.Windows(0)
    IE.Visible = True
    IE.Navigate my_url
    marker = 1
    Exit For
End If