返回列表 上一主題 發帖

請益爬網站資料的問題

請益爬網站資料的問題

test2是quickfixer幫我寫出來的
我一樣畫葫蘆將網址改成其他的
可是卻顯示出跟網頁的不同
這之中是有甚麼差異嗎?
  1. Sub test1()
  2.     Dim xml As Object, url As String, temp
  3.     Set xml = CreateObject("msxml2.xmlhttp")
  4.    
  5.     url = "https://www.wantgoo.com/stock/2330/major-investors/main-trend-data"
  6.     xml.Open "GET", url, False
  7.     xml.send
  8.     temp = xml.responseText
  9.    
  10.     MsgBox temp
  11.    
  12.     Set getxml = Nothing

  13. End Sub

  14. Sub test2()
  15.     Dim xml As Object, url As String, temp
  16.     Set xml = CreateObject("msxml2.xmlhttp")
  17.    
  18.     url = "https://fubon-ebrokerdj.fbs.com.tw/Z/ZC/ZCL/CZCL3.DJBCD?A=2330&B=Y"
  19.     xml.Open "GET", url, False
  20.     xml.send
  21.     temp = xml.responseText
  22.    
  23.     MsgBox temp
  24.    
  25.     Set getxml = Nothing

  26. End Sub
複製代碼

回復 1# vuptp6


    我什麼時候寫過這東西?
你要問test1 wantgoo爬網站吧,去01文書區
那邊有大神2018/02/11就寫過了,最近wantgoo改版,也有修正了
直接下載就能用了:lol

TOP

回復 2# quickfixer


我把以下內容都刪了:shutup:
想測試跟其他不同之處
可是顯示的卻不同

謝謝,我去mobile看看

TOP

        靜思自在 : 人的心地是一畦田,土地沒有播下好種子,也長不出好的果實。 -
返回列表 上一主題