- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]表格导出 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169721)
-- 发布时间：2021/6/28 10:26:00
-- [求助]表格导出
如图所示，需要根据供应商名称分别将其对应的数据
此主题相关图片如下：问题.png
导出到excel表格，请教该如何设置导出代码
-- 发布时间：2021/6/28 10:48:00
--
意思是一个供应商导出一个表格？
-- 发布时间：2021/6/28 10:59:00
--
是的，需要同时导出
-- 发布时间：2021/6/28 11:04:00
--
for each s as string in datatabls("表A").getvalues("供应商名称")
Dim ex as New Exporter
ex.SourceTableName = "表A" \'指定导出表
ex.SourceTableName = "表A" \'指定导出表
ex.NewTableName = s
ex.FilePath = "c:\\Data\\表A.xls" \'指定目标文件
ex.Format = "Excel" \'导出格式为Excel
ex.Filter = "[供应商名称] = \'" & s & "\'" \'指定导出条件
ex.Export() \'开始导出
ex.FilePath = "c:\\Data\\表A.xls" \'指定目标文件
ex.Format = "Excel" \'导出格式为Excel
ex.Filter = "[供应商名称] = \'" & s & "\'" \'指定导出条件
ex.Export() \'开始导出
next