- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 企业微信中生成excel格式的报表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129349)
-- 发布时间：2018/12/26 22:11:00
-- 企业微信中生成excel格式的报表
企业微信中一个生成excel的按钮，之前使用都是正常的，最近突然手机上的生成表格一直报错，电脑版的正常。提示未知错误an unknown error occurred.
此主题相关图片如下：qq图片20181226221056.png
-- 发布时间：2018/12/26 22:35:00
--
1、之前正常，现在不正常？你手机上的微信的版本有没有更改过？比如升级到了最新版等？
2、另外做一个按钮，单独测试 e.writebook 和 e.writefile 看是否正常
-- 发布时间：2018/12/26 23:30:00
--
感谢这么晚还在给我们解决问题； 1、有对企业微信进行升级。
2、 e.writefile 是正常的。 |
-- 发布时间：2018/12/27 8:34:00
--
经测试，安卓系统可以，苹果系统不行。
-- 发布时间：2018/12/27 9:11:00
--
1、单独做一个新项目，测试e.writebook，分别在别的浏览器、以及你的微信浏览器那里测试，看是否问题。
2、检测你苹果手机的微信版本，看是不是最新版的7.0。旧版本的微信是否正常？
3、暂时没有苹果手机测试，麻烦告知1、2的测试过程以及你的测试结果。
-- 发布时间：2018/12/27 18:29:00
--
怀疑还是苹果手机的问题，重新最了一个测试，苹果手机上的企业微信、微信、safari浏览器都出错，电脑的企业微信、ie都正常。
此主题相关图片如下：图片1.png
-- 发布时间：2018/12/27 21:33:00
--
1、如果不用【异步函数】改成同步，是否可以？
2、那你修改成 e.WriteFile 处理吧。
-- 发布时间：2018/12/27 21:57:00
--
测试了一下，用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
-- 发布时间：2018/12/28 1:25:00
-- 回复：（有点甜）测试了一下，用iphone直接这样测试没...
我试了你这种的，还是不行，用了两个苹果手机测试，都不行，奇了怪了。
-- 发布时间：2018/12/28 9:17:00
--
突然想到一个问题，e.writebook会不会要求服务器必须安装office？我这个服务器是没有office的。