[µo°Ý] µLªk¶×¤JªÑ¥«¸ê®Æ

sfff

§Ú·Q¶×¤JMoneyDJªº°ò¥»¸ê®Æ ±q"¸ê®Æ"->±qWEB «o±o¨ì¬d¸ß¨S¦³¸ê®Æ¶Ç¦^ ªº¿ù»~°T®§
¦³°ª¤â¥i¥H¸Ñ´b¶Ü¡H

    With ActiveSheet.QueryTables.Add(Connection:= _
        "http://money.moneydj.com/us/basic/basic0001/IBM", Destination:=Range( _
        "A1"))

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

sfff

§¹¥þ¦n¥Î¡I ÁÂÁ¤j¤j¡I