如果使用WriteBookAsHTML,不需要build,如果是模板也不应该使用false参数:http://www.foxtable.com/mobilehelp/topics/0288.htm
……
jb.Filter = "[求职编号] = '" & qzbh & "'"
'jb.Build(True)
e.Resp
Dim Book As New XLS.Book(ProjectPath & "Attachments\简历表.xls")
Book.AddDataTable("简历表",jb.Build(True))
e.WriteBookAsHTML(Book)
……
另外下面这些代码,如果e.Path字符串没有这么长就会出现【索引和长度必须引用该字符串内的位置。】的错误
Dim n1 As Integer = e.Path.LastIndexOf("\")
Dim n2 As Integer = e.Path.LastIndexOf(".")
Dim str As String = e.Path.SubString(n1+1,30)
Dim dlkl As String = str.SubString(0,10)
Dim grbh As String = str.SubString(10,10)
Dim qzbh As String = str.SubString(20,10)
点.之后如果没有31的长度,这种代码肯定会出错:e.Path.SubString(n1+1,30)