GBKEE

¦^´_ 1# sfff

¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     With CreateObject("InternetExplorer.Application")
   
4.         .Visible = True
   
5.         .Navigate "http://money.moneydj.com/us/basic/basic0001/IBM"
   
6.         Do While .Busy Or .readyState <> 4: DoEvents:  Loop
   
7.         .Document.body.innerHTML = .Document.getElementsByTagName("TABLE")(5).outerHTML
   
8.          Do While .Busy Or .readyState <> 4: DoEvents:  Loop
   
9.         .ExecWB 17, 2       '  Select All
   
10.         .ExecWB 12, 2       '  Copy selection
    
11.         With ActiveSheet
    
12.             .Cells = ""
    
13.             .Range("A1").Select
    
14.             .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
    
15.         End With
    
16.       .Quit        'Ãö³¬ºô­¶
    
17.     End With
    
18. End Sub

½Æ»s¥N½X