- ©«¤l
- 764
- ¥DÃD
- 254
- ºëµØ
- 0
- ¿n¤À
- 1031
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 11
- ³nÅ骩¥»
- OFFICE2021
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-5-30
- ³Ì«áµn¿ý
- 2025-7-18
|
ºô§}¦³¤F
¦Û¤v½m²ß¬Ý¬Ý
joey0415 µoªí©ó 2017-5-24 21:35 
Sub Macro1()
Cells.Clear
ddd = "URL;http://www.twse.com.tw/fund/T86?response=html&date=" & Format(Date, "yyyyMMDD") & "&selectType=ALL"
With ActiveSheet.QueryTables.Add(Connection:=ddd, Destination:=Range("$A$1"))
.Refresh BackgroundQuery:=False
End With
End Sub |
|