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

[µo°Ý] ½Ð°Ý¦p¦ó¥HVBAÂ^¨úºô¯¸¤Wªº¸ê®Æ¡H

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

TOP

¦^´_ 21# ui123

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

TOP

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

TOP

¥»©«³Ì«á¥Ñ Scott090 ©ó 2017-11-11 19:53 ½s¿è

¦^´_ 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½Ð°Ñ¦Ò

TOP

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

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD