[發問] 請問這個抓得下來嗎?

leoncc

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

怎麼試都不成功，望版上先進給予小弟解答 謝謝

joey0415

回復 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
    
16. 
    
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
    
23. 
    
24.     End With
    
25.    
    
26.     Set ie = Nothing
    
27.    
    
28. End Sub

複製代碼

leoncc

回復 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

回復 3# leoncc

網址的內容就是你要找的內容，不要亂改網頁位置
你自己比對一下就知道

ShaoQiang

回復  leoncc

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

的確是可以抓~~
不知道是否有辦法把期交所的網頁抓下來呢
http://www.taifex.com.tw/chinese/3/7_12_3.asp

f3202

回復 5# ShaoQiang


    若以Excel匯入外部資料，請使用此連結
http://www.taifex.com.tw/chinese/3/7_12_3_tbl.asp

ShaoQiang

回復  ShaoQiang


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

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