以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  excelf直接生成网页  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149267)
--  作者：ifozhang
--  发布时间：2020/4/27 18:05:00
--  excelf直接生成网页
如果一个excel工作簿有多个工作表，但某些时候只想显示其中一张，如何写代码？

e.WriteBookAsHTML(Book,1,2)只能全部显示
--  作者：有点蓝
--  发布时间：2020/4/27 20:16:00
--  
把不需要的额sheet移除再调用WriteBookAsHTML：http://www.foxtable.com/webhelp/topics/1465.htm

If e.Path.StartsWith("Reports\\")
    e.Resp
    Select Case e.Path
        Case  "Reports\\ckd.htm"
            Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")
            Book.Sheets.RemoveAt(1) \'删除第二个sheet
            e.WriteBookAsHTML(Book)
        Case Else
            e.AsReportServer("Reports\\")
    End Select
End If
--  作者：ifozhang
--  发布时间：2020/4/28 7:37:00
--  
建议后期升级考虑这个问题，因为完整的模板都是一个工作簿里面包含多个工作表的。只有简单的应用才会一个工作簿只有一个工作表。
--  作者：有点蓝
--  发布时间：2020/4/28 8:52:00
--  
按2楼的方式自己移除不需要的即可。