返回列表 上一主題 發帖

[發問] Web更新網頁，會跑出 2組出來 (黃色)

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

帖子
109 
主題
12 
精華
0 
積分
177 
點名
0  
作業系統
win10 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2017-11-19 
最後登錄
2023-7-5 
1# 跳轉到 »
發表於 2018-9-5 12:22 | 顯示全部帖子
回復 1# 7777
  1. Sub Future()

  3. Dim myXML As Object
  4. Set myXML = CreateObject("Microsoft.XMLHTTP")

  6. Dim myHTML As Object
  7. Set myHTML = CreateObject("HTMLFile")

  9. ReDim myArr(1 To 55, 1 To 15)

  11. With myXML
  12.     .Open "GET", "http://info512.taifex.com.tw/Future/FusaQuote_Norl.aspx?t=" & Timer, False
  13.     .send
  14.     myHTML.body.innerHTML = .responseText
  15.     Set myTable = myHTML.getElementByID("ctl00_ContentPlaceHolder1_uc_DgFusaQuote1_dgData")
  16.     i = 1
  17.     For Each myRow In myTable.Rows
  18.         j = 1
  19.         For Each myCell In myRow.Cells
  20.             myArr(i, j) = myCell.innerText
  21.             j = j + 1
  22.         Next
  23.         i = i + 1
  24.     Next
  25. End With

  27. Range("A5").Resize(55, 15).Value = myArr

  29. Set myXML = Nothing
  30. Erase myArr
  31. End Sub
  32. Sub Opt()

  34. Dim myXML As Object
  35. Set myXML = CreateObject("Microsoft.XMLHTTP")

  37. Dim myHTML As Object
  38. Set myHTML = CreateObject("HTMLFile")

  40. ReDim myArr(1 To 30, 1 To 13)

  42. With myXML
  43.     .Open "GET", "http://info512.taifex.com.tw/Future/OptQuote_Norl.aspx?t=" & Timer, False
  44.     .send
  45.     myHTML.body.innerHTML = .responseText
  46.     Set myTable = myHTML.getElementByID("ctl00_ContentPlaceHolder1_uc_DgOptQuote1_UpdatePanel1").getElementsByTagName("table")(0)
  47.     i = 1
  48.     For Each myRow In myTable.Rows
  49.         j = 1
  50.         For Each myCell In myRow.Cells
  51.             myArr(i, j) = myCell.innerText
  52.             j = j + 1
  53.         Next
  54.         i = i + 1
  55.     Next
  56. End With

  58. Range("R5").Resize(30, 13).Value = myArr

  60. Set myXML = Nothing
  61. Erase myArr
  62. End Sub
複製代碼
Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

        靜思自在 : 要用心，不要操心、煩心。
返回列表 上一主題