[發問] 網頁點選指定欄位

gn699990

各位高手
請問一下
小弟有在使用VBA自動抓網頁資料

但目前遇到一個問題
如何撰寫VBA
開啟此網頁後
http://www.gretai.org.tw/ch/stock/statistics/monthly/st42.php
可以讓滑鼠點選圖上之圈選欄位

下載 (121.42 KB)

2014-1-12 11:18

輸入代碼後
並自動按下ENTER鈕
試好久都弄不出來

以前這網頁是有"查詢"鈕
但是現在把該鈕移除了
目前程式可以把代號輸入到該欄位
卻不知如何在輸入後        自動按下ENTER
麻煩高手解惑一下

smart3135

回復 5# stillfish00
S大，我照您的程式碼執行，結果是將1256的年成交資訊以IE開啟，可以直接看到1256的年成交資訊，但不知道有沒有方法能直接將年成交資訊的內容直接匯入到工作表中呢？是要以VBA的方式來匯入，而不是IQY，另外不知道月成交資訊有沒有辦法依樣畫葫蘆，懇請指點！

gn699990

回復 5# stillfish00


感謝S大
總算搞定
困擾了好久
實在太多謝了

stillfish00

回復 4# gn699990
利用form的submit提交

1. Sub Test()
   
2.   Dim oIE As Object, oNode As Object
   
3.   
   
4.   Set oIE = CreateObject("InternetExplorer.Application")
   
5.   With oIE
   
6.     .Visible = True
   
7.     .navigate "http://www.gretai.org.tw/ch/stock/statistics/monthly/st42.php"
   
8.     Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
   
9.     Set oNode = .document.getelementbyid("input_stock_code")
   
10.     oNode.Value = 1256
    
11.     oNode.ParentNode.submit
    
12.     Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
    
13.    
    
14.     Stop
    
15.    
    
16.     .Quit
    
17.   End With
    
18. End Sub

複製代碼

gn699990

我處理的方式比較像這篇
http://forum.twbts.com/viewthread.php?tid=5956

下載 (73.08 KB)

2014-1-12 18:15

只是目前網頁把"查詢"鍵拿掉
改成需要"點選"後   按下ENTER
紅字部分這步驟          目前無法克服

gn699990

回復 2# GBKEE
感謝G大回文
您是指這篇嗎http://forum.twbts.com/thread-11046-1-1.html
但我並非要用IQY的方式做匯入

而是要使用VBA去控制網頁指令
在該欄位輸入代號後   按下ENTER鍵

目前個人功力只有辦法讓VBA在該欄位輸入代號        但ENTER搞不出來

GBKEE

回復 1# gn699990

本討論區搜尋 //www.gretai.org.tw/ch/stock/statistics/monthly/st42.php