iT邦幫忙

0

Execl2003VBA網路爬蟲

  • 分享至 

  • xImage

Excel 2003 VBA 如何getElementById擷取Option標籤下Selected

我想要擷取下拉式選單中的預選資料
因為每個編號查尋出來的網頁結果預選資料都不一樣
HTML

Set mainDocument = myIE.document
Set tagid = mainDocument.getElementById("wcSWRvCtrl$ddlProjectBU")
Set taga = tagid.getElementsByTagName("option")
For i = 0 To 0
Set aa = Sheets("Sheet1").Range("a1:a100").Find("", [a100])
aa = taga(2).innerText
Next i
我只會抓到Option標籤這邊,所以我的taga(2)是固定值,要如何改成變數?
例如另一個編號查出來

P.S Selected是什麼屬性?元素?

看更多先前的討論...收起先前的討論...
faye59 iT邦新手 5 級 ‧ 2018-01-17 04:44:12 檢舉
補上MTHL
<select name="wcSWRvCtrl$ddlProjectBU" onchange="javascript:setTimeout('__doPostBack(\'wcSWRvCtrl$ddlProjectBU\',\'\')', 0)" id="wcSWRvCtrl_ddlProjectBU" disabled="disabled">
<option value=""></option>
<option value="AV">AV</option>
<option selected="selected" value="TV">TV</option>
<option value="MD">MD</option>
<option value="DT">DT</option>
<option value="MP">MP</option>
<option value="ST">ST</option>
<option value="EI">EI</option>
<option value="GD">GD</option>
<option value="IV">IV</option>
<option value="WD">WD</option>
<option value="PD">PD</option>
faye59 iT邦新手 5 級 ‧ 2018-01-17 04:44:13 檢舉
補上MTHL
<select name="wcSWRvCtrl$ddlProjectBU" onchange="javascript:setTimeout('__doPostBack(\'wcSWRvCtrl$ddlProjectBU\',\'\')', 0)" id="wcSWRvCtrl_ddlProjectBU" disabled="disabled">
<option value=""></option>
<option value="AV">AV</option>
<option selected="selected" value="TV">TV</option>
<option value="MD">MD</option>
<option value="DT">DT</option>
<option value="MP">MP</option>
<option value="ST">ST</option>
<option value="EI">EI</option>
<option value="GD">GD</option>
<option value="IV">IV</option>
<option value="WD">WD</option>
<option value="PD">PD</option>
小魚 iT邦大師 1 級 ‧ 2018-01-17 11:59:54 檢舉
select 是下拉選單
selected是設定選取狀態, 如果有兩個以上會選一個
(忘記是最前面還是最後面了)
faye59 iT邦新手 5 級 ‧ 2018-01-17 19:43:50 檢舉
我只要擷取已選取的狀態資訊
faye59 iT邦新手 5 級 ‧ 2018-01-17 19:43:51 檢舉
我只要擷取已選取的狀態資訊
圖片
  直播研討會
圖片
{{ item.channelVendor }} {{ item.webinarstarted }} |
{{ formatDate(item.duration) }}
直播中

尚未有邦友回答

立即登入回答