iT邦幫忙

0

Excel VBA控制IE問題

https://ithelp.ithome.com.tw/upload/images/20210317/20134808sjwDMPsV7l.jpg

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

3
paicheng0111
iT邦高手 1 級 ‧ 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 

2
海綿寶寶
iT邦大神 1 級 ‧ 2021-03-17 08:47:02

參考這篇

1
blanksoul12
iT邦新手 4 級 ‧ 2021-03-17 17:31:13

看看 xmlhttp 的控制法吧,雖然比較難,但可以做的和速度上都比IE法快很多很多

我要發表回答

立即登入回答