关于VB6控制EXCEL把一个工作表复制到另一个工作表

Question

如题 代码如下    Dim XLSApp As New Excel.Application
    Dim XLSBook As New Excel.Workbook
    Dim XLSSheet As Excel.Worksheet
    'Dim xShapePic As Word.InlineShape
    
    'XLSApp.ScreenUpdating = False
    XLSApp.Visible = True
    
    Set XLSBook = XLSApp.Workbooks.Open(App.Path & "\" & XlsFileName)    '上面这个XLS含有一张SHEET
    
    With XLSBook
             .Sheets.Copy (1)  '这边想把第1张复制到第2张 失败 要求是AFTER 或是BEFORE
    End With 
    
    
    XLSApp.Visible = True
    XLSBook.Activate
    
    Exit Sub

Answer 1

.Sheets.Copy 第一章sheet的名字

Answer 2

试试.Sheets.Copy Sheets(第一章sheet的名字)

Answer 3

With XLSBook
'.Sheets.Copy (1)  '这是复制产生一张新表用的，不能复制到已经存在的表。    .Sheet1.Cells.Copy
    .Sheet2.Paste Cells(1, 1)End With 

Answer 4

With XLSBook
    .Sheets(1).Copy After:=.Sheets(1)
End With