Sub Basic_Web_Query()

sid = 2912
ym = 20230801

Dim connectionString As String
connectionString = "URL;https://www.twse.com.tw/rwd/zh/afterTrading/STOCK_DAY_AVG?date=" & ym & "&stockNo=" & sid & "&response=html"

With ActiveSheet.QueryTables.Add(Connection:=connectionString, Destination:=Range("$A$1"))
 .FieldNames = True
 .RowNumbers = False
 .FillAdjacentFormulas = False
 .PreserveFormatting = True
 .RefreshOnFileOpen = False
 .BackgroundQuery = True
 .RefreshStyle = xlInsertDeleteCells
 .SavePassword = False
 .SaveData = True
 .AdjustColumnWidth = True
 .RefreshPeriod = 0
 .WebSelectionType = xlSpecifiedTables
 .WebFormatting = xlWebFormattingNone
 .WebTables = "1,2"
 .WebPreFormattedTextToColumns = True
 .WebConsecutiveDelimitersAsOne = True
 .WebSingleBlockTextImport = False
 .WebDisableDateRecognition = False
 .WebDisableRedirections = False
 .Refresh BackgroundQuery:=False
 End With

 End Sub