EXCEL 无法 COPY 工作表 参考了好多资料都无法解决，求大神

Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet1 = xlBook.Worksheets(1)
Set xlSheet2 = xlBook.Worksheets(2)
Set xlSheet3 = xlBook.Worksheets(3)
xlSheet1.Cells.Font.Size = 9
xlSheet1.Name = "Page1"
xlSheet2.Cells.Font.Size = 9
xlSheet2.Name = "Page2"
xlSheet3.Cells.Font.Size = 9
xlSheet3.Name = "Page3"---对三个表进行填充Set objExcel = New Excel.Application
objExcel.Workbooks.Open App.Path & "\销售普通发票.xls"
'在程序目录下有个EXCEL 需要把这个EXCEL 的第4个工作表复制到 这个刚创建的还未保存的表中也是放到第4个位置objExcel.Workbooks(1).Sheets(4).Copy after:=xlApp.Workbooks(1).Sheets(3)xlBook.SaveAs CD1.FileName
xlApp.Quit
objExcel.Quit
objExcel2.Quit
Unload Loading
MsgBox "导出成功！", 64, "金蝶提示"
以上代码修改了很多次，每次都无任何报错。。但是就是不能把表复制过来。。疯掉了