処理速度 (ID:88837)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 これって、ワークシート数が1個しかない場合に、 自分を自分にコピーすることになってしまいませんか? > Worksheets(1).Range("B13:M18").Copy まず、この部分がNG。Worksheets(1) ではなく、 objBook.Worksheets(1) のような構文を使いましょう。 http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi?print+200403/04030102.txt たとえば、このようなイメージで。 Dim oApp As Excel.Application Dim oBook As Excel.Workbook Dim oSheets As Excel.Sheets Set oApp = New Excel.Application oApp.Visible = True Set oBook = oApp.Workbooks.Add(〜) 'または、oApp.Workbooks.Open(〜) Set oSheets = oBook.Sheets '一度変数に受ける。 oSheets(1).Range("B13:M18").Copy Destination:=oSheets(oSheets.Count).Range("B13:M18")