在vba中怎么用sql语句吧excel工作表和数据库表连接查询

1个回答

电子数码达人

专业答主服务有保障

关注

展开全部

摘要一、正常的操作步骤是：

1、用Excel打开表格，点击插入——数据透视图

s1.jpg

2、在数据透视图界面，选择行标签字段和求和项字段

s2.jpg

s3.jpg

3、把行标签和求和项表格数据进行排序，选出成绩大于290的记录

用数据透视图功能操作很简便，除此之外用分类汇总功能也可以实现，只不过前者更方便些。

二、EXCEL VBA SQL语句实现表格数据的一键查询

1、用excel打开表格，按alt+F11打开VBA工程界面，在个人工作簿里新建模块，在模块的代码区域输入下面的代码

s4.jpg

2、根据实际需要在SQL变量区域输入自己想要的查询代码，保存，F5运行，注意[表名$]这种写法

s5.jpg

以上是用Excel VBA SQL语句实现了表格查询的一键自动化操作（按ALT+F8），在规则不经常变动的情况下使用很实用，以下是代码供复制粘贴。

Sub SQL查询()

Dim cnn As Object, rs As Object, SQL As String

Set cnn = CreateObject("adodb.connection") '创建数据库连接

cnn.Open "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ActiveWorkbook.FullName

Set rs = CreateObject("adodb.recordset") '创建一个数据集

咨询记录 · 回答于2021-12-14

在vba中怎么用sql语句吧excel工作表和数据库表连接查询

你好请稍等

一、正常的操作步骤是：1、用Excel打开表格，点击插入——数据透视图s1.jpg2、在数据透视图界面，选择行标签字段和求和项字段s2.jpgs3.jpg3、把行标签和求和项表格数据进行排序，选出成绩大于290的记录用数据透视图功能操作很简便，除此之外用分类汇总功能也可以实现，只不过前者更方便些。二、EXCEL VBA SQL语句实现表格数据的一键查询1、用excel打开表格，按alt+F11打开VBA工程界面，在个人工作簿里新建模块，在模块的代码区域输入下面的代码s4.jpg2、根据实际需要在SQL变量区域输入自己想要的查询代码，保存，F5运行，注意[表名$]这种写法s5.jpg以上是用Excel VBA SQL语句实现了表格查询的一键自动化操作（按ALT+F8），在规则不经常变动的情况下使用很实用，以下是代码供复制粘贴。Sub SQL查询() Dim cnn As Object, rs As Object, SQL As String Set cnn = CreateObject("adodb.connection") '创建数据库连接 cnn.Open "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ActiveWorkbook.FullName Set rs = CreateObject("adodb.recordset") '创建一个数据集

两个表，一个excel工作表，一个数据库里的表，公共字段是name，怎么用sql把这两个表连接查询一下

嗯呢好的

已赞过

评论收起