ACCESS自动分类生成Excel文件

funhere

我有个表格，想以其中的一个主要字段为条件，筛选相应数据，并自动生成Excel（如果有20个主要条件，就自动生成20个EXCEL表），不知道如何实现，请大侠支招。

万分感谢。

killua333

关注中

funhere

    做成EXCEL表是因为领导只会看EXCEL表，所以没办法只有导出，之前每次都是一个个筛选，然后粘贴。如果能实现此功能，定能成倍提高工作效率。

eyewitnes

做个循环，有多少个条件就根据条件更改SQL语句然后导出多少次不就结了？

funhere

大侠帮忙用我的数据库做一个例子学习学习。

sgrshh29

是不是有30个不同的地名就生成30个excel文件？

[此贴子已经被作者于2007-4-24 15:38:44编辑过]

sgrshh29

以下是引用sgrshh29在2007-4-24 15:38:00的发言：
是不是有30个不同的地名就生成30个excel文件？

如果是这样，先做一个查询1，内容为：SELECT 起运地.起运地 FROM 起运地 GROUP BY 起运地.起运地;
然后用下面的语句这样就ok了，生成的excel文件与数据库在同一个文件夹里。
Dim rs As Object
Set rs = CurrentDb.OpenRecordset("查询1")
Do Until rs.EOF
SQL = "select * into [Excel 8.0;database=" & CurrentProject.Path & "\" & rs(0) & ".xls]." & rs(0) & " from 起运地 where 起运地='" & rs(0) & "';"
CurrentDb.Execute SQL
rs.MoveNext
Loop
Set rs = Nothing

[此贴子已经被作者于2007-4-24 16:14:50编辑过]

ls_hndd

oo

funhere

sgrshh29 OK,测试成功，真想拥抱你。玉皇大帝，节省不少事啊。