- 帖子
- 764
- 主題
- 254
- 精華
- 0
- 積分
- 1031
- 點名
- 0
- 作業系統
- windows 11
- 軟體版本
- OFFICE2021
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2011-5-30
- 最後登錄
- 2025-5-16
|
21#
發表於 2015-4-5 21:20
| 只看該作者
本帖最後由 t8899 於 2015-4-5 21:25 編輯
以下是用 XMLHTTP 抓出來的內容
可以看到有欄位名稱, 但抓不到數值
那個網頁的數值是用 javascript 事後補 ...
bobomi 發表於 2015-4-5 20:39 
這種5秒5秒一直更新，只有javascript 才做的到??
用IE 抓資料，速度太慢........太消眊資源...............再找看看有無其他法!
我目前是用GBKEE兄寫的,稍微做部份修改如下
Set Ie = CreateObject("InternetExplorer.Application")
Ie.Navigate "http://mis.twse.com.tw/stock/group.jsp?ex=tse&ind=TIDX#STATISTICS"
Dim timeie
timeie = DateAdd("s", 10, Now())
Do While Ie.Busy Or Ie.ReadyState <> 4
DoEvents
If timeie < Now() Then
MsgBoxTest 0, "無法連接網站,請重新執行", "提示訊息", vbSystemModal, 0, 2000
Ie.Quit
Exit Sub
End If
Loop
-----------------------------------------------------------------------------
Dim i As Integer, S As Integer, k As Integer, j As Integer
Dim Element
Set Element = Ie.document.getelementsbytagname("table")
With Sheets("sheet5")
' .Range("C1:C17").ClearContents
For S = 2 To 3 '已找出網頁的table內容在 0-3 中
For i = 0 To Element(S).Rows.Length - 1
k = k + 1
' For j = 0 To Element(S).Rows(i).Cells.Length - 1 '資料的欄位共6位
j = 2
.Cells(k, j + 1) = Element(S).Rows(i).Cells(j).innerText
' Next
Next
Next
End With
Set Element = Nothing |
|
