主题：[求助]按字段 牌号 尺寸 长度保存为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

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

 

 

 Dim fl As String = ProjectPath & "Reports\质量证明书新版" & Tables("表A").Current("牌号") & ".xls"

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

 

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

 

牌号，尺寸等，来自于Table表的当前行

 

看2楼。

想保存指定的文件名

就是这样啊，自己看2、3楼，处理一下

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
错误所在事件：
详细错误信息：
系统找不到指定的文件。
不能自动打开文件

但在文件夹里看到了保存好的文件

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()