主题：企业微信中生成excel格式的报表

1、之前正常，现在不正常？你手机上的微信的版本有没有更改过？比如升级到了最新版等？

2、另外做一个按钮，单独测试 e.writebook 和 e.writefile 看是否正常

1、单独做一个新项目，测试e.writebook，分别在别的浏览器、以及你的微信浏览器那里测试，看是否问题。

2、检测你苹果手机的微信版本，看是不是最新版的7.0。旧版本的微信是否正常？

3、暂时没有苹果手机测试，麻烦告知1、2的测试过程以及你的测试结果。

1、如果不用【异步函数】改成同步，是否可以？

2、那你修改成 e.WriteFile 处理吧。

测试了一下，用iphone直接这样测试没问题

Dim fl As String = "c:\web\" & e.path '合成含路径的文件名
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".doc",".jpg",".gif",".png",".bmp",".wmf",".js",".htm",".html",".css",".zip",".rar",".jpeg" '这里加上了js扩展名
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If
Select Case e.Path
    Case "test.htm", ""
        Dim Book As New XLS.Book(ProjectPath & "Attachments\123.xls")
        book.AddDataTable("test","test","Select * from {test}") '添加父表
        e.WriteBook(book,"出库单.xls",True)
End Select

如果你服务器上没有安装office，那么，excel报表都不会正常生成的啊，为什么别的手机、电脑可以下载？肯定是安装过了的。