以文本方式查看主题
- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]指定行中固定列为报表文件名 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108056)
|
-- 作者:Engineer1
-- 发布时间:2017/10/15 13:08:00
-- [求助]指定行中固定列为报表文件名
Dim Bookfx As New XLS.Book(ProjectPath & "Attachments\\分析报告模板.xls") Dim ffx As String = ProjectPath & "attachments\\Reports\\fxreports\\" & Tables("lhjc").Current("报告编号") & ".xls" Bookfx.Build() \'生成细节区 Bookfx.Save(ffx) \'保存工作簿 Dim Proc As New Process \'打开工作簿 Proc.File = ffx Proc.Start() 怎么不可以呢?请教一下正确制定方式
|
-- 作者:有点甜
-- 发布时间:2017/10/15 14:20:00
--
代码没问题,执行代码报什么错?
|
-- 作者:Engineer1
-- 发布时间:2017/10/15 14:46:00
--
执行后保存的文件只有扩展名,没有文件名 .xls 如图 此主题相关图片如下:捕获.png
|
-- 作者:Engineer1
-- 发布时间:2017/10/15 15:09:00
--
此主题相关图片如下:捕获1.png
执行的时候出现的
|
-- 作者:有点甜
-- 发布时间:2017/10/15 15:58:00
--
你当前行的单元格没有值,这个值是空的 Tables("lhjc").Current("报告编号")
报告编号,你要填入对应的值。
|
-- 作者:Engineer1
-- 发布时间:2017/10/15 17:31:00
--
应该是这个问题,我想在文本框里输入报告编号后自动生成一个此编号的文件做报表,在报告查询窗口双击行也可以打开以作查询报告,现在实现不了请啦平时帮助一下,非常感谢!
|
-- 作者:有点甜
-- 发布时间:2017/10/15 17:33:00
--
试试这样
Dim ffx As String = ProjectPath & "attachments\\Reports\\fxreports\\" & e.form.controls("TextBox1").Text & ".xls"
|
-- 作者:Engineer1
-- 发布时间:2017/10/15 19:49:00
--
果然有效,太感谢了
|