返回列表 上一主題 發帖

[發問] 如何將下載下來的資料保持原來格式

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

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

要不要試試看VBA的方法?
  1. Sub test()

  3. 'Dim t: t = Timer

  5. Cells.Clear

  7. Dim myXML As Object
  8. Set myXML = CreateObject("Microsoft.XMLHTTP")

  10. Dim myHTML As Object
  11. Set myHTML = CreateObject("HTMLFile")

  13. With myXML
  14.     .Open "GET", "http://www.twse.com.tw/exchangeReport/MI_INDEX?response=html&date=" & Format(Now(), "yyyy/mm/dd") & "&type=ALLBUT0999", False
  15.     .send
  16.    
  17.     myHTML.body.innerHTML = .responseText
  18.     Set myTable = myHTML.getElementsByTagName("Table")(4)
  19.     i = 1
  20.    
  21.     For Each myRow In myTable.Rows
  22.         j = 1
  23.         For Each myCell In myRow.Cells
  24.             If j = 1 Then
  25.                 Cells(i, j) = "'" & myCell.innerText
  26.             Else
  27.                 Cells(i, j) = myCell.innerText
  28.             End If
  29.             j = j + 1
  30.         Next
  31.         i = i + 1
  32.     Next
  33.    
  34. End With

  36. Set myXML = Nothing

  38. 'Debug.Print Format(Timer - t, "0.00秒")

  40. End Sub
複製代碼
Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

帖子
109 
主題
12 
精華
0 
積分
177 
點名
0  
作業系統
win10 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2017-11-19 
最後登錄
2023-7-5 
2#
發表於 2018-4-29 15:43 | 顯示全部帖子
回復 5# zheng211016

若有問題再提出~
Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

        靜思自在 : 人生不一定球球是好球，但是有歷練的強打者，隨時都可以揮棒。
返回列表 上一主題