joey0415

1. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   
2. 
   
3. Sub HK()
   
4.     Dim URL As String, shts As Worksheet
   
5.     Dim x As Variant, xi As Integer, A As Object, xlHtm
   
6.     Set shts = ActiveSheet '
   
7.     shts.Cells.Clear
   
8.     URL = "http://hk.ishares.com/product_info/fund/holdings/2823.htm?periodCd=d"
   
9.     With CreateObject("InternetExplorer.Application")
   
10.         .Visible = True     '  ¬O§_Åã¥Ü IE
    
11.         .Navigate URL
    
12.          Do While .ReadyState <> 4 Or .Busy
    
13.                 DoEvents
    
14.             Loop
    
15. 
    
16.         xlHtm = .Document.body.innerHTML                'Àx¦s
    
17. 
    
18.         Sleep 2000
    
19.         Set A = .Document.getElementsBytagname("table")
    
20.         For xi = 2 To 2
    
21.             .Document.body.innerHTML = A(xi).outerHTML
    
22.             .ExecWB 17, 2       '  Select All
    
23.             .ExecWB 12, 2       '  Copy selection
    
24.             With shts
    
25.                 .Range("A1").Select
    
26.                 .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
    
27.             End With
    
28.             .Document.body.innerHTML = xlHtm                  'ÁÙ­ì
    
29.         Next xi
    
30.         shts.Cells.EntireColumn.AutoFit     '  ¦Û°Ê½Õ¾ãÄæ¼e
    
31.         .Quit
    
32.     End With
    
33. End Sub

½Æ»s¥N½X