VBからExcelのセルのコピーを行うには？ (ID:112574)

名前

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

本文 お世話になっております。 以下のようなサンプルプログラムでVBからExcelのセルのコピーを行う方法を テストしました。 Private Sub Command1_Click() Dim AppXLS As Object Set AppXLS = CreateObject("excel.application.9") With AppXLS.Application .Workbooks.Add '=AppXLS.Application.Workbooks.Add .Visible = True .Worksheets.Add With .Workbooks(1).Worksheets(1).Range("A1") '=AppXLS.Application.Workbooks(1).Worksheets(1).Range("A1") .Value = "ABCDEFG" .Font.Size = 20 .Font.ColorIndex = 3 .Columns("A:A").AutoFit End With With .Workbooks(1).Worksheets(1).Range("B2") .Value = "HIJKLMN" .Font.Size = 20 .Font.ColorIndex = 5 .Columns("A:A").AutoFit End With End With Worksheets("Sheet4").Range("A1:B2").Copy _ Destination:=Worksheets("Sheet1").Range("E5") End Sub 結果は私の望んだとおりになりましたので実際のプログラムへ反映させてみました。 実際のプログラムは別のExcelで作られた役10000行のデータをVBの変数に取り込み VB上でデータを加工して新規で立ち上げたExcelに貼り付けたものです。 その貼り付けたデータを貼り付けたシートとは違うシートへコピーするために End Subの前の2行を使って実行しようとしましたが以下のようなエラーが発生してしまいました。 実行時エラー'1004': 'Worksheets'メソッドは失敗しました。:'_Global'オブジェクト 参考書など見ているのですがどこをどう処理したらよいのか分かりません。 どなたかご教授願えますでしょうか。 ちなみにVB6とExcel2000です。 よろしくお願いいたします。