Set myQT = ActiveSheet.QueryTables.Add(Connection:="URL;http://sjmain.esunsec.com.tw/z/zc/zcc/zcc_" & sname & ".djhtm", Destination:=Range("$A$1"))
With myQT
.WebFormatting = xlWebFormattingNone
.Refresh BackgroundQuery:=False
.Delete
End With
Set myQT = Nothing
End Sub作者: joey0415 時間: 2020-7-8 19:31