返回列表 上一主題 發帖

[發問] 公開資訊觀測站的代號如何透過程式自動輸入?

  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
複製代碼
回復 1# PKKO

TOP

        靜思自在 : 有多少力量就做多少事,不要心存等待,等待才會落空。
返回列表 上一主題