ACCESS批量导出表到EXCEL

lee_onion

最近需要用到这个功能，但是发现ACCESS不能记录宏……于是只能一个一个导，工作量太大了，对SQL又不是很熟，想求教各位大大，有什么方法可以批量导出到excel么？
多谢了！

xiaomiaodh

同样遇到这样的问题，导出EXCEL受行数限制，听讲可以用2007版，但是我尝试却跳出对话框“找不到可安装的ISAM”

lee_onion

我现在不是行数的问题，都是很小的表，就是个数太多了，一个个手动导出累死人，还浪费大量的时间……

呃……没有人知道么？

zez

建立宏,然后运行宏

lee_onion

原帖由 zez 于 2010-8-15 09:41 发表
建立宏,然后运行宏

可是access导出excel的宏代码是什么？access无法录制新宏……

zez

请问,能上传一个附件吗?

myfigure888

貌似行数不够吧

taller

Access VBA代码

1. '++++++++++++++++++++++++++++++++++++++++
   
2. '+ Access2Excel Created by taller@ExcelHome
   
3. '+ 代码运行的前提：
   
4. '+ 1. 在打开的Access数据库中添加并运行下述代码
   
5. '+ 2. 请确保Access数据库中每个表中数据不超过Excel工作表的容量
   
6. '+ 3. 导出到相同目录下的 Access.xls中
   
7. '+ 4. 错误处理代码可以自行扩展（如：工作簿中已经存在和Access表相同名称的工作表）
   
8. '++++++++++++++++++++++++++++++++++++++++
   
9. Sub Access2Excel()
   
10.     Dim db As Database, Tabl As TableDef, TableName As String
    
11.     Dim strFullPath As String, strDir, strExcelFile As String
    
12.     Set db = DBEngine.Workspaces(0).Databases(0)
    
13.     strFullPath = db.Name
    
14.     strDir = Split(strFullPath, "")
    
15.     strDir(UBound(strDir)) = "Access.xls"
    
16.    strExcelFile = Join(strDir, "")
    
17.     For Each Tabl In db.TableDefs
    
18.         TableName = Tabl.Name
    
19.         If InStr(1, TableName, "MSys") = 0 Then
    
20.             db.Execute _
    
21.                     "SELECT * INTO [Excel 8.0;DATABASE=" _
    
22.                     & strExcelFile & "].[" & TableName & "] FROM " _
    
23.                     & "[" & TableName & "]"
    
24.         End If
    
25.     Next
    
26. End Sub

复制代码

[ 本帖最后由 taller 于 2010-10-31 22:06 编辑 ]

parfaitlea

If we can set  le Excelfilename=Accessfilename?

buguiize

taller 发表于 2010-10-31 22:01
Access VBA代码

[ 本帖最后由 taller 于 2010-10-31 22:06 编辑 ]

这里的数据最大行数是65536行吗，包括源表，我测试了一个，电子表格满，可是我的数据都没有超过10万行