- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
9#
發表於 2017-3-12 09:17
| 只看該作者
回復 8# oliwa - Sub TT(stockNo As String)
- Dim xTable As Object, Sh As Worksheet, R As Integer, C As Integer, i As Integer, ii As Integer
- 'Co_Id = stock_no
- 'Co_Id = stockNo
- With CreateObject("InternetExplorer.Application")
- .Visible = True '**網頁不顯示 .Visible = False
- .Navigate "http://www.twse.com.tw/ch/trading/exchange/FMNPTK/FMNPTKMAIN.php?download=csv&CO_ID=" & stockNo
- '**直接給上***
-
- Do While .Busy Or .readyState <> 4: DoEvents: Loop '等候網頁載入完整
- .Document.ALL("query-button").Click '網頁上按下查詢鍵
- '***附欓沒有Click後,再一次 等候網頁載入完整***
- Do While .Busy Or .readyState <> 4: DoEvents: Loop '等候網頁宰入完整
- '*********************************************
- Do
- Set xTable = .Document.ALL.TAGS("Table") '設定變數為網頁 tagname "Table"的物件集合
- DoEvents
- Loop Until xTable.Length = 6
複製代碼 |
|