Research on the improvement of Web ...
The present written recommendations suggest ways to improve the compatibility of web ... web page creation. ...
http://www.ipa.go.jp/software/open/ossc/download/Web_Recommendations_En.pdf
エクセル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
提供: Yahoo!知恵袋Web API