iT邦幫忙

0

VBA 使用 IE 點選網頁連結問題

vba
  • 分享至 

  • xImage

1.工作需求需要使用 VBA 使用 IE 點選網頁連結,目前 VBA 無法成功點選想要的網頁連結!
點選網頁連結的圖片=>https://ithelp.ithome.com.tw/upload/images/20220611/20149784aa8T7ZdZRG.jpg

網頁連結的程式=>https://ithelp.ithome.com.tw/upload/images/20220611/20149784i0AjAqWlXQ.jpg

2.目前寫的程式碼沒有反應無法順利點選連結。

Sub test()
Dim a As Object
 Set oIE = CreateObject("internetexplorer.application")
    With oIE
        .Visible = True
        .navigate "https://網址(不方便提供)"     
        Do While .ReadyState <> 4
        DoEvents
        Loop
        If Application.Wait(Now + TimeValue("0:00:02")) Then
        End If

        For Each a In oIE.Document.getElementsByTagName("a")
        If a.innertext = "a" Then
            a.Click
            Exit For
        End If
        Next a
        
    End With

End Sub
  1. 使用以下語法也無法成功
    oIE.Document.getElementsByTagName("a")(0).Click

請求高手指點解惑

圖片
  直播研討會
圖片
{{ item.channelVendor }} {{ item.webinarstarted }} |
{{ formatDate(item.duration) }}
直播中

1 個回答

0
paicheng0111
iT邦大師 5 級 ‧ 2022-06-11 14:52:30
If a.innertext = "a" Then
...

把"a"改成下圖的文字

kapciynr iT邦新手 5 級 ‧ 2022-06-11 16:02:07 檢舉

將 "a" 改成圖片文字也是沒有反應無法點選連結,是否有其它方法可供參考?

你要先確定你真的有找到你要的a元素。
你可以把a.click換成msgbox "found",確認你真的可以找到該a元素。

我要發表回答

立即登入回答