Foxtable(狐表)用户栏目专家坐堂 → 删除导出的工作簿中的工作表


  共有2485人关注过本帖树形打印复制链接

主题:删除导出的工作簿中的工作表

帅哥哟,离线,有人找我吗?
hopestarxia
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:927 积分:6676 威望:0 精华:0 注册:2013/8/10 18:33:00
删除导出的工作簿中的工作表  发帖心情 Post By: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
    )






 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:927 积分:6676 威望:0 精华:0 注册:2013/8/10 18:33:00
  发帖心情 Post By:2021/6/15 12:33:00 [只看该作者]

谢谢老师

 回到顶部