| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 如何让导出的EXCEL表自动按其中列的内容命名 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=49650) |
|
| -- 作者：643561836 -- 发布时间：2014/4/22 10:09:00 -- 如何让导出的EXCEL表自动按其中列的内容命名 如何让导出的EXCEL表自动按其中列的内容命名。忘记了在帮助的什么位置！ |
|
| -- 作者：643561836 -- 发布时间：2014/4/22 10:10:00 -- 文件名 可以按列内容命名 |
|
| -- 作者：有点甜 -- 发布时间：2014/4/22 10:12:00 -- 是用代码导出？如果用代码导出，怎么控制都可以。
如果是通过菜单，就不能这样。 |
|
| -- 作者：Bin -- 发布时间：2014/4/22 10:12:00 -- http://www.foxtable.com/help/topics/0683.htm ex.NewTableName = tables("表A").current("第一列")
|
|
| -- 作者：643561836 -- 发布时间：2014/4/22 10:18:00 -- 举例来就，我点按钮导过EXCEL文件，这个文件自动命名为 【项目名称-公司名称-报价回复单-当天日期.xls】 |
|
| -- 作者：Bin -- 发布时间：2014/4/22 10:23:00 --
|
|
| -- 作者：有点甜 -- 发布时间：2014/4/22 10:23:00 -- 以下是引用643561836在2014-4-22 10:18:00的发言：
举例来就，我点按钮导过EXCEL文件，这个文件自动命名为 【项目名称-公司名称-报价回复单-当天日期.xls】
或者这样，直接写代码
Dim r As Row = Tables("xxx").Current Tables("xxx").SaveExcel("c:\\" & r("第一列") & "-" & r("第二列") & ".xls", "xxx")
参考
http://www.foxtable.com/help/topics/0559.htm
[此贴子已经被作者于2014-4-22 10:25:01编辑过]
|
|
| -- 作者：南山翠松 -- 发布时间：2014/4/22 11:18:00 -- 帮助中的：动态设置文件存储位置 |
|
| -- 作者：643561836 -- 发布时间：2014/4/22 11:32:00 -- 我的代码如下，就是想将报价单导出为EXECL表同时文件名称为项目名-客户名-报价回复价-今天日期.xls Dim m As Integer =0 Dim r As Row Dim t As Table = Tables("项目跟踪表.项目报价记录.报价产品") With t For i As Integer = 0 To .Rows.Count - 1 r = .Rows(i) If r.Locked = False Then m = m + 1 End If Next End With If m>0 Then MessageBox.Show("报价单中尚有未审核的数据,请先通过审核,才能导出报价单!", "提示") e.Cancel = True Else Dim Book As New XLS.Book(ProjectPath & "Attachments\\报价回复单模板2.xls") Dim fl As String = ProjectPath & "Reports\\报价回复单2.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() End If
|
|
| -- 作者：有点甜 -- 发布时间：2014/4/22 11:44:00 -- 改这句代码，红色的值，你替换成你行的内容，不清楚你要取哪个表哪一行的值。
Dim fl As String = ProjectPath & "Reports\\" & "项目名-客户名-报价回复价-今天日期" & ".xls" |