Excelシートのコピー

質問

VB2008,Excel2007です。
VBからExcelのシートコピーを行いたいのですが、エラーが出てしまい対応策が分からず困っています。
どうすればいいのかご教授ください。

今、書いている処理は下記になります。
エラーが発生するのは最終行です。
エラー内容は「"HRESULT からの例外: 0x800A03EC"」

Dim CopyExcel ,PasteExcel As New Excel.Application
Dim CopyBooks ,PasteBooks As Excel.Workbooks
Dim CopyBook ,PasteBook As Excel.Workbook
Dim CopySheets,PasteSheets As Excel.Sheets
Dim CopySheet ,PasteSheet As Excel.Worksheet

'ExcelBookオープン
CopyBooks = CopyExcel.Workbooks
CopyBook = CopyBooks.Open("C:\Copy.xls")
CopySheets = CopyBook.Worksheets
PasteBooks = PasteExcel.Workbooks
PasteBook = PasteBooks.Open("D:\Paste.xls")
PasteSheets = PasteBook.Worksheets

'シートコピー
CopySheet = DirectCast(CopySheets.Item(1), Excel.Worksheet)
PasteSheet = DirectCast(PasteSheets.Item(1), Excel.Worksheet)
CopySheet.Copy(PasteSheet)

回答No.2

fumufumu_2006 · ベストアンサー

2つのExcel.Application間でcopyしようとしてるからじゃないでしょうか？
CopyExcelとPasteExcelを分けずに1つにしてみてはどうでしょうか？

例えば、
Dim excelApp As New Excel.Application
で両方のBookを開く。

お礼

ご回答ありがとうございます。
指摘されたとおり、Excel.Applicationを１つにしたところ
正しくコピー処理がうごきました。

回答No.1

higekuman

本当に「エラーが発生するのは最終行」ですか？

CopyBooks = CopyExcel.Workbooks　でエラーになるはずなのですが。

補足

デバッグしているときに、エラーをcatchするのは最終行です。
指摘された箇所ではエラーは発生しませんでした。