[發問] 如何下載網頁價量明細

https://pchome.megatime.com.tw/stock/sto0/ock3/sid1216.html
想copy上方網址價量明細
請問要如何用excel vba達成?

樓主熱帖

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2020-6-16 00:40 | 只看該作者

推一下
請問有大大知道如何下載版主提供的網站嗎?
https://pchome.megatime.com.tw/stock/sto0/ock3/sid1216.html
小弟也疑惑中

另外一個可以下載的網站
一次只會顯示最多300筆資料
還是有人會控制可以顯示所有的資料也可以
https://ww2.money-link.com.tw/TWStock/StockTick.aspx?SymId=2330

也還有一個網站可以下載明細,也是完整的
https://www.moneynet.com.tw/stoc ... 2%E9%9B%9C%E8%AA%8C
但此網站似乎更複雜,有人可以分享一下如何下載完整的價量明細嗎?

PKKO

TOP

quickfixer

中學生 Rank: 2

帖子: 154
主題: 1
精華: 0
積分: 200
點名: 28
作業系統: windwos 7
軟體版本: 64bit
閱讀權限: 20
註冊時間: 2017-5-29
最後登錄: 2024-10-22

3^#

發表於 2020-6-16 04:38 | 只看該作者

本帖最後由 quickfixer 於 2020-6-16 04:39 編輯

回復 2# PKKO

GBKEE大,5/10在這裡有回答過,2篇文章也才差10天
http://forum.twbts.com/thread-22543-1-1.html

Sub Ex()
Dim R As Integer, C As Integer
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "https://pchome.megatime.com.tw/stock/sto0/ock3/sid1216.html"
Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
With .Document.all.tags("table")(2)
For R = 0 To .Rows.Length - 1
For C = 0 To .Rows(R).Cells.Length - 1
ActiveSheet.Cells(R + 1, C + 1) = .Rows(R).Cells(C).innerText
Next
Next
End With
.Quit
End With
End Sub

複製代碼

https://www.mobile01.com/topicdetail.php?f=511&t=4737630
對速度有要求不要錯過01這篇,非常快
#797有pchome的code

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2020-6-16 11:50 | 只看該作者

本帖最後由 PKKO 於 2020-6-16 11:55 編輯

回復 3# quickfixer

感謝:quickfixer 大大的回覆
1. 是我沒有爬文清楚
2. 您的回覆非常精準
2-1. 您的回覆直接回答了我的答案,且標示了期他的建議文章,和建議文章的位置

感激,受用無窮!!!

PKKO

TOP