Office中国论坛/Access中国论坛

标题: ACCESS自动分类生成Excel文件 [打印本页]

作者: funhere 时间: 2007-4-24 18:36
标题: ACCESS自动分类生成Excel文件

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

万分感谢。

作者: killua333 时间: 2007-4-24 19:25
关注中

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

作者: eyewitnes 时间: 2007-4-24 20:14
做个循环，有多少个条件就根据条件更改SQL语句然后导出多少次不就结了？

作者: funhere 时间: 2007-4-24 20:44
大侠帮忙用我的数据库做一个例子学习学习。

作者: sgrshh29 时间: 2007-4-24 23:38
是不是有30个不同的地名就生成30个excel文件？

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

作者: sgrshh29 时间: 2007-4-25 00:03

以下是引用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 时间: 2007-4-25 05:35
oo

作者: funhere 时间: 2007-4-25 17:24
sgrshh29 OK,测试成功，真想拥抱你。玉皇大帝，节省不少事啊。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)