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

t8o2m0

請問各位高手
我想寫一個自動填網頁內容的 但是遇到點困難
是一個填寫高鐵訂票頁面的  前面都沒問題  但在填寫時間的時候就會出錯
他在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>

jcchiang

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

t8o2m0

回復 2# jcchiang


真是太感謝大大:P   終於解決了

下載 (10.87 KB)

2020-2-17 20:54

但是下面選票數量又卡住....

下載 (5.12 KB)

2020-2-17 20:57

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

下載次數: 6

2020-2-17 20:59

下載 (15.12 KB)

2020-2-17 20:57

jcchiang

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

t8o2m0

回復 4# jcchiang

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