主题：Excel报表生成网页

“风险卡”是一个外部数据表，参考用Excel报表生成网页，代码，无响应，求解，谢谢！

If e.Path.StartsWith("Reports\")

    e.Resp

    Select Case e.Path

        Case "editrisk.htm"

            Dim Book As New XLS.Book(ProjectPath & "Attachments\风险评估卡.xls")

            book.AddDataTable("风险卡","","Select * fro  m {风险卡} where 危险源名称 = '货物检查'")

            e.WriteBookAsHTML(Book)

        Case Else

            e.AsReportServer("Reports\")

    End Select

End If