エクセルのシートをコピーするには？ (ID:81357)

名前

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

本文 お世話になっております。 VBからエクセルのシートをコピーするために下記のコードを記述しましたが エラーが出てしまいます。 エラー内容は 「'Sheets'メソッドは失敗しました'Globalオブジェクト'」 です。 どなたか理解できる方がいらっしゃいましたら、ご教授をお願い致します。 環境は VB6．0 excel97です --- Private Sub Command1_Click() Dim objExcelApp As Workbook Dim strExcelFile As String Dim strExcelSheet As String strExcelFile = "d:\temp\test.xls" strExcelSheet = "sheet1" Set objExcelApp = GetObject(strExcelFile, "Excel.Sheet") objExcelApp.Sheets("Sheet1").Select objExcelApp.Sheets("Sheet1").Copy After:=Sheets(1) '●エラー発生 objExcelApp.ActiveSheet.Paste objExcelApp.Save objExcelApp.Application.Quit Set objExcelApp = Nothing End Sub --- よろしくお願いします。