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

[µo°Ý] ¤½¶}¸ê°TÆ[´ú¯¸ªº¥N¸¹¦p¦ó³z¹Lµ{¦¡¦Û°Ê¿é¤J?

  1. Sub ¥¨¶°1()
  2. Cells.Clear

  3.     With ActiveSheet.QueryTables.Add(Connection:= _
  4.         "URL;https://mops.twse.com.tw/mops/web/ajax_t05st10_ifrs?encodeURIComponent=1&firstin=1&off=1&queryName=co_id&isnew=true&co_id=1101", Destination:=Range("$A$1"))
  5.         .WebTables = "4"
  6.         .Refresh BackgroundQuery:=False
  7.         .Delete
  8.     End With
  9. End Sub
½Æ»s¥N½X
¦^´_ 1# PKKO

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD