joey0415

1. Sub ex()
   
2.         Range("A:L").Clear
   
3. 
   
4.         With ActiveSheet.QueryTables.Add(Connection:="URL;https://tw.finance.yahoo.com/q/q?s=" & 1101, Destination:=Range("A1"))
   
5.             .WebSelectionType = xlSpecifiedTables
   
6.             .WebFormatting = xlWebFormattingNone
   
7.             .WebTables = "6"
   
8.             .Refresh BackgroundQuery:=False
   
9.             .Delete
   
10.          End With
    
11. End Sub

複製代碼

回復 1# tsunamix03