主题：创建副本

Dim App As New MSExcel.Application

Try

    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\123.xls")

    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) '指定要复制的工作表

    With Wb.WorkSheets

        Ws.Copy(After:=.Item(.Count))'复制到最后面

    End With

    Ws = Wb.WorkSheets(Wb.WorkSheets.Count)

    Ws.Name = "新的名称"

    app.DisplayAlerts = False

    Wb.Save()

    App.Quit

Catch ex As exception

    msgbox(ex.message)

    App.Quit

End Try