以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  删除导出的工作簿中的工作表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169399)
--  作者：hopestarxia
--  发布时间：2021/6/15 11:44:00
--  删除导出的工作簿中的工作表
Dim Book As New XLS.Book(ProjectPath & "Attachments\\xmbg.xls")
Dim Sheet As XLS.Sheet = Book.Sheets("zhb") \'引用工作簿的第一个工作表
Dim fl As String = ProjectPath & "Reports\\bgwd.xls"
Book.Build(0)
Book.Save(fl)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("zhb")
Ws.Select
App.Visible = True
ShowAppWindow("xmbg",2)


老师，我想在生成的EXCEL文件工作簿中删除固定名称的工作表，（工作簿中有好多工作表，），例如我想删除生成的工作簿bgwd中的名为 AAA 的工作表；
参考的说明好像都是定义的不是新生成的EXCEL文件（定义到设计 的模板文件上了），请问老师我应该怎么修改定义到我新生成的导出的文件，（模板文件不动）

  • Dim Book As New XLS.Book
    Book.Sheets.Remove(    "统计"    )
    　

  • Dim Book As New XLS.Book("c:\\reports\\test.xls")
    Book.Sheets.RemoveAt(    0    )
--  作者：有点蓝
--  发布时间：2021/6/15 12:10:00
--  
Dim Book As New XLS.Book(ProjectPath & "Attachments\\xmbg.xls")
Dim Sheet As XLS.Sheet = Book.Sheets("zhb") \'引用工作簿的第一个工作表
Dim fl As String = ProjectPath & "Reports\\bgwd.xls"
Book.Build(0)
Book.Sheets.Remove("AAA")
Book.Save(fl)
--  作者：hopestarxia
--  发布时间：2021/6/15 12:33:00
--  
谢谢老师