怎么将超过65000条的记录从ACCESS自动导出到多个EXCEL2003sheet中？（只导出EXCEL2003格式）

shuyangchao　发表于：2014-07-20 23:11:25 　

请问怎么将超过65000条的记录从ACCESS自动导出到多个EXCEL2003sheet中？本论坛的代码是乎不太对，要么就是EXCLE的代码。（只导出EXCEL2003格式，如果2007以上版本有100多万行就不用了，因为要导入的ORACLE数据库前段程序设计成只能导入EXCEL2003，只能将就这种十分弱智的设计！）

Top

在水一方发表于：2014-07-21 22:34:54

使用循环函数把 id分段，比如1000条一段，导出为不同名称的Excel表

for i =1 to 65000 step 1000

sqlstr ="select * from 表 where id between" & i & " and " & i +999 & ";"

.....

Top

shuyangchao 发表于：2014-08-06 20:39:39

难就难在ACCESS没有伪行号函数，对于没有序号的查询结果很难，如果是ORACLE就比较简单了

Top

金宇发表于：2014-08-07 11:08:53

如果没有序号列的话，可以先将查询的结果生成一个本地临时表(select * into 导出表A from 表名称或者查询名称)，然后增加一列自动编号的列（alter table 导出表A add column id AUTOINCREMENT(1,1)），这样就有序号了。

然后将

lngCount=nz(dcount("*","导出表A"),0) '导出表A的总记录数

If lngCount > 0 Then
sheetsCount = Fix((lngCount / 65000)) + 1 '计算需要导出几个excel工作表
For i = 1 To sheetsCount
startID = i * 65000 - 65000
endID = i * 65000
MsgBox startID & "-" & endID
strSQL = "select * from 导出表A where id > " & startID & " and id <= " & endID & ""

.....增加导出至excel工作表的代码
Next
End If

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

怎么将超过65000条的记录从ACCESS自动导出到多个EXCEL2003sheet中？（只导出EXCEL2003格式）