- 帖子
- 99
- 主題
- 15
- 精華
- 0
- 積分
- 164
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- office2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2017-5-30
- 最後登錄
- 2024-10-5
|
回復 2# Scott090
Scott090 大大 我花費了一段時間認識了程式碼後 自行解決了問題 還請大大過目
另外想請教 陣列 跟 單一 哪個花費起來的時間跟空間會比較多?- Sub byXMLhttp_Test2()
-
- Dim sh As Worksheet
- Dim t!, i%, j%, k%
- Dim myXML As Object, myHTML As Object, myTable, arDATA, URL$
-
- URL = "https://histock.tw/stock/financial.aspx?no=3032&t=2"
- Set sh = Worksheets("試驗頁")
- Set myXML = CreateObject("Microsoft.XMLHTTP")
- Set myHTML = CreateObject("HTMLFile")
- sh.Cells.Clear
- With myXML
- .Open "GET", URL, False
- .send
- If .Status <> 200 Then MsgBox "No successful web connection", vbOKOnly: Exit Sub
- myHTML.body.innerhtml = .responsetext
- End With
- Set myTable = myHTML.getelementsbytagname("TABLE")(0)
-
- With myTable
- i = .Rows.Length: j = .Rows(0).Cells.Length
- ReDim arDATA(i, j)
-
- k = 0 '
- For i = 1 To .Rows.Length
- If .Rows(i - 1).innertext <> "" Then
- k = k + 1
- For j = 1 To .Rows(0).Cells.Length
- Cells(k, j) = .Rows(i - 1).Cells(j - 1).innertext
- Next
- End If
- Next
- End With
- Set myXML = Nothing
- Set myHTML = Nothing
- Set myTable = Nothing
-
- End Sub
|
|
發表於 2019-4-28 20:58
| 
