joey0415

¦^´_ 12# hipper68

§A¸Õ¸Õ¬Ý¡AÀ³¸Ó¥i¦æ¡I

1. Sub ex()
   
2. 
   
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" '¶ñ¤J
    
11.          
    
12.         '---------¡A¤º«Øªºfireevent ªºonchange¥¢®Ä¡A§ï¥Î½Õ¥Îjsªº¤èªk--------
    
13.         Set evt = .Document.createEvent("HTMLEvents")
    
14.         evt.initEvent "change", True, False
    
15.         Set lst = .Document.all("selectType") 'optionªºname¬OselectType¡A¦ýgetElementsByNameµLªk³B²z¡A­nall¤~¦æ
    
16.         lst.selectedIndex = 0
    
17.         lst.dispatchEvent evt
    
18.    
    
19.         .Document.all("query-button").Click
    
20. 
    
21. 
    
22.          Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
    
23. 
    
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")(3) '²Ä4­Ótable
    
32. '        tt = hTable.Rows.Length
    
33. '        qq = hTable.Rows(2).Cells.Length
    
34. 
    
35.             With ActiveSheet
    
36.                 For i = 1 To hTable.Rows.Length - 1 '«e3­Ó¬O¼ÐÃD»PªÅ¥Õ¸õ¹L
    
37.                     For j = 0 To hTable.Rows(i).Cells.Length - 1
    
38.                         .Cells(i, j + 1) = hTable.Rows(i).Cells(j).innerText
    
39.                     Next
    
40.                 Next
    
41.             End With
    
42. 
    
43.         .Quit
    
44. '        MsgBox "OK"
    
45.     End With
    
46.    
    
47. End Sub

½Æ»s¥N½X