我刚好做了一个模型，不知是否满足你的要求。建立查询语句表"查询语句"，里面有查询语句列设为"foxtable语句"、("查询事项")，建立一个窗口，建立一个表格设为table1，绑定表"查询语句"，建立button，单击事件如下，aaa是我使用的外部数据源：For Each dr As DataRow In DataTables("查询语句").DataRows
'查询语句
Tables("查询语句_Table1").Fill(dr("foxtable语句") ,"aaa", True)
'导出文件
If FileSys.FileExists("d:\data\"&dr("查询事项")&".xls") Then '如果指定的文件存在
FileSys.DeleteFile("d:\data\"&dr("查询事项")&".xls",2,2) '则彻底删除之
End If
Dim ex As New Exporter
ex.SourceTableName = "查询语句_Table1" ' 指定导出表
ex.FilePath = "d:\data\"&dr("查询事项")&".xls"'指目标文件
ex.Format = "Excel" '导出格式为Access 2007
ex.Export() '开始导出
Next
加好友 
发短信
Post By：2014/6/3 13:11:00 [显示全部帖子]
