VBA 點選 div class 按鈕

vba 點選 div class

msmplayv121068 2018-06-14 13:27:37 ‧ 8621 瀏覽

分享至

請問如何以vba登入網頁後，點選網頁連結按鈕(共兩層)，但因網頁為公司內網無法提供，還請網大幫忙看看是否有解，謝謝。
(目前登入網頁已學會，但點選按鈕測試一直失敗)
(公司電腦win7、IE8(限制升級))

Dim p As Object
Set myIE = CreateObject("InternetExplorer.Application")
With myIE
.Visible = True
.Navigate "公司網址"

Do While Busy Or .ReadyState <> 4: DoEvents: Loop

Set p = .Document.all.tags("INPUT")
.Document.all.txtUsername.innerText = "xxxxxx" '登入帳號
.Document.all.txtPassword.innerText = "xxxxxx" '登入密碼
.Document.all.ImageButton2.Click '登入

Do While Busy Or .ReadyState <> 4: DoEvents: Loop

點選第一層按鈕
點選第二層按鈕
End With

第一層按鈕

第二層按鈕

文字 - 來電內容記錄(新)

paicheng0111 iT邦大師 5 級 ‧ 2018-06-15 10:05:04 檢舉

> 點選按鈕測試一直失敗

出現怎樣的錯誤訊息？

msmplayv121068 iT邦新手 4 級 ‧ 2018-06-15 23:15:01 檢舉

@pcw 我在網路上爬文到以下巨集，但完全沒反應
----------------------------------------------
請先設定 Microsoft HTML Object Library 為引用項目。以下程式可抓取 <div class="data-nav-l"> 第一個項目，亦即「数据中心」字符。
Sub getData()
Dim oHtml As HTMLDocument
Dim oElement As Object
Set oHtml = New HTMLDocument
With CreateObject("WINHTTP.WinHTTPRequest.5.1")
.Open "GET", "http://stockpage.10jqka.com.cn/600000/", False
.send
oHtml.body.innerHTML = .responseText
End With
For Each oElement In oHtml.getElementsByClassName("data-nav-l")
Debug.Print oElement.Children(0).innerText
Next
End Sub
----------------------------------------------
另外爬文到以下巨集，但出現錯誤訊息「物件不支持此屬性或方法」
----------------------------------------------
document.getElementsByClassName('panel-title panel-with-icon')
----------------------------------------------

msmplayv121068 iT邦新手 4 級 ‧ 2018-06-19 09:39:52 檢舉

@pcw 錯誤訊息如下，雖然我覺得好像一定不是醬打，但我好像也真的找不到正確寫法了~~~~~><

Dim p As Object
Set myIE = CreateObject("InternetExplorer.Application")
With myIE
.Visible = True
.Navigate "公司網址"

Do While Busy Or .ReadyState <> 4: DoEvents: Loop

Set p = .Document.all.tags("INPUT")
.Document.all.txtUsername.innerText = "xxxxxx" '登入帳號
.Document.all.txtPassword.innerText = "xxxxxx" '登入密碼
.Document.all.ImageButton2.Click '登入

Do While Busy Or .ReadyState <> 4: DoEvents: Loop

.Document.getElementsByClassName ("panel-title panel-with-icon") '執行階段錯誤 438' 物件不支援此屬性或方法

End With

登入發表討論

直播研討會

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

直播中

2 個回答

paicheng0111

iT邦大師 5 級 ‧ 2018-06-19 15:23:39

最佳解答

我先用tag去挑，然後再去檢查innertext。
如果tag很多的話，效能會比較差。

Dim p As Object, div as object, a as object
Set myIE = CreateObject("InternetExplorer.Application")
With myIE
    .Visible = True
    .Navigate "公司網址"

    Do While Busy Or .ReadyState <> 4: DoEvents: Loop

    Set p = .Document.all.tags("INPUT")
    .Document.all.txtUsername.innerText = "xxxxxx" '登入帳號
    .Document.all.txtPassword.innerText = "xxxxxx" '登入密碼
    .Document.all.ImageButton2.Click '登入

    Do While .Busy Or .ReadyState <> 4: DoEvents: Loop

    ' 點選第一層按鈕
    for div in .Document.getelementsbytagname("div")
        if div.innertext = "處理中心" then 
            div.click
            exit for
        end if
    next div
    
    ' 點選第二層按鈕
    for a in .Document.getelementsbytagname("a")
        if a.innertext = "來電內容記錄(新)" then 
            a.click
            exit for
        end if
    next a
    
End With