麻辣家族討論版版 » Excel程式區 » 請問這個抓得下來嗎?

返回列表下一主題上一主題發帖

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

小學生 Rank: 1

帖子: 15
主題: 3
精華: 0
積分: 27
點名: 0
作業系統: Win7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2013-12-23
最後登錄: 2015-8-10

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-8-9 23:18 | 只看該作者

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

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

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

樓主熱帖

收藏

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

2^#

發表於 2015-8-10 14:19 | 只看該作者

回復 1# leoncc

不小心試出來的，自己玩玩看吧！

Sub EX()
Cells.Delete
Set ie = CreateObject("internetexplorer.application")
With ie
.Visible = True
.Navigate "https://djinfo.cathaysec.com.tw/Z/ZC/ZCL/CZCL3Cathaysec.DJBCD?A=2355&B=Y"
Do Until .ReadyState = 4
DoEvents
Loop
data = .Document.body.innerText
arr = Split(data, " ")
x = UBound(arr) + 1
y = UBound(Split(arr(0), ",")) + 1
For i = 1 To x
For j = 1 To y
Cells(j, i) = Split(arr(i - 1), ",")(j - 1)
Next
Next
.Quit
End With
Set ie = Nothing
End Sub

複製代碼

小學生 Rank: 1

帖子: 15
主題: 3
精華: 0
積分: 27
點名: 0
作業系統: Win7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2013-12-23
最後登錄: 2015-8-10

3^#

發表於 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

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

4^#

發表於 2015-8-10 20:25 | 只看該作者

回復 3# leoncc

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

中學生 Rank: 2

帖子: 41
主題: 10
精華: 0
積分: 51
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2014-11-9
最後登錄: 2022-1-13

5^#

發表於 2015-10-4 11:28 | 只看該作者

回復 leoncc

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

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

中學生 Rank: 2

帖子: 75
主題: 1
精華: 0
積分: 371
點名: 1
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2024-11-15

6^#

發表於 2015-10-4 18:10 | 只看該作者

回復 5# ShaoQiang

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

中學生 Rank: 2

帖子: 41
主題: 10
精華: 0
積分: 51
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2014-11-9
最後登錄: 2022-1-13

7^#

發表於 2015-10-4 20:47 | 只看該作者

回復 ShaoQiang

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

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

靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。

返回列表下一主題上一主題