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

VBA ¤U¸ü¥æ©ö©Ò¸ê®ÆETF«e­±ªº00·|¦Û°Ê¤£¨£¡A­n¦p¦ó­×¥¿

VBA ¤U¸ü¥æ©ö©Ò¸ê®ÆETF«e­±ªº00·|¦Û°Ê¤£¨£¡A­n¦p¦ó­×¥¿

VBA ¤U¸ü¥æ©ö©Ò¸ê®ÆETF«e­±ªº00·|¦Û°Ê¤£¨£¡A­n¦p¦ó­×¥¿
§Ú­n§¹¾ãÃÒ¨é¥N¸¹¦³¥X²{
¦p¡GÆä0050Æå Æ䤸¤j¥xÆW50Æå·|Åܦ¨Æä50Æå  Æ䤸¤j¥xÆW50Æå
001.png
2019-8-3 17:57


µ{¦¡½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

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD