Foxtable(狐表)用户栏目专家坐堂 → HttpRequest 怎么发送excel报表……


  共有3945人关注过本帖树形打印复制链接

主题:HttpRequest 怎么发送excel报表……

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/6 15:38:00 [显示全部帖子]

参考:http://www.foxtable.com/mobilehelp/topics/0148.htm
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
e.WriteString("申报表已经生成Excel格式,请自行选择保存或打印!")
改为
e.WriteString(fl)
[此贴子已经被作者于2022/5/6 15:38:18编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/6 16:23:00 [显示全部帖子]

……
book.AddRelation("填报人信息", "主表id", "股piao信息", "主表id") '建立关联
book.AddRelation("填报人信息", "主表id", "持有基金情况", "主表id") '建立关联
book.AddRelation("填报人信息", "主表id", "持有期货", "主表id") '建立关联
book.AddRelation("填报人信息", "主表id", "持有其他投资", "主表id") 
book.AddRelation("填报人信息", "主表id", "投资公司企业情况", "主表id") '建立关联
book.AddRelation("填报人信息", "主表id", "其他财产申报", "主表id") '建立关联
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
e.WriteString(fl)
e.Handled = True  '通知系统异步函数执行完毕,可以关闭信道

[此贴子已经被作者于2022/5/6 16:24:23编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/6 16:37:00 [显示全部帖子]

文件名问题
Case  "Reports\sbbexcel.htm"
改为
Case  "Reports\sbbexcel.xls"


乱码参考:http://www.foxtable.com/mobilehelp/topics/0288.htm

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/6 17:19:00 [显示全部帖子]

字样不显示不可能和改成xls有直接的关系。有问题应该也是模板,或者是数据问题

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/6 17:29:00 [显示全部帖子]

去掉下面代码

Book.Build() '生成细节区
Book.Save(fl) '保存工作簿

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/7 8:22:00 [显示全部帖子]

……
book.AddRelation("填报人信息","主表id","其他财产申报","主表id") '建立关联
e.WriteBookAsPDF(Book)
e.Handled = True 


 回到顶部