- ©«¤l
- 73
- ¥DÃD
- 11
- ºëµØ
- 0
- ¿n¤À
- 100
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 8
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2013-5-11
- ³Ì«áµn¿ý
- 2018-7-25
 
|
¦^´_ 5# GBKEE
¤j¤j½Ð°Ý¤@¤U¡A§Ú¥Î¤U±³oÓµ{¦¡§ì¥Xªº¸ê®Æ¸òì©lºô¯¸ªº¸ê®Æ¤ñ¸û¤U¡A¤U±¦³¤@¬q¨S¦³§ì¤£¨ì¡A¬O¤£¬O¦³°Ñ¼Æ¨S³]¦n? nwait¶Ü?¦]¬°¤U±¦³Åã¥ÜLoading more data...¦ý¬O§Ú¤£ª¾¹D«ç¼ËÅý¥L¶]§¹
ì©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 |
|