位置：首页>> 电脑教程>> office教程>> 如何使用SQL语句实现对Excel工作表数据的查询？

如何使用SQL语句实现对Excel工作表数据的查询？

　　发布时间：2022-05-02 12:46:19　

标签：SQL语句,Excel数据,Excel工作表

SQL语句可以在任何关系型数据库管理系统中使用，那么，如何使用SQL语句实现对Excel工作表数据的查询呢？今天脚本之家小编就给大家介绍用SQL语句查询Excel数据的方法，希望大家看完有所收获

如何在Excel中使用SQL语言实现数据查询？SQL语句是一种标准的数据库语言，其可以在任何关系型数据库管理系统中使用。本文介绍使用SQL语句实现对Excel工作表数据进行查询的具体方法步骤，非常实用，感兴趣的朋友一起去看看吧。

使用SQL语句对Excel工作表数据进行查询的方法：

1、启动Excel并打开工作簿，在这个工作簿中，工作表Sheet1放置商品信息记录，如图1所示;工作表Sheet2用于对商品记录进行查询，其结构如图2所示。

图1　放置商品信息记录的工作表

图2　用于商品记录查询的工作表

2、打开Visual Basic编辑器，在工程资源管理器中插入一个模块，在模块的“代码”窗口中输入如下程序代码：

Sub CheckData()

Dim cnn As ADODB.Connection '声明连接对象变量

Dim rs As ADODB.Recordset '声明记录集对象

Dim strSql As String

Dim str As String

On Error Resume Next

Set cnn=CreateObject("ADODB.Connection") '创建连接对象变量

Set rs=CreateObject("ADODB.Recordset") '创建记录集对象记录

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;"_&"Extended Properties=Excel 8.0;"_&"Data Source="&ThisWorkbook.FullName

str=ActiveSheet.Range("B1").Value '获取当前单元格内容

strSql="Select*FROM[Sheet1$]Where商品like '％"&str&"％'"'创建数据筛选命令

rs.Open strSql,cnn,adOpenStatic

With ActiveSheet

.Range("A4:D100").ClearContents '清除单元格记录

.Range("A4").CopyFromRecordset rs '复制筛选结果

End With

rs.Close

cnn.Close

Set rs=Nothing

Set cnn=Nothing

End Sub

3、首先在Sheet2工作表中输入需要查询的商品名称，如图3所示。运行CheckData()过程，在Sheet2工作表中将列出查询结果，如图4所示。

图3　输入商品名称

图4　获得查询结果

教程结束，以上就是关于如何使用SQL语句实现对Excel工作表数据的查询的方法步骤，需要的朋友快去试试吧！

相关教程推荐：

投稿

猜你喜欢