返回列表 上一主題 發帖

[發問] VBA 點選 div class 按鈕

msmplay

帖子
218 
主題
73 
精華
0 
積分
290 
點名
0  
作業系統
WIN10 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2014-5-19 
最後登錄
2022-11-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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">
文字 - 處理中心

第一層按鈕.PNG



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

第二層按鈕.PNG


收藏 分享
*宅女一枚無誤*

windbjo4

帖子
6 
主題
1 
精華
0 
積分
51 
點名
0  
作業系統
win 
軟體版本
7 
閱讀權限
20 
性別
男 
註冊時間
2017-3-4 
最後登錄
2018-8-5 
2#
發表於 2018-7-22 11:08 | 只看該作者
先查原始碼找出按鈕的名稱
再輸入Set oHTML_Element = ie.document.getElementsByName("按鈕的名稱")(0)

   If Not oHTML_Element Is Nothing Then oHTML_Element.Click

TOP

faye59
　暱稱: 温奇
　頭銜: 議論者

中學生Rank: 2

帖子
104 
主題
5 
精華
0 
積分
110 
點名
0  
作業系統
win7 
軟體版本
Office2007 
閱讀權限
20 
性別
男 
註冊時間
2017-11-14 
最後登錄
2019-4-30 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2018-7-25 05:58 | 只看該作者
回復 1# msmplay


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

TOP

        靜思自在 : 有時當思無時苦，好天要積雨來糧。
返回列表 上一主題