- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 如何按要求导出表格？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=108922)
-- 发布时间：2017/10/31 23:48:00
-- 如何按要求导出表格？
表的数据有十几万条，导出一个excel容不下，考虑按“客户经理”导出excel，怎么样才能导出表格并按客户经理名称命名表，只导出一个excel文档。
[此贴子已经被作者于2017/11/1 8:39:01编辑过]
-- 发布时间：2017/11/1 8:53:00
--
你导出成xlsx的话，十几万条数据是可以容纳的。
如果要分类导出，参考代码
Dim dt As Table = Tables("表A")
For Each jl As String In dt.DataTable.GetValues("第一列")
dt.Filter = "第一列 = \'" & jl & "\'"
dt.SaveExcel("d:\\test.xlsx", jl)
Next
-- 发布时间：2017/11/1 8:57:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:汇总3.txt |
-- 发布时间：2017/11/1 9:17:00
--
完美解决，谢谢版主