- Excel VBA 質問スレ Part33
501 ：デフォルトの名無しさん[sage]：2014/05/14(水) 17:08:56.86 ID:ZCY9UWx+ - >>500
実行するたびにシートが増えるが、そこはどうにかしろ。
Sub foo()
Dim r As Range
Dim sheet As Worksheet
For Each r In Range("A1").CurrentRegion
Set sheet = Worksheets.Add
クエリ抽出 sheet, r.Value
Next
End Sub
Sub クエリ抽出(ByRef sheet As Worksheet, ByVal url As String)
With sheet.QueryTables.Add(Connection:= _
"url;" & url, _
Destination:=sheet.Range("A1"))
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "1"
.Refresh BackgroundQuery:=False
End With
End Sub
|