Board logo

標題: [發問] 櫃買中心三大法人買賣金額統計表及融資餘額無法下載 [打印本頁]
作者: frantz    時間: 2015-3-13 15:07     標題: 櫃買中心三大法人買賣金額統計表及融資餘額無法下載

[attach]20431[/attach]
[attach]20432[/attach]
不好意思，請問一下前輩們
小弟參考以下方式寫了代碼發生上面兩張圖，紅框處無法正常下載報表內的數字
疑似這兩個網頁有擋下來，請問這個如何排除
  1. Option Explicit
  2. Sub Ex_櫃買中心三大法人買賣金額統計表()
  3.     Dim i As Integer, S As Integer, k As Integer, A As Object, ii, j
  4.     With CreateObject("InternetExplorer.Application")
  5.        ' .Visible = True
  6.         '.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"
  7.         .Navigate "http://www.tpex.org.tw/web/stock/3insti/3insti_summary/3itrdsum.php?l=zh-tw"
  8.         'http://www.twse.com.tw/ch/trading/fund/BFI82U/BFI82U.php
  9.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  10.         Ep .document.getElementsByTagName("div")(40).outerHTML
  11.         .Quit        '關閉網頁
  12.     End With
  13. End Sub
  14. Sub Ep(S As String)
  15.     Dim D As New DataObject
  16.     'DataObject 物件 在進行轉換動作時，做為格式化文字資料的暫存區域。其也可以暫存和儲存在 DataObject 的文字片段相關的格式。
  17.     '宣告 Dim D As New DataObject '須在工具-> 設定引用項目加入 新增引用 Microsoft Forms 2.0 Object Library ,或於專案 加入一表單即可
  18.     With D
  19.         .SetText S
  20.         .PutInClipboard
  21.         With Sheets("證券上市櫃三大法人")
  22.             .Range("k6:z18").Clear
  23.             .Range("k6").Select
  24.             .PasteSpecial Format:="Unicode 文字"
  25.         End With
  26.     End With
  27. End Sub



  31. Option Explicit
  32. Sub Ex_櫃買中心信用交易統計()
  33.     Dim i As Integer, S As Integer, k As Integer, A As Object, ii, j
  34.     With CreateObject("InternetExplorer.Application")
  35.        ' .Visible = True
  36.         '.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"
  37.         .Navigate "http://www.tpex.org.tw/web/stock/3insti/3insti_summary/3itrdsum.php?l=zh-tw"
  38.         .Navigate "http://www.tpex.org.tw/web/stock/margin_trading/margin_balance/margin_bal.php?l=zh-tw"
  39.         'http://www.tpex.org.tw/web/stock/margin_trading/margin_balance/margin_bal.php?l=zh-tw
  40.         'http://www.twse.com.tw/ch/trading/fund/BFI82U/BFI82U.php
  41.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  42.         Ep .document.getElementsByTagName("div")(8).outerHTML
  43.         .Quit        '關閉網頁
  44.     End With
  45. End Sub
  46. Sub Ep(S As String)
  47.     Dim D As New DataObject
  48.     'DataObject 物件 在進行轉換動作時，做為格式化文字資料的暫存區域。其也可以暫存和儲存在 DataObject 的文字片段相關的格式。
  49.     '宣告 Dim D As New DataObject '須在工具-> 設定引用項目加入 新增引用 Microsoft Forms 2.0 Object Library ,或於專案 加入一表單即可
  50.     With D
  51.         .SetText S
  52.         .PutInClipboard
  53.         With Sheets("證券上市櫃三大法人")
  54.             .Range("K6:Z18").Clear
  55.             .Range("K6").Select
  56.             .PasteSpecial Format:="Unicode 文字"
  57.         End With
  58.     End With
  59. End Sub
複製代碼
作者: GBKEE    時間: 2015-3-13 16:06

回復 1# frantz

Ep .Document.getelementsbytagname("TABLE")(0).outerHTML
作者: frantz    時間: 2015-3-13 17:56

[attach]20434[/attach]

謝謝GBKEE大的回覆
小弟昨日就是先依照這樣子下去操作
會出現如上圖的問題

回復 2# GBKEE
作者: GBKEE    時間: 2015-3-13 20:59

回復 3# frantz
  1. Ep .document.getElementsByTagName("table")(0).outerHTML
複製代碼
xp ,IE8 下載 如圖正常,檢查一下你的IE

[attach]20435[/attach]
作者: frantz    時間: 2015-3-13 22:01

回復 4# GBKEE
小弟我的是win7*64 ie11



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)