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

名前

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

本文 お世話になっております。 過去ログで似たようなものがあり参考にさせていただいたのですが エラーになってしまうため質問させていただきました。 Test1.xlsのシートをTest2.xlsにコピーしたいのですがうまくいきません。 エラー内容は「Worksheet クラスの Copy メソッドが失敗しました。」とでます。 どなたか理解できる方がいらっしゃいましたら、ご教授をお願い致します。 環境は VB6.0(SP5) Excel2000です。 Dim objMoto As Object Dim objSaki As Object ' エクセルを起動 Set objMoto = CreateObject("Excel.Application") Set objSaki = CreateObject("Excel.Application") ' エクセルファイルを開く objMoto.Workbooks.Open "C:\Text1.xls" objSaki.Workbooks.Open "C:\Text2.xls" objMoto.Visible = True objSaki.Visible = True objMoto.Sheets(1).Select objMoto.Sheets(1).Copy After:=objSaki.Sheets(objSaki.Sheets.Count) objMoto.Workbooks.Close Set objMoto = Nothing objSaki.Workbooks.Close Set objSaki = Nothing よろしくお願い致します。