取り込みたいWEBページのURLをURLが入力されているセルから取得（エクセル2002）

質問

最初に下のようにマクロを組みました。
WEBデータを取り込むマクロです。

【やってみたいこと】
セル上に入力されているURLを取り込む。

A1にhttp://biz.yahoo.co.jp/ranking/up/day/all.html
が入力されていた場合に

"URL;http://biz.yahoo.co.jp/ranking/up/day/all.html"
のURL部分「http://biz.yahoo.co.jp/ranking/up/day/all.html」

を（A1)などに置き換えることは可能でしょうか？

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2004/10/15 ユーザー名 :
'

'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://biz.yahoo.co.jp/ranking/up/day/all.html", Destination:=Range("A1" _
))
.Name = "all"
.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 = "11"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

回答No.1

papayuka · ベストアンサー

こんな感じで良いのでは？

Sub Macro1()
Dim s As String

　s = "URL;" & ActiveSheet.Range("A1").Text
　With ActiveSheet.QueryTables.Add(Connection:= _
　　　　　　s, Destination:=Range("A2"))
　　　.Name = "all"
　　　　　・
　　　　　・

Destination が Range("A1") だと書いておいた URL が消えちゃうので Range("A2") にしてます。

お礼

早速ご回答頂きありがとうございました。頭の中に光が差し込んでくる感じです。

補足

最初の部分と下記をそのまま入れ替えて見ましたが、うまくいきません。
ｓはA1に書かれてあるURLであると定義しました。A2以下の部分にWEBページの表が表示されるはずです。
余裕があるときで結構ですので、ご教示ください。

Sub Macro1()
Dim s As String

　s = "URL;" & ActiveSheet.Range("A1").Text
　With ActiveSheet.QueryTables.Add(Connection:= _
　　　　　　s, Destination:=Range("A2"))