- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- excle报表命名问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=43438)
-- 发布时间：2013/12/7 11:09:00
-- excle报表命名问题
生成excel报表，文件名能根据指定值生成吗？比如根据 报价单编号 生成...
[此贴子已经被作者于2013-12-7 11:10:23编辑过]
-- 发布时间：2013/12/7 11:11:00
--
当然可以 名称是可以随意指定的
Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls") \'打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(6,6).Value = "制单人:" & User.Name \'修改模板,加入制单人信息
Book.Build() \'生成细节区
Book.Save("c:\\reports\\test.xls") \'保存工作簿 这里可以随意设置名称
Dim Proc As New Process \'打开工作簿
Proc.File = "c:\\reports\\test.xls"
Proc.Start()
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(6,6).Value = "制单人:" & User.Name \'修改模板,加入制单人信息
Book.Build() \'生成细节区
Book.Save("c:\\reports\\test.xls") \'保存工作簿 这里可以随意设置名称
Dim Proc As New Process \'打开工作簿
Proc.File = "c:\\reports\\test.xls"
Proc.Start()
-- 发布时间：2013/12/7 11:45:00
--
估计他是想直接叫起一个EXCEL
而非模板，然后以编码命名
-- 发布时间：2013/12/7 11:56:00
--
你是说直接导出为Excel文件然吗?
同样可以自定义名称的
CurrentTable.SaveExcel("C:\\data\\我的名称.xls","订单")
-- 发布时间：2013/12/7 15:58:00
--
Dim Book As New XLS.Book(ProjectPath & "Attachments\\报价单.xls")
Dim fl As String = ProjectPath & "Reports\\报价单.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
以上代码如何改成 文件名是取值 某列（报价单编号），弹出保存文件路径对话框，再打开文件
-- 发布时间：2013/12/7 16:02:00
--
http://www.foxtable.com/help/topics/0329.htm
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls|Excel2007文件|*.xlsx" \'设置筛选器
dlg.Filter= "Excel文件|*.xls|Excel2007文件|*.xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim Book As New XLS.Book(ProjectPath & "Attachments\\报价单.xls")
Book.Build() \'生成细节区
Book.Save(dlg.FileName) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = dlg.FileName
Proc.Start()
End If
Book.Build() \'生成细节区
Book.Save(dlg.FileName) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = dlg.FileName
Proc.Start()
End If
-- 发布时间：2013/12/7 16:35:00
--
能不能文件名自动取值（取列内容，例如取报价单编号）？ 保存对话框选保存路径就可以了
-- 发布时间：2013/12/7 16:42:00
--
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls|Excel2007文件|*.xlsx" \'设置筛选器
dlg.Filter= "Excel文件|*.xls|Excel2007文件|*.xlsx" \'设置筛选器
dlg.FileName=tables("表A").current("报价单号") & ".xls"
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim Book As New XLS.Book(ProjectPath & "Attachments\\报价单.xls")
Book.Build() \'生成细节区
Book.Save(dlg.FileName) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = dlg.FileName
Proc.Start()
End If
Book.Build() \'生成细节区
Book.Save(dlg.FileName) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = dlg.FileName
Proc.Start()
End If
看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。
三遍之后才开始做系统，先设计好表，想做什么功能，就做什么功能，遇到问题在帮助找答案，找不到的在论坛提问，不断遇到问题，不断解决问题，慢慢就熟悉了。
此外一定要先掌握《使用指南》，然后再看《开发指南》
-- 发布时间：2013/12/7 16:59:00
--
谢谢您的建议~