以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [原创]自动生成EXCEL文件  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=107861)
--  作者：sysckj
--  发布时间：2017/10/11 15:34:00
--  [原创]自动生成EXCEL文件
根据表中的地区名称列，自动生成EXCEL表，A列中有北京，上海等名称，现在要将A列中名称相同的每行数据，自动生成相应的EXCEL表
--  作者：有点甜
--  发布时间：2017/10/11 15:43:00
--  

For Each s As String In DataTables("表A").GetValues("第一列", "第一列 is not null")
    Tables("表A").filter = "第一列 = \'" & s & "\'"
    Tables("表A").SaveExcel("d:\\test.xls", s)
Next
--  作者：sysckj
--  发布时间：2017/10/11 15:46:00
--  回复：（有点甜）For Each s As String In DataTables...
按照地区的名称生成表格的名称是改哪里
--  作者：sysckj
--  发布时间：2017/10/11 16:21:00
--  回复：（有点甜）For Each s As String In DataTables...
生成了一下，可以每一个地区生成一个文件吗
--  作者：有点甜
--  发布时间：2017/10/11 16:50:00
--  

For Each s As String In DataTables("表A").GetValues("第一列", "第一列 is not null")
    Tables("表A").filter = "第一列 = \'" & s & "\'"
    Tables("表A").SaveExcel("d:\\" & s & ".xls", s)
Next