[發問] 櫃買中心三大法人買賣金額統計表及融資餘額無法下載

frantz

下載 (56.44 KB)
櫃買三大法人

2015-3-13 14:53

下載 (74.15 KB)
櫃買融資券餘額

2015-3-13 14:53

不好意思，請問一下前輩們
小弟參考以下方式寫了代碼發生上面兩張圖，紅框處無法正常下載報表內的數字
疑似這兩個網頁有擋下來，請問這個如何排除

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
    
28. 
    
29. 
    
30. 
    
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

複製代碼

frantz

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

GBKEE

回復 3# frantz

1. Ep .document.getElementsByTagName("table")(0).outerHTML

複製代碼

xp ,IE8 下載 如圖正常,檢查一下你的IE

下載 (62.48 KB)

2015-3-13 20:56

frantz

下載 (27.83 KB)
錯誤

2015-3-13 17:52

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

回復 2# GBKEE

GBKEE

回復 1# frantz

Ep .Document.getelementsbytagname("TABLE")(0).outerHTML