把不需要的额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