特定の Web サイトからテーブルを抽出するマクロがあります。
ユーザーまたはセルからデータを受け取り、それを URL 宛先に入力するマクロを作成するにはどうすればよいですか?
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://" _
任意のセルに URL がある場合は、ええ。セル A1 には www.stackoverflow.com があり、次のようになります。
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://" & Range("A1") & _
ユーザーからこのアドレスを取得する場合は、次のようにします。
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://" & InputBox("Write site address starting with www") & _
最後に追加&
したものは必要ないかもしれませんが、あなたのコードのそれ以上の部分を見て決定することはできません。