SQL语句是一种标准的数据库语言，其可以在任何关系型数据库管理系统中使用。在Excel表格中，使用SQL语句可以实现对Excel工作表数据进行查询的方法。以下是小编为您带来的关于使用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　获得查询结果