t8899

以下是用 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

bobomi

流程控制好, 還是可以把效能影響降低的