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)