VBA excel 连接Microsoft Access数据库

在VBA中连接数据库，您可以使用Microsoft ActiveX Data Objects (ADO)。以下是一个使用ADO连接到Microsoft Access数据库的示例：

1. 首先，确保您已将Microsoft ActiveX Data Objects 2.x Library添加到VBA项目中。在VBA编辑器中，转到“工具”>“引用”。在“引用”对话框中，滚动查找“Microsoft ActiveX Data Objects 2.x Library”，并确保已勾选。

2. 在VBA编辑器中创建一个新模块（在项目资源管理器中右键单击项目名称，然后选择“插入”>“模块”）。

3. 在新模块中编写以下代码以连接到Access数据库：

```vba

Option Explicit

Sub ConnectToDatabase()

Dim conn As ADODB.Connection

Dim rs As ADODB.Recordset

Dim strConnectionString As String

' 设置数据库连接字符串

strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Path\To\Your\Database.mdb;Persist Security Info=False"

' 创建一个新的Connection对象

Set conn = New ADODB.Connection

' 打开数据库连接

conn.Open strConnectionString

' 创建一个新的Recordset对象

Set rs = New ADODB.Recordset

' 执行SQL查询并将结果存储在Recordset中

rs.Open "SELECT * FROM YourTableName", conn

' 在Excel中显示查询结果

ThisWorkbook.Worksheets("Sheet1").Range("A1").CopyFromRecordset rs

' 关闭Recordset和Connection对象

rs.Close

conn.Close

Set rs = Nothing

Set conn = Nothing

MsgBox "连接到数据库成功！"

End Sub

```

4. 请确保将上述代码中的数据库连接字符串和SQL查询根据您的Access数据库进行相应修改。

5. 转到Excel主程序，然后按下Alt + F8快捷键打开“宏”对话框。在“宏”对话框中，单击您刚创建的“ConnectToDatabase”宏，然后单击“运行”按钮以执行宏。

6. Excel中看到查询结果，并弹出一个消息框，提示“连接到数据库成功！”。