Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何让导出的EXCEL表自动按其中列的内容命名


  共有3931人关注过本帖树形打印复制链接

主题：如何让导出的EXCEL表自动按其中列的内容命名
帅哥哟，离线，有人找我吗？
643561836
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：171 积分：1392 威望：0 精华：0 注册：2013/2/1 10:00:00 		如何让导出的EXCEL表自动按其中列的内容命名  发帖心情 Post By：2014/4/22 10:09:00 [只看该作者]

如何让导出的EXCEL表自动按其中列的内容命名。忘记了在帮助的什么位置！

 回到顶部
帅哥哟，离线，有人找我吗？
643561836
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：171 积分：1392 威望：0 精华：0 注册：2013/2/1 10:00:00 		  发帖心情 Post By：2014/4/22 10:10:00 [只看该作者]

文件名      可以按列内容命名

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/4/22 10:12:00 [只看该作者]

 是用代码导出？如果用代码导出，怎么控制都可以。

 

 如果是通过菜单，就不能这样。
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/4/22 10:12:00 [只看该作者]

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

ex.NewTableName = tables("表A").current("第一列")
 回到顶部
帅哥哟，离线，有人找我吗？
643561836
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：171 积分：1392 威望：0 精华：0 注册：2013/2/1 10:00:00 		  发帖心情 Post By：2014/4/22 10:18:00 [只看该作者]

举例来就，我点按钮导过EXCEL文件，这个文件自动命名为  【项目名称-公司名称-报价回复单-当天日期.xls】

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/4/22 10:23:00 [只看该作者]

dim r as row = tables("表A").current
ex.NewTableName = r("项目名称") & "-" & r("公司名称") & "-" & r("报价回复单") & "-" & date.today
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
南山翠松
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：12 积分：160 威望：0 精华：0 注册：2013/11/27 9:08:00 		  发帖心情 Post By：2014/4/22 11:18:00 [只看该作者]

帮助中的：动态设置文件存储位置
 回到顶部
帅哥哟，离线，有人找我吗？
643561836
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：171 积分：1392 威望：0 精华：0 注册：2013/2/1 10:00:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/4/22 11:44:00 [只看该作者]

 改这句代码，红色的值，你替换成你行的内容，不清楚你要取哪个表哪一行的值。

 

Dim fl As String = ProjectPath & "Reports\" & "项目名-客户名-报价回复价-今天日期" & ".xls"
 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03613 秒, 4 次数据查询