joey0415

1. Sub ¥¨¶°1()
   
2. Cells.Clear
   
3. 
   
4.     With ActiveSheet.QueryTables.Add(Connection:= _
   
5.         "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"))
   
6.         .WebTables = "4"
   
7.         .Refresh BackgroundQuery:=False
   
8.         .Delete
   
9.     End With
   
10. End Sub

½Æ»s¥N½X

¦^´_ 1# PKKO