专家坐堂-如何根据表中多列内容命名EXCEL表Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何根据表中多列内容命名EXCEL表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49667)

--  作者：643561836
--  发布时间：2014/4/22 12:42:00
--  如何根据表中多列内容命名EXCEL表

现在代码如下
Dim Book As New XLS.Book(ProjectPath & "Attachments\\报价回复单模板2.xls")

Dim name As String = Tables("项目跟踪表.项目报价记录.报价产品").current("项目名称")
Dim fl As String = ProjectPath & "Reports\\" & name & "-报价回复单" & Date.today & ".xls"

Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表

Sheet(7,3).Value = Date.Today

Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿

Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()

现在我想根据【项目名称列 +客户名称列】两列来自动命名EXCEL表文件名

--  作者：Bin
--  发布时间：2014/4/22 14:09:00
--

Dim name As String = Tables("项目跟踪表.项目报价记录.报价产品").current("项目名称") & "-" & Tables("项目跟踪表.项目报价记录.报价产品").current("客户名称")
Dim fl As String = ProjectPath & "Reports\\" & name & "-报价回复单" & Date.today & ".xls"