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

Â^¨ú¾ú¥vªÑ»ù

Â^¨ú¾ú¥vªÑ»ù

²³æÂ^¨úªÑ»ù,Åý¨Ï¥ÎªÌ¥i¥H¿é¤J¦Û¤v©Ò­nªºªÑ²¼¥N½X«á¦Û°Ê¤U¸ü±q2000/1/1¨ì¥Ø«e¦UªÑ¨C¤Ñªº¾ú¥vªÑ»ù

GetStockPrice.rar (64.71 KB)

ªÑ»ù¤U¸ü

³o­Óget webªºvba¦³³]©w­­¨î,¥u¯à§ì¨ú©T©wªº®É¶¡°Ï¬q!!!

TOP

The tool supports 2000/1/1~current date
¨C¤äªÑ²¼ªº¤W¥«¤WÂd¤é´Á¤£¤@©w,©Ò¥H¥i¯àÅã¥Üªºªøµu¤£¤@¼Ë,½Ð¦Û¦æ½T»{¦UªÑ²¼¶}©l¤W¥«¤WÂd¤é´Á

TOP

¦³¬Ý¹L¤H®a¥ÎÃþ¦üªº¤è¦¡§ì¸ê®Æ
µM«áª½±µ¦sÀÉ
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 1# white5168

Yahoo Finance ªºªÑ»ù¸ê®Æ¡A°O±oÂE®ü(2317)¶°¹Îªº·|¦³°ÝÃD....
diabo

TOP

¦^´_ 1# white5168


    ±z³o­Óµ{¦¡«D±`¤£¿ù,¤è«K¤À¨É¦p¦ó§ì¨ú¶Ü?
peter460191

TOP

¦^´_ 1# white5168


    ·PÁ¤j¤jªº¤À¨É....
    ¤£ª¾¹D¦³µL Â^¨ú¤j½L¾ú¥v¸ê®Æªºµ{¦¡¡H
    ©ÎªÌ¯à§_¤À¨É¦p¦ó¦Û¦æ¼¶¼g¡H
    ¤£ºÞ¦p¦ó¡AÁÙ¬O·PÁÂ....

TOP

¦^´_ 9# jsleee


¿é¤J¡i ^TWII¡j¥i§ì¥xÆW¥[Åv«ü¼Æ.......

¿é¤J¡iUSDTWD=x¡j¥i§ì¬ü¤¸§I¥x¹ôªº¾ú¥v¸ê®Æ.....


¨ä¥L«ü¼Æ¥N½X...

¥xÆWÃÒ¥æ©Ò
¥[Åv«ü¼Æ ^TWII
¤£§tª÷¿ÄªÑ ^TIWI
ª÷¿Ä«OÀIÃþ ^TFNI

¤j³°
²`¦`ºî¦X ^SZSC
²`¦`¦¨¥÷ ^SZSC1
AªÑ«ü¼Æ ^SZSA
AªÑ¦¨¥÷ ^SZSA1
BªÑ«ü¼Æ ^SZSB
BªÑ¦¨¥÷ ^SZSB1

ºî¦X«ü¼Æ ^SSEC
AªÑ«ü¼Æ ^SSEA
BªÑ«ü¼Æ ^SSEB
¤u·~«ü¼Æ ^SSEI
°Ó·~«ü¼Æ ^SSEM
¦a²£«ü¼Æ ^SSEP
¤½¥Î¨Æ·~ ^SSEU

­»´äÃÒ¥æ©Ò
«í¥Í«ü¼Æ ^HSI
ª÷¿Ä«ü¼Æ ^HSNF
¤½¥Î¨Æ·~«ü¼Æ ^HSNU
¦a²£«ü¼Æ ^HSNP
¤u°Ó«ü¼Æ ^HSNC
¤¤°ê¥ø·~«ü¼Æ ^HSCE
¤¤¸ê¥ø·~«ü¼Æ ^HSCC

¨È¤Ó¦a°Ï
¤¤°ê ¤W®üºî¦X«ü¼Æ 000001.SS
­»´ä «í¥Í«ü¼Æ ^HSI
¥xÆW ¥[Åv«ü¼Æ ^TWII
¤é¥» Nikkei 225 ^N225
·s¥[©Y ®ü®l®É³ø«ü¼Æ ^STI
«nÁú º~«°ºî¦X«ü¼Æ ^KS11
¦L«× BSE 30 ^BSESN
¦L¥§ ¶®¥[¹F«ü¼Æ ^JKSE
°¨¨Ó¦è¨È KLSE Composite ^KLSE
¿D¬w All Ordinaries ^AORD
栮ᯮ PSE Composite ^PSI
´µ¨½Äõ¥d All Share ^CSE

¼Ú¬w
¶ø¦a§Q ATX ^ATX
ªk°ê CAC 40 ^FCHI
¼w°ê ^GDAX ^GDAX
­^°ê FTSE 100 ^FTSE

«D¬w/¤¤ªF
®J¤Î CMA ^CCSI
¥H¦â¦C TA-100 ^TA100
diabo

TOP

¦^´_ 10# diabo


    «D±`·PÁ diabo ¤j¤jªº»¡©ú¦^´_
    ¨ü¯qµL½a....

TOP

¥»©«³Ì«á¥Ñ white5168 ©ó 2012-5-27 00:48 ½s¿è

À³Æ[²³­n¨D,¶K¥Xµ{¦¡½X,Åwªï¦U¦ì¦h¦h«ü±Ð

¦bSheet1¶Kªº¤º®e
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     If Target.Address = "$B$1" Then         '§PÂ_¥Ø«e¨Ï¥ÎªÌ©Ò¿é¤Jªº¦ì¸m¬O§_¦b$B$1,¦pªG¬O,«h±NB1¿é¤Jªº¥N½X¶Ç¦ÜGetStockPrice¼Ò²Õ¤¤,¤Ï¤§¤£§@°Ê§@
  3.     Call GetStockPrice(Range("B1"))         '¶Ç¤JªÑ²¼¥N½X,©I¥sGetStockPrice¼Ò²Õ
  4.     End If
  5. End Sub
½Æ»s¥N½X
¦bModule¿é¤Jªº¤º®e
  1. Sub GetStockPrice(ByVal stockid As String)
  2. '
  3. ' GetStockPrice Macro
  4. ' Amin ¦b 2012/5/6 ¿ý»sªº¥¨¶°

  5.     Call ClearQueryTablesData
  6.    
  7.     '³z¹L "¥~³¡¶×¤J¸ê®Æªº¤èªk" (´N¬O¨Ï¥ÎQueryTablsªº¤èªk) ±N¾ú¥vªÑ»ù±q2000/1/1¨ì¥Ø«e¬°¤îªº¤é´Á,¸g¥Ñ Yahoo finance §ì¦^¨Ó¦s¶iexcel¬¡­¶Ã¯¤¤,¦pªGºô¯¸¸ê®Æ¦³°ÝÃD,§ì¦^¨Óªº¤]·|¬O¿ù»~ªº¸ê®Æ
  8.     With ActiveSheet.QueryTables.Add(Connection:= _
  9.         "TEXT;http://ichart.finance.yahoo.com/table.csv?s=" & stockid & "&a=00&b=4&c=2000&d=" & Month(Date) & "&e=" & Day(Date) & "&f=" & Year(Date) & "&g=d&ignore=.csv" _
  10.         , Destination:=Range("A3"))
  11.         .Name = "stockprice"
  12.         .FieldNames = True
  13.         .RowNumbers = False
  14.         .FillAdjacentFormulas = False
  15.         .PreserveFormatting = True
  16.         .RefreshOnFileOpen = False
  17.         .RefreshStyle = xlOverwriteCells
  18.         .SavePassword = False
  19.         .SaveData = True
  20.         .AdjustColumnWidth = True
  21.         .RefreshPeriod = 0
  22.         .TextFilePromptOnRefresh = False
  23.         .TextFilePlatform = 950
  24.         .TextFileStartRow = 1
  25.         .TextFileParseType = xlDelimited
  26.         .TextFileTextQualifier = xlTextQualifierDoubleQuote
  27.         .TextFileConsecutiveDelimiter = False
  28.         .TextFileTabDelimiter = True
  29.         .TextFileSemicolonDelimiter = False
  30.         .TextFileCommaDelimiter = True
  31.         .TextFileSpaceDelimiter = False
  32.         .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1)
  33.         .TextFileTrailingMinusNumbers = True
  34.         .Refresh BackgroundQuery:=False
  35.     End With
  36. End Sub

  37. Sub ClearQueryTablesData()                          '§PÂ_·í«e¬¡­¶Ã¯¤¤¬O§_¦³«e¤@µ§ªº¸ê®Æ,­Y¦³«h²M°£,¤Ï¤§ª½±µ¤U¸üªÑ»ù
  38.     Dim n As Integer                                                   
  39.     If Range("A4") <> "" Then                       '§PÂ_¥Ø«eªº¬¡­¶Ã¯¬O§_¦³¸ê®Æ¦s¦b, ³o¦æ¥i¥H¦A¼gªº§óÂÔ·V,Åwªï¦U¦ì¦Û¦æ­×§ï
  40.         n = ActiveSheet.Range("A4").End(xlDown).Row '¿ï¨ú¥Ø«e¬¡­¶Ã¯±qA4¦ì¸m¨ì³Ì«á¤@¦æªº½d³ò
  41.         For Each gt In ActiveSheet.QueryTables      '¿ï¨ú¥ÎQueryTables§ì¨úªº¨C¤@¦æ
  42.             gt.Delete                               '±N¨Ï¥ÎQueryTables¤èªk©Ò²£¥Íªº¦æ¶i¦æ§R°£,ÁקKQueryTables¥Î¤[¤F,³y¦¨¨t²Î°ï¿n¤@°ïQueryTablesªº©U§£,¦p¦¹¨t²Î¤~¤£·|ÅܺC(¦U¦ìÀ³¸Ó³£¤]·Pı)
  43.         Next
  44.         ActiveSheet.Range("A4:G" & n).Clear         '²M°£©Ò¿ï¨úªº¸ê®Æ
  45.      End If
  46. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD