Excel VBA控制IE問題

excel vba

darban 2021-03-17 08:38:48 ‧ 1793 瀏覽

分享至

Sub Maerf001()
Dim iee As InternetExplorer
Set iee = CreateObject("InternetExplorer.application")
iee.Visible = True
iee.navigate ("某網頁網址")
Do While iee.readyState <> READYSTATE_COMPLETE
Loop

'這裡要怎麼寫才能控制IE點選"連接2"呢?求高手教導

Do While iee.readyState <> READYSTATE_COMPLETE
Loop
iee.ExecWB 17, 2
iee.ExecWB 12, 2
Range("A1").Select
Selection.PasteSpecial

End Sub

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

3 個回答

paicheng0111

iT邦大師 5 級 ‧ 2021-03-17 10:02:40

最佳解答

大概會是這樣

Dim webAs As object, webA As Object

'略...
Do While iee.readyState <> READYSTATE_COMPLETE
Loop

Set webAs = iee.document.GetElementsByTagname("a")
For Each webA in webAs
    If webA.InnerText = "連接2" Then
        webA.Click
        exit for
    End if
Next