005 Excel SQL LIKE逻辑运算符用法–VBA方法

005 Excel SQL LIKE逻辑运算符用法–VBA方法大家好,我是涂涂今天涂涂给大家分享下Excel SQL 逻辑运算符LIKE的用法。问题:从【数据源】工作表中,导出姓“涂”的名单到【结果表】工作

大家好,欢迎来到IT知识分享网。

大家好,我是涂涂

今天涂涂给大家分享下Excel SQL 逻辑运算符LIKE的用法。

问题:

从【数据源】工作表中,导出姓“涂”的名单到【结果表】工作表中。

005 Excel SQL LIKE逻辑运算符用法--VBA方法

操作步骤

通过SQL的 LIKE 运算符模糊匹配查找。

步骤1

◆点击【开发工具】选项卡,点击【Visual Basic】,打开VBE编辑器

◆在VBE编辑器中,选中左侧工程管理器中的结果表,右键插入模块

◆双击新建的模块,在右侧的代码区域输入下记代码,保存,关闭VBE编辑器

005 Excel SQL LIKE逻辑运算符用法--VBA方法

代码:

Sub SQL_LIKE用法() Dim AdoConn As Object Dim AdoRst As Object Dim SQL, strConn As String Dim i As Long Set AdoConn = CreateObject("ADODB.Connection") Set AdoRst = CreateObject("ADODB.Recordset") Cells.ClearContents strConn = "provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data source=" & ThisWorkbook.FullName 'Excel2007以上版本 AdoConn.Open strConn ' ********************************************************************************** SQL = "SELECT * FROM [数据源$] WHERE 姓名 LIKE '涂%'" ' ********************************************************************************** Set AdoRst = AdoConn.Execute(SQL) For i = 0 To AdoRst.Fields.Count - 1 Cells(1, i + 1) = AdoRst.Fields(i).Name Next i Range("A2").CopyFromRecordset AdoRst AdoRst.Close AdoConn.Close End Sub

步骤2

◆选中结果表工作表,点击【开发工具】选项卡,点击【插入】下拉箭头,点击【按钮】命令

◆在表格空白处,拖动鼠标画一个矩形,然后指定宏即可

005 Excel SQL LIKE逻辑运算符用法--VBA方法

效果图:

005 Excel SQL LIKE逻辑运算符用法--VBA方法

修改查询条件:

按<Alt+F11>打开VBE编辑器,修改代码中的SQL语句


Tips:

◆在Excel SQL的LIKE运算中,百分号(%)用来表示任意长度的任意字符,不是星号(*)哦。

◆如果需要表示单个任意字符,可用下划线表示。每个下画线都代表一个长度为1的任意字符,两个下画线就表示长度为2的任意字符。

◆百分号(%)位置:”涂%”、”%涂”、”%涂%”代表不同的涵义,分别代表以“涂”开头的文本、以“涂”结尾的文本、含有“涂”的文本。

我猜你需要的链接:

1、Excel SQL,我们不应错过的查询利器–VBA方法


等更新太累,想要了解更多,分享你的疑难杂症,

欢迎关注我的Excel微信公众号,进群一起探讨。

005 Excel SQL LIKE逻辑运算符用法--VBA方法

职场高效Excel

免责声明:本站所有文章内容,图片,视频等均是来源于用户投稿和互联网及文摘转载整编而成,不代表本站观点,不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益,请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权,请联系删除,如若转载,请注明出处:https://yundeesoft.com/53394.html

(0)

相关推荐

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注

关注微信