10/02/18 18:44:01
>>331
Sub test()
Dim URL As String
Dim WebTbl As String
URL = "URL;URLﾘﾝｸ(quote.yahoo.co.jp)"
' 読み込むテーブルNoを指定する
WebTbl = "4"
With ActiveSheet.QueryTables.Add(Connection:=URL _
, Destination:=Range("A1"))
.WebFormatting = xlWebFormattingNone
.WebTables = WebTbl
.Refresh
End With
End Sub
ちょっと違うかな？