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

打开VBA编辑器的两种方式：

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

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

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

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

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

会用vb数据库连接，你在vba种直接使用vb的方式即可

可参考下面的代码

－－－－－－－－－－－－－－－－－－

Public Function ConnectDB()

cs = "Provider=Microsoft.jet.OLEDB.4.0Data Source="

'conn.ConnectionString = CS &app.Path &"\Score5.mdb"

conn.ConnectionString = cs &"F:\Scview\score4.mdb"

'cs="Provider=SQLOLEDBServer=JF705Database=mytestUid=sapwd=lmlm"

'cs="Provider=SQLOLEDBServer=JF705\ETSERVERDatabase=mytestUid=sapwd=lmlm"

'cs="Provider=SQLOLEDBServer=JF705Database=mytestUid=sa1pwd=lmlm"

'conn.ConnectionString=cs

conn.Open

'response.write conn

'response.end

End Function

---