- 帖子
- 16
- 主題
- 3
- 精華
- 0
- 積分
- 65
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- office2010
- 閱讀權限
- 20
- 註冊時間
- 2019-2-19
- 最後登錄
- 2024-9-23
|
請益爬網站資料的問題
test2是quickfixer幫我寫出來的
我一樣畫葫蘆將網址改成其他的
可是卻顯示出跟網頁的不同
這之中是有甚麼差異嗎?- Sub test1()
- Dim xml As Object, url As String, temp
- Set xml = CreateObject("msxml2.xmlhttp")
-
- url = "https://www.wantgoo.com/stock/2330/major-investors/main-trend-data"
- xml.Open "GET", url, False
- xml.send
- temp = xml.responseText
-
- MsgBox temp
-
- Set getxml = Nothing
- End Sub
- Sub test2()
- Dim xml As Object, url As String, temp
- Set xml = CreateObject("msxml2.xmlhttp")
-
- url = "https://fubon-ebrokerdj.fbs.com.tw/Z/ZC/ZCL/CZCL3.DJBCD?A=2330&B=Y"
- xml.Open "GET", url, False
- xml.send
- temp = xml.responseText
-
- MsgBox temp
-
- Set getxml = Nothing
- End Sub
|
|
發表於 2021-8-4 14:15
| 
