c_c_lai

¦^´_ 9# tajen
´£¨Ñ°Ñ¦Ò¡G (¤£ª¾¬O§_§k¦X§Aªº»Ý¨D¡H)

1. Sub ³Ì¨Î¤­ÀÉ()
   
2.     Dim Sh As Worksheet
   
3.    
   
4.     Set Sh = Sheets("¤u§@ªí3")                   '  ¥i«ü©w¤u§@ªí
   
5.    
   
6.     With Sh
   
7.         .Cells.Clear
   
8.         .Select
   
9.         
   
10.         With .QueryTables.Add(Connection:= _
    
11.             "URL;http://traderoom.cnyes.com/tse/quote2FB.aspx?code=6121", Destination:= _
    
12.                                                                           .Range("F1"))
    
13.             .WebFormatting = xlWebFormattingNone
    
14.             .WebTables = "7"
    
15.             .Refresh BackgroundQuery:=False
    
16.         End With
    
17.         
    
18.         With .QueryTables.Add(Connection:= _
    
19.             "URL;http://traderoom.cnyes.com/tse/quote2FB.aspx?code=6121", Destination:= _
    
20.                                                                           .Range("A1"))
    
21.             .WebFormatting = xlWebFormattingNone
    
22.             .WebTables = "8,10,11"    '  ºô­¶ªºªí®æ¡A§ó§ï WebTables ´N¦æ¤F
    
23.             '  .WebTables = "7,8,10,11"
    
24.             '  .WebTables = "6,8,10,11"
    
25.             .Refresh BackgroundQuery:=False
    
26.         End With
    
27.         
    
28.         With .QueryTables.Add(Connection:= _
    
29.             "URL;http://traderoom.cnyes.com/tse/quote2FB.aspx?code=6121", Destination:= _
    
30.                                                                           .Range("I1"))
    
31.             .WebFormatting = xlWebFormattingNone
    
32.             .WebTables = "6"
    
33.             .Refresh BackgroundQuery:=False
    
34.         End With
    
35.         
    
36.         .Range("A:N").EntireColumn.AutoFit
    
37.     End With
    
38. End Sub

½Æ»s¥N½X