利用VBA从Access数据库中查找数据？

Excel → 开发工具 → Visual Basic：打开VBE后，点击插入，选择模块，就可以在该项目下新建一个空白模块。

Excel → 开发工具 → 插入 → 控件 → 右键控件 → 指定宏：可以直接将宏绑定到控件上，然后进行编辑。

进行编写代码前的准备工作：

Visual Basic → 工具 → 引用：引用 Microsoft ActiveX Data Objects 2.x Library，否则运行代码会报“用户定义类型未定义”提示。

Excel中用VBA根据输入的日期从Access数据库中提取相应的数据并插入到Excel表中：

Private Sub CommandButton5_Click()

Dim Conn As New ADODB.Connection'定义ADODB连接对象

Dim ConnStr As String '定义连接字符串

Dim xiao As String

xiao = ComData.Text

'对于SQL 2008，如果以IP方式访问服务器，必须要启动SQL Server Browser服务，如果是Express版本，要以“IP(计算机名)\实例名”方式访问

ConnStr = txtData.Text

Dim Records As New ADODB.Recordset '定义ADODB对象的记录集

Dim Sheet As Worksheet '定义工作表

Set Sheet = ThisWorkbook.Worksheets("Sheet2") '给变量Sheet赋值，注意：是工作簿中索引为1的那个表（通常一个新的工作簿Sheet1的索引为1）

'Sheet.Name = "Data" '把Sheet名称改为Data

Sheet.Cells.Clear '清空表中原有的数据

'连接状态是打开就不在进行Open *** 作

Conn.Open ConnStr

Dim SQLStr As String'要执行的SQL语句

SQLStr = "select * from Shift_Code where Club='" + xiao + "'" '可以执行更复杂的SQL语句

Records.Open SQLStr, Conn, adOpenStatic, adLockBatchOptimistic '读取SQL查询结果到Records记录集

'Records.Open

Dim i, j, TotalRows, TotalColumns As Integer

j = 0

TotalRows = Records.RecordCount

TotalColumns = Records.Fields.Count

'下面的循环把表头（即列名）写到Excel表的第一行

For i = 0 To TotalColumns - 1

Sheet2.Cells(1, i + 1) = Records.Fields(i).Name

Next

'下面的循环把查询结果写到Excel表中

Do While Not Records.EOF

For i = 0 To TotalColumns - 1

Sheet2.Cells(j + 2, i + 1) = Records.Fields(i).Value

Next

Records.MoveNext

j = j + 1

Loop

Records.Close '关闭记录集

Conn.Close '关闭连接

Set Records = Nothing '清空对象

Set Conn = Nothing '清空对象

End Sub

有什么不懂的话Hi我！