以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]按字段 牌号 尺寸 长度保存为PDF文件名  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=56090)
--  作者：weijun
--  发布时间：2014/8/29 10:18:00
--  [求助]按字段 牌号 尺寸 长度保存为PDF文件名

表为“质量证明书” 按字段 牌号 尺寸 长度保存为文件名帮改下代码。如：20HRB40012米 。谢谢！

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\\质量证明书新版.xls")
Dim fl As String = ProjectPath & "Reports\\质量证明书新版.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿

Dim flt1,flt2 As String
flt1 = fl
flt2 = ProjectPath & "Reports\\质量证明书新版.pdf"


If Not FileSys.FileExists(flt1) Then
    Messagebox.Show("文件不存在或已经被删除!","提示")
    Return
End If


Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(flt1)
wb.ExportAsFixedFormat(MSExcel.XlFixedFormatType.xlTypePDF, flt2)
App.Quit

[此贴子已经被作者于2014-8-29 10:28:57编辑过]
--  作者：有点甜
--  发布时间：2014/8/29 10:30:00
--  

 回复1楼，理解不了你的意思，你的牌号，尺寸等，来自于哪里？Table表的当前行？

 

 

 Dim fl As String = ProjectPath & "Reports\\质量证明书新版" & Tables("表A").Current("牌号") & ".xls"
--  作者：有点甜
--  发布时间：2014/8/29 10:31:00
--  

再有，可以直接保存为pdf了

 

http://www.foxtable.com/help/topics/2930.htm

 
--  作者：weijun
--  发布时间：2014/8/29 10:33:00
--  
牌号，尺寸等，来自于Table表的当前行
--  作者：有点甜
--  发布时间：2014/8/29 10:36:00
--  
以下是引用weijun在2014-8-29 10:33:00的发言：
牌号，尺寸等，来自于Table表的当前行

 

看2楼。
--  作者：weijun
--  发布时间：2014/8/29 10:38:00
--  
想保存指定的文件名
--  作者：有点甜
--  发布时间：2014/8/29 10:43:00
--  
就是这样啊，自己看2、3楼，处理一下
--  作者：weijun
--  发布时间：2014/8/29 11:13:00
--  

Dim Book As New XLS.Book(ProjectPath & "Attachments\\质量证明书新版.xls")
Dim fl As String = ProjectPath & "Reports\\质量证明书新版" & Tables("质量证明书").Current("尺寸") & Tables("质量证明书").Current("牌号") & Tables("质量证明书").Current("长度") & ".xls"
Book.Build() \'生成细节区
Book.SaveToPDF(fl) \'保存为PDF文件
Dim Proc As New Process \'打开PDF文件
Proc.File = fl
Proc.Start()

文件保存成功了，但提示

.NET Framework 版本：2.0.50727.3053
Foxtable 版本：2014.8.24.1
错误所在事件：
详细错误信息：
系统找不到指定的文件。
不能自动打开文件
--  作者：weijun
--  发布时间：2014/8/29 11:14:00
--  
但在文件夹里看到了保存好的文件
--  作者：有点甜
--  发布时间：2014/8/29 11:14:00
--  
Dim Book As New XLS.Book(ProjectPath & "Attachments\\质量证明书新版.xls")
Dim fl As String = ProjectPath & "Reports\\质量证明书新版" & Tables("质量证明书").Current("尺寸") & Tables("质量证明书").Current("牌号") & Tables("质量证明书").Current("长度") & ".pdf"
Book.Build() \'生成细节区
Book.SaveToPDF(fl) \'保存为PDF文件
Dim Proc As New Process \'打开PDF文件
Proc.File = fl
Proc.Start()