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

企业微信中一个生成excel的按钮，之前使用都是正常的，最近突然手机上的生成表格一直报错，电脑版的正常。提示未知错误an unknown error occurred.

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

 

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

感谢这么晚还在给我们解决问题； 1、有对企业微信进行升级。   2、 e.writefile 是正常的。

经测试，安卓系统可以，苹果系统不行。

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

 

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

 

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

怀疑还是苹果手机的问题，重新最了一个测试，苹果手机上的企业微信、微信、safari浏览器都出错，电脑的企业微信、ie都正常。

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

我试了你这种的，还是不行，用了两个苹果手机测试，都不行，奇了怪了。

突然想到一个问题，e.writebook会不会要求服务器必须安装office？我这个服务器是没有office的。