返回列表 上一主題 發帖

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

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

本帖最後由 t8o2m0 於 2020-2-15 23:35 編輯

請問各位高手
我想寫一個自動填網頁內容的 但是遇到點困難
是一個填寫高鐵訂票頁面的  前面都沒問題  但在填寫時間的時候就會出錯
他在RUN的時後 會因為下拉表單value="1201A"
1201A 是數字+英文的組合 所以出現錯誤 想問要怎麼解   如附件

已經在網路上爬過許多文 始終不得其解
不得已才來求助各位高手:Q
請幫幫VBA新手的我吧  感謝QQ
------------------------------------------------------------------------------------
以下為VBA程式碼
.all("backTimeTable")("1201A").Selected = True

或者

.all("backTimeTable").Value = "1201A"
------------------------------------------------------------------------------------
以下為網頁的一段下拉式選單原始碼   
(假設我要讓他選擇00:00的時候value="1201A")
<select name="backTimeTable">
<option selected="selected" value="">請選擇...</option>
<option value="1201A">00:00</option>
<option value="1230A">00:30</option>
<option value="600A">06:00</option>
<option value="630A">06:30</option>
<option value="700A">07:00</option>
<option value="730A">07:30</option>
<option value="800A">08:00</option>
<option value="830A">08:30</option>
<option value="900A">09:00</option>
<option value="930A">09:30</option>
<option value="1000A">10:00</option>
<option value="1030A">10:30</option>
<option value="1100A">11:00</option>
<option value="1130A">11:30</option>
<option value="1200N">12:00</option>
<option value="1230P">12:30</option>
<option value="100P">13:00</option>
<option value="130P">13:30</option>
<option value="200P">14:00</option>
<option value="230P">14:30</option>
</select>

高鐵.zip (27.89 KB)

回復 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

回復 2# jcchiang


真是太感謝大大:P   終於解決了
註解 2020-02-17 205314.png
但是下面選票數量又卡住....


是因為有冒號的關係嗎?  是的話要怎麼解決:'(
高鐵改.zip (30.74 KB)

TOP

回復 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

回復 4# jcchiang

:)  感謝大大  到這終於全部解決了XD

TOP

        靜思自在 : 慈悲沒有敵人,智慧不起煩惱。
返回列表 上一主題