|
VB(Visual Basic.NET)でEcelシートのデータを処理するソフトを作成しています。
元のデータを残しておきコピーしたデータで処理するため、下記のようにSheet1からSheet2へコピーさせようとしたところ、Sheet1とsheet2の間にSheet1(2)という新しいシートが作られ、そこにコピーされてしまいました。
Sheet1からSheet2へ直接コピーするにはどう変更すればよいでしょうか?
ご教示ください。
xlApp = CreateObject("Excel.Application")
xlBook = xlApp.Workbooks.Open("C:\VB.NET\TEST1.xls")
xlApp.Application.Visible = True 'Excel を表示する。
xlApp.Parent.Windows(1).Visible = True
xlSheet = xlBook.Worksheets("Sheet1")
xlSheet2 = xlBook.Worksheets("Sheet2")
xlSheet.Copy(xlSheet2) 'シート1から2へのコピー
|
|