Snasui Excel Forum

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

:D ผมไม่มี IE8 ให้ทดสอบ ตัวอย่างการปรับ Code ครับ

[code]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
[/code]

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

สอบถามครับ ให้ VBA ค้นหา แล้วเลือก Tab ใน Internet Explorer ครับ (IE8 ครับ)

ปัจจุบันเปิดใช้งาน IE หลาย Tab พร้อมกันครับ เช่น Google , MSN , Livescore ตัวอย่างนะครับ

ความต้องการนะครับ
-เวลากดปุ่มทำงาน อยากให้ IE หน้าจอไป Active และให้เด้งไปที่ Tab Google ที่เราเปิดไว้ครับ
ตัวอย่างในที่นี้ ผมอยากให้มันไปทำงานที่ Google โดยผมให้ vba ค้นหาจาก Title

จาก Code ที่ได้มานะครับ
-ผลการค้นหา สามารถค้นหาได้ว่าได้เปิด web google ไว้แล้ว แต่ว่ามันไม่เด้งไปที่ Tab Google
มันจะไปที่ Tab ล่าสุดที่เปิดไว้ครับ

Code นะครับ
[code]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]

ขอบคุณล่วงหน้าครับ