求助，在ACCESS中批量导入EXCEL应该怎样实现

lmxin

我现在每个月手上都有10多个EXCEL文件（每个省份一个EXCEL文件）需要汇总到一张EXCEL表上。

其中每个EXCEL文件里都有10多个SHEET（各项任务）。每个EXCEL表的每个SHEET名字都是一样的，而且每张SHEET里的格式都一样（第一行都是一样的）



以前我们的做法是每个EXCEL每张SHEET都是复制-》粘贴，结果相当的繁琐，经常一做就是4个多小时，所以我想用ACCESS批量导入EXCEL表，然后分类统计后再导出为EXCEL表，请问是否可行？应该怎样座？
谢谢，请不腻赐教！

ACMAIN_CHM

当然可以实现。
1. VB dir() 函数，遍历文件夹，得到所有*.xls文件名。
2. currentproject.connection.execute "insert into yourTable select * from [Excel 8.0;Database=c:\book1.xls].[Sheet1] "


******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://www.office-cn.net/vvb/ .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
.
http://www.office-cn.net/home/space.php?uid=141646 .

lmxin

哦，我对VBA不是很熟悉，请问 "insert into yourTable select * from [Excel 8.0;Database=c:\book1.xls].[Sheet1] "这个命令好像只能插入SHEET1是么？我一个EXCEL文件里有10多个SHEET呢