目的：从数据源erp中使用sql语句提取数据然后直接导出到固定的目录，格式为excel格式。

原方法：

Dim q_a As new QueryBuilder
q_a.TableName = "cw"
q_a.C
q_a.SelectString = "select a.deptcode as \'部门编码\',d.name as \'部门名称\',round(sum(b.finishnum*c.inventoryprice/a.plannum*(a.plannum-a.finishnum)),2) as \'车间物料\' from aeg00000 a,agb00000 b,baa00000 c,zad00000 d where a.centercode=\'0100\' and a.finishnum<a.plannum and a.planid=b.planid and b.finishnum>0 and c.warehousecode like \'01%\' and b.itemcode=c.itemcode and a.deptcode=d.code group by a.deptcode,d.name order by a.deptcode"
q_a.Build
Dim ex as New Exporter
ex.SourceTableName = "cw" \'指定导出表为车间物料
ex.FilePath = "D:\\Data\\chejian\\" & format(Date.now,"yyyy年MM月dd日HH时mm分") & "车间物料" & ".xls" \'指定目标文件
ex.Format = "Excel" \'导出格式为Excel
ex.Export() \'开始导出

但是这种方法会生成一个table表cw，如果不希望生成cw表就从后台直接导出为EXCEL表，有没有其他更好的方法？

不生成Table估计速度也不会有大的改变。

如果不想看到cw表，那么你应该再加一行代码。

如：

……

q_a.TableVisible = False

q_a.Build

……

版主，还有个问题，用现在的方法，我设置了计划管理，每隔1小时导出数据，但是会生成不同的文件，能否直接将数据追加到一个EXCEL中，也就是说导出目录下只有一个文件

然后每天的数据都顺序向后追加，如下：