ACCESSVBA からExcelの他ブックへコピーの方法

VBA初心者です。
ACCESS VBAからExcelブック２のシート「データ①」をExcelブック１のシート「データ①」へコピーしたいのですが、インデックスが有効でないとのエラーで先にすすめません。
どなたかをご教授願います。

Private Sub Ps_Excel_Data_Set()
Dim strNewFileName As String
Dim strOldFileName As String

Dim xlApp As Object
Dim xlBook1 As Object
Dim xlBook2 As Object
Dim xlSheet As Object

strNewFileName = "c:\ブック1.xls"
strOldFileName = "c:\ブック２.xls"

'エクセル展開
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
xlApp.UserControl = False
xlApp.DisplayAlerts = False
Set xlBook1 = xlApp.Workbooks.Open(strNewFileName)
Set xlBook2 = xlApp.Workbooks.Open(strOldFileName)

'シート削除
xlBook1.Worksheets("DATA①").Delete
xlBook1.Worksheets("DATA②").Delete

　 '****************ここでエラーが出ています！
'シートコピー
'xlBook2.Worksheets("DATA①").Copy after:=xlApp.Workbooks(strNewFileName).sheets(1)
　 '**************************************

　 'エクセルファイルを閉じる
xlBook2.Close (False)

Set xlSheet = Nothing
Set xlBook2 = Nothing

'エクセルファイルを閉じる
xlBook1.Close (True)
xlApp.Quit

'オブジェクトの開放
Set xlBook1 = Nothing
Set xlApp = Nothing

End Sub

No.1 回答者： nicotinism 回答日時： 2015/05/12 22:52

xlBook2.Worksheets("DATA①").Copy after:=xlApp.Workbooks(xlBook1.Name).sheets(1)

だとどうです？