求助！根据列内容相同与否将数据导出到同一个excel的不同sheet里 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助！根据列内容相同与否将数据导出到同一个excel的不同sheet里

共有3803人关注过本帖树形打印复制链接主题：求助！根据列内容相同与否将数据导出到同一个excel的不同sheet里

wyz20130512

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：六尾狐帖子：1249 积分：9498 威望：0 精华：0 注册：2013/5/12 9:22:00

Post By：2016/3/7 9:25:00 [显示全部帖子]

对2楼的整理

With Tables("表A")

Dim dyl_L As List(Of String) = .DataTable.Getvalues("第一列")

For Each dyl_ As String In dyl_L

.Filter = "第一列 = '" & dyl_ & "'"

.SaveExcel("d:\test.xls",dyl_)

End With

wyz20130512

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：六尾狐帖子：1249 积分：9498 威望：0 精华：0 注册：2013/5/12 9:22:00

Post By：2016/3/7 23:37:00 [显示全部帖子]

可以封装为一个函数，如下：

'根据列内容相同与否将数据导出到同一个excel的不同sheet里

Dim dlg As New SaveFileDialog

dlg.Filter = "Excel文件|*.xls"

If dlg.ShowDialog = DialogResult.OK Then

With Tables(Args(0)) '第一个参数为"表名"

Dim dyl_L As List(Of String) = .DataTable.Getvalues(Args(1)) '第二个参数为"列名"

For Each dyl_ As String In dyl_L

.Filter = Args(1) & " = '" & dyl_ & "'"

.SaveExcel(dlg.FileName,dyl_)

End With

End If

以上为函数代码，其名称为：TableSaveSheetOfExcel

调用代码：Functions.Execute("TableSaveSheetOfExcel","表名","列名")

wyz20130512

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：六尾狐帖子：1249 积分：9498 威望：0 精华：0 注册：2013/5/12 9:22:00

Post By：2016/3/8 15:35:00 [显示全部帖子]

直接修改Execl模板中的打印条件即可。

主题：求助！根据列内容相同与否将数据导出到同一个excel的不同sheet里