返回列表 上一主題 發帖

[發問] 求解! 感恩~ IE自動填表的問題

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
1# 跳轉到 »
發表於 2020-2-17 14:01 | 顯示全部帖子
回復 1# t8o2m0
試試看:
宣告函數:
Dim post As Object, elem As Object
將:
.all("toTimeTable")(toTimeTable).Selected = True
改為:
Set post = .getElementById("toTimeTable")
For Each elem In post.getElementsByTagName("option")
   If elem.Value = toTimeTable Then elem.Selected = True: Exit For
Next elem

TOP

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
2#
發表於 2020-2-18 08:07 | 顯示全部帖子
回復 3# t8o2m0

.all("ticketPanel:rows:0:ticketAmount").Value = "3F"             '全票   3張
.all("ticketPanel:rows:1:ticketAmount").Value = "2H"            '孩童票(6-11歲) 2張
.all("ticketPanel:rows:2:ticketAmount").Value = "3W"           '愛心票 3張
.all("ticketPanel:rows:3:ticketAmount").Value = "2E"             '敬老票(65歲以上) 2張
.all("ticketPanel:rows:4:ticketAmount").Value = "1P"             '大學生優惠票 1張

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
返回列表 上一主題