ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD