- ©«¤l
- 19
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 60
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-9-27
- ³Ì«áµn¿ý
- 2017-12-21
|
vba ºô§}°ÝÃD
¥»©«³Ì«á¥Ñ ken759727 ©ó 2013-7-26 11:28 ½s¿è
- Range("A11").Select
- With ActiveSheet.QueryTables.Add(Connection:= _
- "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]" _
- , Destination:=Range("$A$11"))
- .Name = "table.txt?s=2002.TW&d=6&e=26&f=2013&g=d&a=0&b=4&c=2000&ignore="
- .FieldNames = True
- .RowNumbers = False
- .FillAdjacentFormulas = False
- .PreserveFormatting = True
- .RefreshOnFileOpen = False
- .RefreshStyle = xlInsertDeleteCells
- .SavePassword = False
- .SaveData = True
- .AdjustColumnWidth = True
- .RefreshPeriod = 0
- .TextFilePromptOnRefresh = False
- .TextFilePlatform = 950
- .TextFileStartRow = 1
- .TextFileParseType = xlDelimited
- .TextFileTextQualifier = xlTextQualifierDoubleQuote
- .TextFileConsecutiveDelimiter = False
- .TextFileTabDelimiter = True
- .TextFileSemicolonDelimiter = False
- .TextFileCommaDelimiter = True
- .TextFileSpaceDelimiter = False
- .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1)
- .TextFileTrailingMinusNumbers = True
- .Refresh BackgroundQuery:=False
- End With
- ActiveWindow.SmallScroll Down:=-12
½Æ»s¥N½X ¥H¤W¬O¿ý»s¥¨¶°(±q¤å¦rÀÉ´¡¤J¸ê®Æ)
¥Dn¬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·|¤ñ¸û«ê·í
Àµ½Ð°ª¤âÀ°¦£ |
|