joey0415

¦^´_ 1# vanguarx

ªº½T¦n´X±`¥Îªº¤èªk§ì¤£¤U¨Ó¡A¤£¹L
¥H«e¶W¯ÅªO¥Dµ{¦¡¦¡½X­×§ï«á
©|¥i§ì¨ú

1. Sub ©ñº]()
   
2.     Cells.Clear
   
3.     Application.ScreenUpdating = False
   
4.     With CreateObject("internetexplorer.application")
   
5.         surl = "https://www.cac.edu.tw/apply108/system/108ColQry_forapply_3r5k9d/html/108_001562.htm"
   
6.         .Visible = True
   
7.         .Navigate surl
   
8.         Application.Wait Now + TimeValue("00:00:01")
   
9.          Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
   
10.          
    
11.          Application.Wait Now + TimeValue("00:00:01")
    
12.         x = .Document.getElementsByTagName("table").Length
    
13. '                    For Z = 0 To x - 1
    
14. '                        MsgBox "³o??²Ä" & Z & "­Óªí®æ" & Chr(10) & .Document.getElementsByTagName("table")(Z).innerText
    
15. '                    Next
    
16.         Set shts = ActiveSheet '
    
17.         xlHtm = .Document.body.innerHTML
    
18.         Set A = .Document.getElementsByTagName("table")
    
19.         For xi = st To A.Length - 1 Step 2
    
20.             .Document.body.innerHTML = A(xi).outerHTML
    
21.             .ExecWB 17, 2       '  Select All
    
22.             .ExecWB 12, 2       '  Copy selection
    
23.             With shts
    
24.                 .Range("A" & .[A65535].End(xlUp).Row + 1).Select
    
25.                 .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
    
26.             End With
    
27.             .Document.body.innerHTML = xlHtm                  'ÁÙ­ì
    
28.         Next xi
    
29.             .Quit
    
30.         End With
    
31.     Application.ScreenUpdating = True
    
32.    
    
33. End Sub

½Æ»s¥N½X

joey0415

¦^´_ 4# vanguarx

°Ñ¦Ò¬Ý¬Ý

http://white5168.blogspot.com/2012/08/excel-vba-js.html