標題: [發問] VBA 點選 div class 按鈕 [打印本頁]

---

作者: msmplay    時間: 2018-6-14 13:37     標題: VBA 點選 div class 按鈕

請問如何以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


第一層按鈕
<div class="panel-header accordion-header" style="width: 163px; height: 15px;" jQuery1528952991125="290" sizcache="3" sizset="0">
<div class="panel-title panel-with-icon">
文字 - 處理中心

[attach]28834[/attach]

[attach]28835[/attach]

第二層按鈕
<a class="easyui-accordion-a" href="#" rel="../InboundTrace/CC_inboundRecordListNew.aspx" ref="439" jQuery1528952991125="201">
<span class="nav">
文字 - 來電內容記錄(新)

[attach]28836[/attach]

[attach]28837[/attach]

---

作者: windbjo4    時間: 2018-7-22 11:08

先查原始碼找出按鈕的名稱
再輸入Set oHTML_Element = ie.document.getElementsByName("按鈕的名稱")(0)

   If Not oHTML_Element Is Nothing Then oHTML_Element.Click

---

作者: faye59    時間: 2018-7-25 05:58

回復 1# msmplay


    如果...
標籤a rel="../InboundTrace/CC_inboundRecordListNew.aspx"
這不是JavaScript的話我會跳過這兩個按鈕(沒有實際操作網頁不能確定)
直接在.Navigate重新輸入網址(看起來是需要驗證才能到的網址，畢竟你前面已經Login了，所以我選擇跳過這兩個步驟)
就直接到達點選的網頁了。

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)