ゴルフクラブの特徴を解説しています

ゴルフクラブガイド

Web注目情報

ＵＲ都市機構 西日本支社 なごみライフ 住まい日和WEB
ＵＲ都市機構ホーム > なごみライフ > 住まい日和WEB. サイトマップ. スタイル・ログ ... 住まい日和WEB. 特集:この街で暮らす! 民間住宅事業者特集. わが家の家計簿診断 ... 住まい日和WEBアンケート. 上津台でアウトドア. 友の会のご案内 ...
http://www.ur-net.go.jp/nagomilife/lifestyle/sumaibiyori.html

エクセルVBAでweb上の別のエクセルファイルの特定のシートをアクティブシートに貼り付ける処理をしたいです。
urlにアドレス文字列を入れてこのように処理します。
'恐らくここのアドレスにシートの指定を追加するのだと思いますが…With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & url , Destination:=Range("A1")) .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = xlWindows .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1) .Refresh BackgroundQuery:=False .Parent.Names(.Name).Delete .Deleteただ、このままですとsheet2のように複数のシートがある場合に対応できません。
この例でsheet2をまるまる取得するにはどのようなコードになるのでしょうか？
どうしてもクエリでなくてもいいのなら、こんなのではどうでしょうか？
Sub sample()Dim book As WorkbookSet book = Workbooks.Open("http://www.そのurl/book1.xls")book.Sheets(1).Cells.Copy ThisWorkbook.Sheets(1).Range("A1")book.Sheets(2).Cells.Copy ThisWorkbook.Sheets(2).Range("A1")book.Close SaveChanges:=FalseEnd Sub

ネットってなぁに？
Web注目情報
ウェブが与えた影響