VBA SQL连接

最新推荐文章于 2025-02-02 23:23:24 发布

原创

最新推荐文章于 2025-02-02 23:23:24 发布 · 829 阅读

收录于

本文介绍了两种在VBA中连接SQL的方法，包括直接使用CreateObject函数创建ADO对象的创建法，以及通过引用ADO组件的引用法。在创建法中，详细展示了如何打开连接和记录集，执行SQL查询并将结果填充到Excel工作表中。在引用法中，同样演示了设置连接和记录集，执行查询以及清理工作表内容的过程。

创建法
      不需要引用ADO相关组件，直接使用CreateObject函数创建ADO对象，即：
      Set cnn = CreateObject("ADODB.connection")     '创建ado对象
      Set rst = CreateObject("ADODB.recordset")         '创建记录集

Private Sub CommandButton1_Click()

Dim cnn As Object, rs As Object
Dim strsql As String

Set cnn = CreateObject("ADODB.connection") '创建ado象
Set rs = CreateObject("ADODB.recordset") '创建记录集

cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ActiveWorkbook.FullName 'ActiveWorkbook.FullName 活动的文件名
strsql = "select * from [Sheet1$]" 'group by 姓名

'rs.Open strsql, cnn, adOpenKeyset, adLockReadOnly
Set rs = cnn.Execute(strsql)

Range("M1:AA65536").Cl