- 帖子
- 154
- 主題
- 1
- 精華
- 0
- 積分
- 200
- 點名
- 1
- 作業系統
- windwos 7
- 軟體版本
- 64bit
- 閱讀權限
- 20
- 註冊時間
- 2017-5-29
- 最後登錄
- 2025-1-1
|
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 |
|