请教一个批量导出多个mdb中特定表至excel的问题

wanderary

zhaogang1960 发表于 2016-4-1 09:37
请测试附件

附件测试完美运行

但在我的工作文件夹里运行会出现

我的工作文件比较大，稍后打包上传

实在是太麻烦您了，谢谢

wanderary

zhaogang1960 发表于 2016-4-1 09:37
请测试附件

顺便请教一下，这个 mdb 里面已经只有一张表了，为什么还这么大，里面是不是有二进制形式存在的图片、pdf什么的，可以不依靠制作这个 mdb 的软件提取出来吗
问题解决，临时附件删除

zhaogang1960

wanderary 发表于 2016-4-1 09:59
附件测试完美运行

但在我的工作文件夹里运行会出现

上面程序使用了前期绑定，需要引用类库，下面使用了后期绑定，不需要人工干预：
Sub ADO直接生成工作簿() 'mdb
    Dim Fso As Object, oFile As Object, cnn As Object, SQL$, myTable$, Mypath$, n&, sh$
    myTable = InputBox("请输入导出数据表名")
    If myTable = "" Then Exit Sub
    Set Fso = CreateObject("Scripting.FileSystemObject")
    For Each oFile In Fso.GetFolder(ThisWorkbook.Path).Files
        If oFile.Name Like "*.mdb" Then
            Mypath = Replace(oFile, "mdb", "xls")
            If Dir(Mypath) <> "" Then Kill Mypath
            Set cnn = CreateObject("ADODB.Connection")
            cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & oFile
            If cnn.OpenSchema(20, Array(Empty, Empty, myTable, Empty)).EOF Then
                MsgBox myTable & "表" & "不存在，请重新输入。", vbInformation
                Exit For
            End If
            SQL = "SELECT * INTO [Excel 8.0;Database=" & Mypath & ";]." & myTable & " FROM " & myTable
            cnn.Execute SQL
        End If
    Next
    cnn.Close
    Set cnn = Nothing
    Set Fso = Nothing
    MsgBox "ok"
End Sub

zhaogang1960

ADO直接生成工作簿(后期绑定).rar (10.59 KB, 下载次数: 98)

2016-4-1 10:34 上传

点击文件名下载附件

wanderary

zhaogang1960 发表于 2016-4-1 10:10

发现报错原因了，我的文件后缀名是大写的 MDB……，修改为 mdb 以后 后期绑定 代码完美运行（开始的那个版本还是会报91）

非常感谢z大，真是帮了大忙

afdadas

下载学习！！

LMY123

SQL导出所有ACCESS中的所有表

补充内容 (2018-9-30 12:55):
If oFile.Name Like "*.accdb" Then

补充内容 (2019-1-5 19:41):
多库多表转为多薄多表，已入库。

Housecaty

zhaogang1960 发表于 2016-4-1 09:36
Sub ADO直接生成工作簿() 'mdb
    Dim cnn As ADODB.Connection
    Dim rs As ADODB.Recordset

在这个基础上请教大佬，如何将这多个表直接合并成一个EXCEL表格呢，竖向直接拼接