专家坐堂-用代码基于模版生成Excel报表时出现的临时文件保存对话框如何不出现Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Book As New XLS.Book(ProjectPath & "Attachments\\Invoice.xls")

Dim r As Row = Tables("订单").Current

Dim fl1 As String = "D:\\工作文件\\订单\\" & r("编号") & "\\Commercial Invoice " & r("编号") & ".xls"

Dim fl2 As String = "D:\\工作文件\\订单\\" & r("编号") & "\\Commercial Invoice " & r("编号") & ".pdf"

Book.Build()

Dim Sheet As XLS.Sheet = Book.Sheets("Invoice")

Sheet(0,0).Value = New XLS.Picture(GetImage("LOGO.png"))

Sheet(1,3).Value = "************"

Sheet(2,3).Value = "************"

Sheet(3,3).Value = "************"

Sheet(4,3).Value = "************"

Sheet(5,3).Value = "************"

Sheet(37,1).Value = "************"

Sheet(38,1).Value = "************"

Sheet(39,1).Value = "************"

Sheet(40,1).Value = "************"

Sheet(41,1).Value = "************"

Sheet(42,1).Value = "************"

Sheet(40,4).Value = "************"

Sheet(41,4).Value = "************"

Sheet(44,0).Value = "************"

Book.Save(fl1)

Book.SaveToPDF(fl2)

Dim Proc As New Process

Proc.File = fl2

Proc.Start()

Dim Book As New XLS.Book(ProjectPath & "Attachments\\Packing List-China.xls")

Dim r As Row = Tables("订单").Current

Dim fl1 As String = "D:\\工作文件\\订单\\" & r("编号") & "\\Packing List " & r("编号") & ".xls"

Dim fl2 As String = "D:\\工作文件\\订单\\" & r("编号") & "\\Packing List " & r("编号") & ".pdf"

Book.Build()

Dim Sheet As XLS.Sheet = Book.Sheets("Packing List")

Sheet(0,0).Value = New XLS.Picture(GetImage("LOGO.png"))

Sheet(1,4).Value = "************"

Sheet(2,4).Value = "************"

Sheet(3,4).Value = "************"

Sheet(4,4).Value = "************"

Sheet(5,4).Value = "************"

Sheet(38,0).Value = "************"

Book.Save(fl1)

Book.SaveToPDF(fl2)

Dim Proc As New Process

Proc.File = fl2

Proc.Start()