excel vba抓取accdb文件内表内容

1）引用ADO

2）作示例代码如下：

Sub eg()

Dim conn As ADODB.Connection

Set conn = New ADODB.Connection

With conn

.Provider = "Microsoft.ACE.OLEDB.12.0"

.Properties("Data Source") = "D:\tdata\data1.accdb"

.Open

End With

Dim rs As New ADODB.Recordset

rs.Open "SELECT * FROM table1 ", conn, adOpenKeyset, adLockReadOnly

Sheet1.Range("A1").CopyFromRecordset rs

rs.Close

conn.Close

Set rs = Nothing

Set conn = Nothing

End Sub

3）其中"SELECT * FROM table1 "这句的作用是导入全部字段，如做拿果只需导入部分字段，需要樱则手动改下这句。纯颂搭比如：

"SELECT 字段1, 字段3, 字段4, 字段10 FROM table1 "

ACCDB是Access2007创建和保存Access数据库的默认格式。

连接Microsoft Access database比较好的方式，既不是通过MDB或ACCDB，而是通过OLEDB。很多用户通过ArcMap的添加数据对话框直接连接到MDB文件。虽然在很多时候，都可以运行，但是并不建议这么做。通过添加数据对话框，是不能连慎嫌接到ACCDB的。

1 如果Microsoft Office2007和ArcGIS装在同一台机器上，就直接跳到第二步。如果要在一台没有安装Microsoft Office2007的机器上连接ACCDB文件，从2007 Office System Driver: Data Connectivity Components.上下载AccessDatabaseEngine.exe文件。

2 在让孝敬Catalog中，连接到Database Connections folder。

3 单击“Add OLEDB Connection”。

4 在数据连接对话框的属性中，选择“Microsoft Office 12.0 Access Database Engine OLE DB Provider”。

“Microsoft Office 12.0 Access Database Engine OLE DB Provider”在Office 2007或者第一步的AccessDatabaseEngine.exe中已经安装了。

5 单击“Next”打开Connection Tab。

6 在第一步获得的数据源路径，将其复制或键入到ACCDB文件。

在对话框中浏览ACCDB文件的能力是Microsoft的限制，并不是Esri能够解决的。

7 如果访问到了数据集，输入密码。

8 单击“Test Connection”按钮。尝试连接成功的信息会d出来。

9 在“Data Link Properties”对话框上单击“OK”按钮。

10 这时在“Database Connections folder”会出现一个新的OLE DB Connection。可以为这个连接重命名。

11 双击“OLEDB Connection”，然后查坦慎看用以显示数据集内容的“Contents”Tab。单击“添加”，然后下一步，一样可以查看数据集的内容。

---