- 帖子
- 75
- 主題
- 1
- 精華
- 0
- 積分
- 371
- 點名
- 1
- 作業系統
- win7
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 註冊時間
- 2010-5-4
- 最後登錄
- 2024-5-23
|
回復 1# DanielWONG
Sub 香港交易所_test()
Dim Stock1 As String
Dim oXmlhttp As Object, oHtmldoc As Object, surl As String, E As Object, R As Integer, C As Integer
Set oXmlhttp = CreateObject("msxml2.xmlhttp")
Set oHtmldoc = CreateObject("htmlfile")
surl = "https://hk.finance.yahoo.com/quote/0388.HK"
With oXmlhttp
.Open "Get", surl, False
.send
oHtmldoc.Write .responseText
End With
ActiveSheet.Cells.Clear
With oHtmldoc
Set E = .all.tags("table")(1)
For R = 0 To E.Rows.Length - 1
For C = 0 To E.Rows(R).Cells.Length - 1
ActiveSheet.Cells(R + 1, C + 1) = E.Rows(R).Cells(C).innerText
Next
Next
End With
End Sub |
|
發表於 2018-6-16 17:46
| 
