- 帖子
- 508
- 主題
- 53
- 精華
- 0
- 積分
- 583
- 點名
- 83
- 作業系統
- win 10
- 軟體版本
- []
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-3-19
- 最後登錄
- 2024-4-24
          
|
回復 1# paul3063
試試看- Sub TWSEtest()
- Dim sh As Worksheet
- Dim iDate$, stock$, yYear$, mMonth$, URL$
- Dim arDATA(), Table
- Dim i%, j%
- Set sh = Sheets("工作表1")
- sh.Activate
- Cells.Clear
-
- stock = "2330" '設定代號
- yYear = "2017" '設定年度
- mMonth = "01" '設定月份
- iDate = yYear & mMonth & "01"
-
- URL = "http://www.twse.com.tw/exchangeReport/STOCK_DAY_AVG?response=Html&date=" & iDate & "&stockNo=" & stock
-
- With CreateObject("InternetExplorer.Application")
- .Visible = False ' 不顯示 IE
- .Navigate URL
- Do While .readyState <> 4
- DoEvents
- Loop
-
- Set Table = .document.getElementsBytagname("table")(0)
-
- With Table
- ReDim arDATA(.Rows.Length, .Rows(1).Cells.Length)
- For i = 0 To .Rows.Length - 1
- For j = 0 To .Rows(1).Cells.Length - 1
- On Error Resume Next
- arDATA(i + 1, j + 1) = .Rows(i).Cells(j).innertext
- Next
- Next
- End With
-
- sh.Cells(1, 1).Resize(UBound(arDATA), UBound(arDATA, 2)) = arDATA
- [A1].Select
-
- .Quit '關閉瀏覽器
-
- End With
-
- Set Table = Nothing
- Set sh = Nothing
- Erase arDATA()
- End Sub
|
|
發表於 2017-12-19 17:24
| 
