- 帖子
- 15
- 主題
- 6
- 精華
- 0
- 積分
- 25
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- vba
- 閱讀權限
- 10
- 註冊時間
- 2015-3-8
- 最後登錄
- 2024-6-21
|
[發問] 櫃買中心三大法人買賣金額統計表及融資餘額無法下載
不好意思，請問一下前輩們
小弟參考以下方式寫了代碼發生上面兩張圖，紅框處無法正常下載報表內的數字
疑似這兩個網頁有擋下來，請問這個如何排除- Option Explicit
- Sub Ex_櫃買中心三大法人買賣金額統計表()
- Dim i As Integer, S As Integer, k As Integer, A As Object, ii, j
- With CreateObject("InternetExplorer.Application")
- ' .Visible = True
- '.Navigate "http://www.twse.com.tw/ch/trading/exchange/STOCK_DAY/STOCK_DAY_print.php?genpage=genpage/Report201503/201503_F3_1_8_2485.php&type=list"
- .Navigate "http://www.tpex.org.tw/web/stock/3insti/3insti_summary/3itrdsum.php?l=zh-tw"
- 'http://www.twse.com.tw/ch/trading/fund/BFI82U/BFI82U.php
- Do While .Busy Or .readyState <> 4: DoEvents: Loop
- Ep .document.getElementsByTagName("div")(40).outerHTML
- .Quit '關閉網頁
- End With
- End Sub
- Sub Ep(S As String)
- Dim D As New DataObject
- 'DataObject 物件 在進行轉換動作時，做為格式化文字資料的暫存區域。其也可以暫存和儲存在 DataObject 的文字片段相關的格式。
- '宣告 Dim D As New DataObject '須在工具-> 設定引用項目加入 新增引用 Microsoft Forms 2.0 Object Library ,或於專案 加入一表單即可
- With D
- .SetText S
- .PutInClipboard
- With Sheets("證券上市櫃三大法人")
- .Range("k6:z18").Clear
- .Range("k6").Select
- .PasteSpecial Format:="Unicode 文字"
- End With
- End With
- End Sub
- Option Explicit
- Sub Ex_櫃買中心信用交易統計()
- Dim i As Integer, S As Integer, k As Integer, A As Object, ii, j
- With CreateObject("InternetExplorer.Application")
- ' .Visible = True
- '.Navigate "http://www.twse.com.tw/ch/trading/exchange/STOCK_DAY/STOCK_DAY_print.php?genpage=genpage/Report201503/201503_F3_1_8_2485.php&type=list"
- .Navigate "http://www.tpex.org.tw/web/stock/3insti/3insti_summary/3itrdsum.php?l=zh-tw"
- .Navigate "http://www.tpex.org.tw/web/stock/margin_trading/margin_balance/margin_bal.php?l=zh-tw"
- 'http://www.tpex.org.tw/web/stock/margin_trading/margin_balance/margin_bal.php?l=zh-tw
- 'http://www.twse.com.tw/ch/trading/fund/BFI82U/BFI82U.php
- Do While .Busy Or .readyState <> 4: DoEvents: Loop
- Ep .document.getElementsByTagName("div")(8).outerHTML
- .Quit '關閉網頁
- End With
- End Sub
- Sub Ep(S As String)
- Dim D As New DataObject
- 'DataObject 物件 在進行轉換動作時，做為格式化文字資料的暫存區域。其也可以暫存和儲存在 DataObject 的文字片段相關的格式。
- '宣告 Dim D As New DataObject '須在工具-> 設定引用項目加入 新增引用 Microsoft Forms 2.0 Object Library ,或於專案 加入一表單即可
- With D
- .SetText S
- .PutInClipboard
- With Sheets("證券上市櫃三大法人")
- .Range("K6:Z18").Clear
- .Range("K6").Select
- .PasteSpecial Format:="Unicode 文字"
- End With
- End With
- End Sub
|
|
發表於 2015-3-13 15:07
| 
發表於 2015-3-13 16:06
| 
