以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  打开存储文件失败。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=151834)
--  作者：xa139
--  发布时间：2020/7/4 23:22:00
--  打开存储文件失败。

图片点击可在新窗口打开查看此主题相关图片如下：未命名图片.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：未命名图片1.png
图片点击可在新窗口打开查看

If e.Path.StartsWith("Reports\\")
    e.Resp
    Select Case e.Path
        Case  "Reports\\ckd.htm"
            Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")
            e.WriteBookAsHTML(Book)
       Case  "Reports\\jianli.htm"
            Dim Book As New XLS.Book(ProjectPath & "Attachments\\资料卡.xls")
            e.WriteBookAsHTML(Book)
        Case Else
            e.AsReportServer("Reports\\")
    End Select
End If
编译好后 在运行目录下建目录 Attachments 复制了所有文件
提示无法打开文件 office安装，文件可正常打开
--  作者：有点蓝
--  发布时间：2020/7/5 20:24:00
--  
不存在下面文件：
msgbox(ProjectPath & "Attachments\\出库单.xls")
msgbox(ProjectPath & "Attachments\\资料卡.xls")