Board logo

標題: [發問] 請問這個抓得下來嗎? [打印本頁]
作者: leoncc    時間: 2015-8-9 23:18     標題: 請問這個抓得下來嗎?

https://djinfo.cathaysec.com.tw/z/zc/zcl/zclCathaysec.djhtm?A=2355

怎麼試都不成功，望版上先進給予小弟解答 謝謝
作者: joey0415    時間: 2015-8-10 14:19

回復 1# leoncc

不小心試出來的，自己玩玩看吧！
  1. Sub EX()
  2.     Cells.Delete
  3.     Set ie = CreateObject("internetexplorer.application")
  4.    
  5.     With ie
  6.         .Visible = True
  7.         .Navigate "https://djinfo.cathaysec.com.tw/Z/ZC/ZCL/CZCL3Cathaysec.DJBCD?A=2355&B=Y"
  8.         Do Until .ReadyState = 4
  9.             DoEvents
  10.         Loop
  11.             data = .Document.body.innerText
  12.             arr = Split(data, " ")
  13.             
  14.             x = UBound(arr) + 1
  15.             y = UBound(Split(arr(0), ",")) + 1

  17.             For i = 1 To x
  18.                 For j = 1 To y
  19.                     Cells(j, i) = Split(arr(i - 1), ",")(j - 1)
  20.                 Next
  21.             Next
  22.             .Quit

  24.     End With
  25.    
  26.     Set ie = Nothing
  27.    
  28. End Sub
複製代碼
作者: leoncc    時間: 2015-8-10 19:40

回復 2# joey0415

您抓的是這個網址 : https://djinfo.cathaysec.com.tw/Z/ZC/ZCL/CZCL3Cathaysec.DJBCD?A=2355&B=Y

我想要的是這個網址 https://djinfo.cathaysec.com.tw/z/zc/zcl/zclCathaysec.djhtm?A=2355

把您的語法改成上述小弟想要的網址 有錯誤發生

謝謝
作者: joey0415    時間: 2015-8-10 20:25

回復 3# leoncc

網址的內容就是你要找的內容，不要亂改網頁位置
你自己比對一下就知道
作者: ShaoQiang    時間: 2015-10-4 11:28

回復  leoncc

不小心試出來的，自己玩玩看吧！
joey0415 發表於 2015-8-10 14:19


的確是可以抓~~
不知道是否有辦法把期交所的網頁抓下來呢
http://www.taifex.com.tw/chinese/3/7_12_3.asp
作者: f3202    時間: 2015-10-4 18:10

回復 5# ShaoQiang


    若以Excel匯入外部資料，請使用此連結
http://www.taifex.com.tw/chinese/3/7_12_3_tbl.asp
作者: ShaoQiang    時間: 2015-10-4 20:47

回復  ShaoQiang


    若以Excel匯入外部資料，請使用此連結
http://www.taifex.com.tw/chinese/3/7_ ...
f3202 發表於 2015-10-4 18:10


這個是可以匯入外部資料，但是隔天的資料要怎麼自動更新呢? 他這個資料不會每天自動更新:dizzy:



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)