ui123

¦^´_ 11# oobird


¨Ó°Ý¤@¤U oobird ¤j¤j¡A
oobird¤j¤j °Ý§A³á¡A§Ú¥Î¤U­±³o­Óµ{¦¡§ì¥Xªº100µ§¸ê®Æ¡A§Aª¾¹D«ç¼ËÅý¥L§ì§¹¾ã¶Ü¡H

­ì©lºô¯¸: https://finance.yahoo.com/quote/AAPL/history?period1=1473638400&period2=1505174400&interval=1d&filter=history&frequency=1d

Sub QueryTable()
    Const xlURL As String = "https://finance.yahoo.com/quote/AAPL/history?period1=1473638400&period2=1505174400&interval=1d&filter=history&frequency=1d"
    With ActiveSheet.QueryTables.Add("URL;" & xlURL, Destination:=Range("$A$1"))
        .WebFormatting = xlWebFormattingNone
        .TablesOnlyFromHTML = False
        .RefreshStyle = xlOverwriteCells
        .SaveData = True
        .Refresh 0
    End With
End Sub

Scott090

¦^´_ 21# ui123

½Ð°Ý³o­Ó¼Æ­È¤å¦r¦p¦óÂà´«¦¨¤é´Á®æ¦¡?  ÁÂÁÂ
    period1=1473638400

ui123

¦^´_ 22# Scott090

­ì©lºô¯¸: https://finance.yahoo.com/quote/AAPL/history?period1=1473638400&period2=1505174400&interval=1d&filter=history&frequency=1d
·|¦Û°Ê·|Âন¡A³W«h¤£²M·¡¡A¥Ø«e¥ÎVBA§ì¥u¯à§ì¨ì100µ§

Scott090

¦^´_ 23# ui123


   

­ì©lºô¯¸: https://finance.yahoo.com/quote/AAPL/history?period1=1473638400&period2 ...
ui123 µoªí©ó 2017-9-14 16:27

period1=1473638400, period2=1505174400 ªº¼Æ¦r¬O ¤é´Áªº¬í¼Æ¼Æ¦C­È
¥HVBA­pºâ¥i±o
¨Ò¦p ¤é´Á¬O "2017/1/20"¡A«h period = datevalue("2017/1/20") * 86400 - 2209190400
¨ä¤¤ ¤@¤é ¦³86400  ¬í, 22091904005³o­Ó¼Æ¦r¬O³o­Óºô­¶¹ï¤é´Áºtºâªº¤@­Ó±`¼Æ

¥i¥HÅçºâ¡G
a = (1473638400 + 2209190400) / 86400 = 42625.33333
yyyy = year(a) = 2016
mm  = month(a) = 9
dd = day(a) = 12

©Ò¥H¡A 1473638400 ³o­Ó¼Æ¦r ¥Nªí ¤é´Á 2016/9/12

¥H¤W½Ð°Ñ¦Ò

Scott090

¦^´_  Scott090

­ì©lºô¯¸: https://finance.yahoo.com/quote/AAPL/history?period1=1473638400&period2 ...
ui123 µoªí©ó 2017-9-14 16:27

½Ð°Ñ¦Ò¡G
    http://forum.twbts.com/thread-20288-1-1.html