返回列表 上一主題 發帖

[發問] VBA 點選 div class 按鈕

[發問] 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">
文字 - 處理中心

第一層按鈕.PNG
2018-6-14 13:36


第一層按鈕(網頁碼).JPG
2018-6-14 13:36


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

第二層按鈕.PNG
2018-6-14 13:37


第二層按鈕(網頁碼).JPG
2018-6-14 13:37

*宅女一枚無誤*

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

   If Not oHTML_Element Is Nothing Then oHTML_Element.Click

TOP

回復 1# msmplay


    如果...
標籤a rel="../InboundTrace/CC_inboundRecordListNew.aspx"
這不是JavaScript的話我會跳過這兩個按鈕(沒有實際操作網頁不能確定)
直接在.Navigate重新輸入網址(看起來是需要驗證才能到的網址,畢竟你前面已經Login了,所以我選擇跳過這兩個步驟)
就直接到達點選的網頁了。
一分努力,一分收穫。
發問題前可以先搜索內文是否有相關範例。

TOP

        靜思自在 : 是非當教育,讚美作警惕。
返回列表 上一主題