主题：[求助]数据分组导出excel

新手，刚用foxtable,有问题请教

原表为：

现想分组导出数据为excel，同时把字段名改为汉字，如下：

应如何做才能实现呢？ 不熟悉啊，最好能详细些

多谢解答，不过可能前面我没说清楚，我想实现的有两个：（1）按部门分别生成xls,即N个部门生成N个xls; (2)原有的列名为英文，生成xls时换成汉字

按部门导出，我想可以用：

Dim ex As New Exporter
ex.SourceTableName = "bm"
ex.FilePath = "c:\a.xls"
ex.Format = "Excel"
ex.Filter = "[bm] = 'a'"
ex.Export()

但是，还有两个问题：（1）如何设循环来导出每一个部门？实现每个部门一个xls，（2）如何把用部门的名字来命名导出的xls？实现a.xls,b.xls