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

vba ºô§}°ÝÃD

vba ºô§}°ÝÃD

¥»©«³Ì«á¥Ñ ken759727 ©ó 2013-7-26 11:28 ½s¿è
  1.     Range("A11").Select
  2.     With ActiveSheet.QueryTables.Add(Connection:= _
  3.         "TEXT;[color=Red]http://ichart.finance.yahoo.com/table.txt?s=2002.TW&d=6&e=26&f=2013&g=d&a=0&b=4&c=2000&ignore=.txt[/color]" _
  4.         , Destination:=Range("$A$11"))
  5.         .Name = "table.txt?s=2002.TW&d=6&e=26&f=2013&g=d&a=0&b=4&c=2000&ignore="
  6.         .FieldNames = True
  7.         .RowNumbers = False
  8.         .FillAdjacentFormulas = False
  9.         .PreserveFormatting = True
  10.         .RefreshOnFileOpen = False
  11.         .RefreshStyle = xlInsertDeleteCells
  12.         .SavePassword = False
  13.         .SaveData = True
  14.         .AdjustColumnWidth = True
  15.         .RefreshPeriod = 0
  16.         .TextFilePromptOnRefresh = False
  17.         .TextFilePlatform = 950
  18.         .TextFileStartRow = 1
  19.         .TextFileParseType = xlDelimited
  20.         .TextFileTextQualifier = xlTextQualifierDoubleQuote
  21.         .TextFileConsecutiveDelimiter = False
  22.         .TextFileTabDelimiter = True
  23.         .TextFileSemicolonDelimiter = False
  24.         .TextFileCommaDelimiter = True
  25.         .TextFileSpaceDelimiter = False
  26.         .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1)
  27.         .TextFileTrailingMinusNumbers = True
  28.         .Refresh BackgroundQuery:=False
  29.     End With
  30.     ActiveWindow.SmallScroll Down:=-12
½Æ»s¥N½X
¥H¤W¬O¿ý»s¥¨¶°(±q¤å¦rÀÉ´¡¤J¸ê®Æ)
¥D­n¬O·Q­×§ï¬õ¦â¤å¦r³¡¤À¡A·Q§â°Ñ¼Æ­È¥[¶i¤J¡A¤£ª¾¸Ó¦p¦óªí¹F·|¤ñ¸û«ê·í
http://ichart.finance.yahoo.com/table.txt?s=2002.TW&d=6&e=26&f=2013&g=d&a=0&b=4&c=2000&ignore=.txt

³oÃä2002 ·Q§ï¦¨ÅܼÆ
°²¦pÅܼƬO I
½Ð°Ý­n¦p¦ó¼¶¼g·|¤ñ¸û«ê·í

Àµ½Ð°ª¤âÀ°¦£

¦^´_ 1# ken759727
     & ¹Bºâ¤l³sµ²
   
  1. "TEXT;http://ichart.finance.yahoo.com/table.txt?s=" & I & ".TW&d=6&e=26&f=2013&g=d&a=0&b=4&c=2000&ignore=.txt"
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD