返回列表 上一主題 發帖

[發問] 有關交易所融資券餘額資料查詢網頁

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
1# 跳轉到 »
發表於 2015-8-14 20:04 | 顯示全部帖子
回復 1# a68951
此為ie點擊法，秒數請自行修改
日期請自設為變數即可
  1. Sub ex()

  3.     With CreateObject("internetexplorer.application")
  4.         .Visible = True
  5.         .Navigate "http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/MI_MARGN.php"
  6.         Do Until .ReadyState = 4
  7.             DoEvents
  8.         Loop
  9.         
  10.         .Document.getElementById("date-field").Value = "104/08/12" '填入
  11.          
  12.         '---------，內建的fireevent 的onchange失效，改用調用js的方法--------
  13.         Set evt = .Document.createEvent("HTMLEvents")
  14.         evt.initEvent "change", True, False
  15.         Set lst = .Document.all("selectType") 'option的name是selectType，但getElementsByName無法處理，要all才行
  16.         lst.selectedIndex = 1
  17.         lst.dispatchEvent evt
  18.    
  19.         .Document.all("query-button").Click


  22.          Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop

  24.         Application.Wait Now + TimeValue("00:00:5")
  25.         Stop
  26.         
  27.         'For Z = 0 To 10
  28.         'MsgBox .Document.getElementsByTagName("table")(Z).innerText
  29.         'Next
  30.             Stop
  31.         Set hTable = .Document.getElementsByTagName("table")(4) '第4個table
  32.         tt = hTable.Rows.Length
  33.         qq = hTable.Rows(2).Cells.Length

  35.             With ActiveSheet
  36.                 For i = 3 To hTable.Rows.Length - 1 '前3個是標題與空白跳過
  37.                     For j = 0 To hTable.Rows(i).Cells.Length - 1
  38.                         .Cells(i - 2, j + 1) = hTable.Rows(i).Cells(j).innerText
  39.                     Next
  40.                 Next
  41.             End With

  43.         .Quit
  44. '        MsgBox "OK"
  45.     End With
  46.    
  47. End Sub
複製代碼

TOP

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
2#
發表於 2015-8-15 22:01 | 顯示全部帖子
回復 5# a68951

table 4  其實是第五個，excel 是從0開始



不是沒有欄而是前面的欄位有合併與後面的talbe中的欄位長度不一置

下面是修改過的程式碼
  1. Sub ex()
  2.     Application.ScreenUpdating = False  '停止 更新Sheet時 畫面，加速運算
  3.     Application.DisplayAlerts = False  '停止 刪除Sheet時 預設的警告
  4.     Cells.Clear
  5.     With CreateObject("internetexplorer.application")
  6.         .Visible = True
  7.         .Navigate "http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/MI_MARGN.php"
  8.         Do Until .ReadyState = 4
  9.             DoEvents
  10.         Loop
  11.         
  12.         .Document.getElementById("date-field").Value = "104/08/12" '填入
  13.          
  14.         '---------，內建的fireevent 的onchange失效，改用調用js的方法--------
  15.         Set evt = .Document.createEvent("HTMLEvents")
  16.         evt.initEvent "change", True, False
  17.         Set lst = .Document.all("selectType") 'option的name是selectType，但getElementsByName無法處理，要all才行
  18.         lst.selectedIndex = 1
  19.         lst.dispatchEvent evt
  20.    
  21.         .Document.all("query-button").Click


  24.          Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop

  26.         Application.Wait Now + TimeValue("00:00:5")
  27. '        Stop
  28.         
  29.         'For Z = 0 To 10
  30.         'MsgBox .Document.getElementsByTagName("table")(Z).innerText
  31.         'Next
  32.         Set hTable = .Document.getElementsByTagName("table")(4) '第4個table


  35.                 For i = 0 To hTable.Rows.Length - 1 '前3個是標題與空白跳過
  36.                     For j = 0 To hTable.Rows(i).Cells.Length - 1
  37.                         If j = 0 And i > 2 Then

  39.                                 Cells(i + 1, j + 1) = "'" & hTable.Rows(i).Cells(j).innerText

  41.                             Else
  42.                                 Cells(i + 1, j + 1) = hTable.Rows(i).Cells(j).innerText
  43.                         End If
  44.                     Next
  45.                 Next


  48.         .Quit
  49.     End With
  50.    
  51.     Range("A3:B3").Insert Shift:=xlToRight
  52.     Range("A2:B2").Select
  53.     Selection.Cut
  54.     Range("A3").Select
  55.     ActiveSheet.Paste
  56.     Range("E2:F2").Select
  57.     Selection.Cut
  58.     Range("O3").Select
  59.     ActiveSheet.Paste
  60.     Range("A1").Select
  61.     Range("D2:h2").Insert Shift:=xlToRigh
  62.    
  63.         Application.ScreenUpdating = True  '停止 更新Sheet時 畫面，加速運算
  64.         Application.DisplayAlerts = True '停止 刪除Sheet時 預設的警告
  65.    
  66. End Sub
複製代碼

TOP

        靜思自在 : 願要大、志要堅、氣要柔、心要細。
返回列表 上一主題