以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]指定行中固定列为报表文件名  (http://www.foxtable.com/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
--  
果然有效,太感谢了