以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  创建副本  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187623)
--  作者：hqy168168
--  发布时间：2023/7/31 11:05:00
--  创建副本
如何在excel中创建工作表的副本，并重命名副本工作表，和保存工作簿？
--  作者：有点蓝
--  发布时间：2023/7/31 11:14:00
--  
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