嘻皮客娱乐学习网

标题: 使用SQL语句实现对Excel工作表数据进行查询的方法 [打印本页]

作者: lzhaojie 时间: 2017-1-16 17:27
标题: 使用SQL语句实现对Excel工作表数据进行查询的方法

SQL语句是一种标准的数据库语言，其可以在任何关系型数据库管理系统中使用。本文介绍使用SQL语句实现对Excel工作表数据进行查询的方法。
1、启动Excel并打开工作簿，在这个工作簿中，工作表Sheet1放置商品信息记录，如图1所示;工作表Sheet2用于对商品记录进行查询，其结构如图2所示。

(, 下载次数: 128)

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

(, 下载次数: 127)

图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所示。

(, 下载次数: 142)

图3　输入商品名称

(, 下载次数: 151)

图4　获得查询结果

欢迎光临嘻皮客娱乐学习网 (http://www.xipick.com/)