| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 导出成多数据表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188472) |
| -- 作者：rgbjwjb -- 发布时间：2023/9/21 14:48:00 -- 导出成多数据表 数据表”表A”中有多列，其中一列的列名为“村别”，我想实现：按照“村别”将"表A"导出到同一工作簿的不同工作表中，工作表名就是“村名”，请指教，谢谢！ |
| -- 作者：有点蓝 -- 发布时间：2023/9/21 14:57:00 -- for each s as string in datatables("表A").getvalues("村别") Tables("表A").filter = "[村别] = \'" & s & "\'" Tables("表A").SaveExcel("C:\\data\\test.xls",s) next
|
| -- 作者：rgbjwjb -- 发布时间：2023/9/21 16:46:00 -- 如果导出到不同的工作簿话怎么修改上述代码？谢谢！ |
| -- 作者：有点蓝 -- 发布时间：2023/9/21 16:57:00 -- 改文件名称即可 |
| -- 作者：rgbjwjb -- 发布时间：2023/9/21 17:14:00 -- 我这样修改后，导出的数据还在一个工作簿内， |
| -- 作者：有点蓝 -- 发布时间：2023/9/21 17:17:00 -- 多看看编程基础呗：http://www.foxtable.com/webhelp/topics/0221.htm Tables("表A").SaveExcel("g:\\稻谷补贴面积\\" & s & ".xls", s)
|