以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]可否实现自动导出报告的功能  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140193)

--  作者:tarxc
--  发布时间:2019/8/31 13:46:00
--  [求助]可否实现自动导出报告的功能
描述:
已经做好一个excel报告的模板,存在项目Attachments文件夹内
之前的做法:点击‘生成报表’生成一个excel报告、将报告另存在本地、将报告增加到表中属性为备注-多文件的列、自动复制到局域网指定路径
由于每一笔记录都需要生成报告、另存、在增加回表中,操作比较麻烦,希望能够用代码实现如下步骤:

1.增加一个导出报告的按钮
2.点击按钮,在局域网指定路径生成一个报告(用做好的报表模板生成,文件名与第一列编号一致)
3.将生成的报告文件名自动填入 ‘检测编号’ 列
4.打开这个文件

请版主大人帮忙看看是否能够实现


图片点击可在新窗口打开查看此主题相关图片如下:图片1-1.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2019/8/31 14:11:00
--  
1、2、4,参考:http://www.foxtable.com/webhelp/topics/1145.htm

Dim fl As String = ProjectPath & "Reports\\" & tables("表A").current("编号") & ".xls"

3、tables("表A").current("检测报告") =  tables("表A").current("编号") & ".xls"


--  作者:tarxc
--  发布时间:2019/8/31 15:12:00
--  
感谢版主,已经实现
我还想在导出之前增加一个判断代码:
如果指定路径中已有与‘编号’相同的文件,则提示‘文件已存在’
否则进行导出

请帮忙

--  作者:有点蓝
--  发布时间:2019/8/31 15:52:00
--  
参考:http://www.foxtable.com/webhelp/topics/0337.htm