VBA ¤U¸ü¥æ©ö©Ò¸ê®ÆETF«e±ªº00·|¦Û°Ê¤£¨£¡An¦p¦ó×¥¿
- ©«¤l
- 2
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 52
- ÂI¦W
- 16
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2012-8-8
- ³Ì«áµn¿ý
- 2024-3-29
|
VBA ¤U¸ü¥æ©ö©Ò¸ê®ÆETF«e±ªº00·|¦Û°Ê¤£¨£¡An¦p¦ó×¥¿
VBA ¤U¸ü¥æ©ö©Ò¸ê®ÆETF«e±ªº00·|¦Û°Ê¤£¨£¡An¦p¦ó×¥¿
§Ún§¹¾ãÃÒ¨é¥N¸¹¦³¥X²{
¦p¡GÆä0050Æå Æ䤸¤j¥xÆW50Æå·|Åܦ¨Æä50Æå Æ䤸¤j¥xÆW50Æå
µ{¦¡½X¦p¤U
Sub test()
Dim strGetDate As String '«Å§i¤é´Á
strGetDate = Format(Range("b1").Value, "YYYYMMDD") '®æ¦¡¤Æ¤é´Á
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://www.twse.com.tw/exchangeReport/TWTB4U?response=html&date=20190805&selectType=All" _
, Destination:=Range("$A$4"))
.Refresh BackgroundQuery:=False
.Delete
End With
End Sub |
|
|
|
|
|
|