大家好，我们继续讲解VBA数据库解决方案，今日讲解第53讲内容：工作表查询时，类似于筛选功能的LIKE和NOT LIKE 的应用。大家在工作的时候，利用EXCEL操作，筛选是必不可少的工具之一。例如我们可以筛选以某个字符开头的数据，或者筛选不以某个字符开始的数据，那么这个功能如何在ADO连接EXCEL进行查询时实现呢？
 
实例讲解，我们看下面的数据：
 

 
我们要筛选出以W开始的生产厂的数组和不是以W开始的数据。如何实现呢？
 
下面看我给出的代码：
 
Sub mynzRecords_53() '第53讲 工作表数据查询时，类似筛选功能LIKE和NOT LIKE的应用.
 
Dim cnADO, rsADO As Object
 
Dim strPath, strSQL1, strSQL2, strSQL3, strSQL4 As String
 
Worksheets("53").Select
 
Cells.ClearContents
 
Set cnADO = CreateObject("ADODB.Connection")
 
Set rsADO = CreateObject("ADODB.Recordset")
 
strPath = ThisWorkbook.FullName
 
cnADO.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties='excel 12.0;hdr=yes;imex=1';data source=" & strPath
 
strSQL1 = "select 型号,生产厂,供应商,数量 from [数据$] WHERE 生产厂 Like 'W%'"
 
arr = Array("型号", "生产厂", "供应商", "数量")
 
[a1:d1] = arr
 
[a65536].End(xlUp).Offset(1, 0).CopyFromRecordset cnADO.Execute(strSQL1)
 
strSQL2 = "select 型号,生产厂,供应商,数量 from [数据$] WHERE 生产厂 NOT Like 'W%'"
 
[a65536].End(xlUp).Offset(2, 0).CopyFromRecordset cnADO.Execute(strSQL2)
 
cnADO.Close
 
Set cnADO = Nothing
 
Set rsADO = Nothing
 
End Sub
 
代码截图：
 

 
代码解释：
 
1 strSQL1 = "select 型号,生产厂,供应商,数量 from [数据$] WHERE 生产厂 Like 'W%'"
 
这句的解释是要查出以W开始的生产厂的记录。大家要注意这种写法。注意的是这种写法要特别留意。要记住代码尽可能不要录入，要以拷贝为主，然后再做必要的修正。
 
2 strSQL2 = "select 型号,生产厂,供应商,数量 from [数据$] WHERE 生产厂 NOT Like 'W%'"
 
这句的解释是要查出不是以W开始的生产厂的记录。这里用的是NOT LIKE 语句。也是一种SQL语句的固定用法。
 
我最近在讲各种这样的连接啊，查询结构啊，大家要注意我的语句写法，如果语句不对是得不到正确结果的。我的系列文章在讲我的经验，甚至代码中也有工作实例的影子。要学写代码的经验，我们的工作要以实用为主，不是学术的研究。
 
下面看代码的运行：
 

 
今日内容回向：
 
1 如何实现工作表的筛选功能？
 
2 LIKEN 和 NOT LIKE 的语法是怎么样的？

like的详细用法
 
Sub aa()
    a= "aBBBa"Like "a*a"					'''true
    a = "asd" Like "a?"                     '''false
    a = "asd" Like "[agjs3]*"               '''true ,[ABCDEGHIJ2345]=[A-EG-J2-5]，
    a = "asd" Like "asD"                    '''false
    a = "a11" Like "[a-z][0-9]#"            '''true,# = [0-9],[a-c] is OK,[ca] is OK,[c-a] is NG
    a = "a11" Like "[!c-z]11"               '''true,! is not
    a = ",?*#-" Like "[,][?][*][#][2-]"     '''true,",?*#-" in [] will match itself
    a = ",?*#-" Like "[1-2]"                '''false,[-] must putted By side
    a = "][" Like "[]][[]"                  '''true
    a = "D" Like "[A-a]"                    '''true,perhaps [A-a]=[A-Za]
    a = "d" Like "[A-a]"                    '''false,[a-A] is NG
End Sub
 
正则表达式
 
runoo+b，可以匹配 runoob、runooob、runoooooob 等，+ 号代表前面的字符必须至少出现一次（1次或多次）。
runoob，可以匹配 runob、runoob、runoooooob 等， 号代表字符可以不出现，也可以出现一次或者多次（0次、或1次、或多次）。
colou?r 可以匹配 color 或者 colour，? 问号代表前面的字符最多只可以出现一次（0次、或1次）。
 
. 匹配除换行符以外的任意字符
\w 匹配字母或数字或下划线或汉字 等价于 ‘[A-Za-z0-9_]’。大写取反
\s 匹配任意的空白符。大写取反
\d 匹配数字。大写取反
\b 匹配单词的开始或结束
^ 匹配字符串的开始
$ 匹配字符串的结束
\w能不能匹配汉字要视你的操作系统和你的应用环境而定
 
  Sub testREGExecute()
    Dim reg, k, mh, strA$
    strA = "画面概要:iphone_5s;画面概要:Nokia_1020"
    Set reg = CreateObject("vbscript.regexp")
    reg.Pattern = "\w+"
    reg.Global = True
    Set mh = reg.Execute(strA)
    Debug.Print mh.Count               '2,if can not find,mh.count=0,
    For Each mhk In mh
        'mhk:{firstindex:index(starts from 0),value:match string,length:mhk.value.length}
        Debug.Print mhk.Value           'iphone_5s,Nokia_1020
    Next
End Sub
 
Public Function GetWebTxt(ByVal url As String) As String
    Dim xmlHttp As Object
    Application.DisplayAlerts = False
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
    xmlHttp.Open "GET", url, False
    'xmlHttp.setRequestHeader "Content-Type", "text/xml"
    xmlHttp.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:25.0) Gecko/20100101 Firefox/25.0"
    xmlHttp.Send
    While xmlHttp.readystate <> 4
        DoEvents            '''let system operator do other thing '''转让控制权，以便让操作系统处理其它事件。
    Wend
    GetWebTxt = xmlHttp.responsetext
End Function

Sub testfindAllByReg()
strA = GetWebTxt("https://bbs.hupu.com/34914799-2.html")
Set matchList= findAllByReg(strA, "class=""floor""[\s\S]*?uname=""([\s\S]*?)""[\s\S]*?<table[\s\S]*?td>([\s\S]*?)</td>[\s\S]*?</table")
    For Each mhk In matchList
        'mhk:{firstindex:index from 0,value:match string,length:mhk.value.length}
        For Each sm In mhk.submatches       'for each loop print all submatches
            Debug.Print sm
        Next
    Next
End Sub


Function findAllByReg(ByVal text$, Optional ByVal pattern$, Optional ByVal reg = Empty)
    If reg = Empty Then
        Set reg = CreateObject("vbscript.regexp")
        'reg.pattern = "class=""floor""[\s\S]*?uname=""([\s\S]*?)""[\s\S]*?<table[\s\S]*?td>([\s\S]*?)</td>[\s\S]*?</table"
        reg.pattern = pattern
        reg.Global = True
        reg.IgnoreCase = True               'setting true will Ignore case
        'reg.MultiLine = False              '更改^和$的含義，分別在任意一行的行首和行尾匹配，而不only在整个字符串的start和end匹配
    End If
    'text = readtxt1("C:\Users\Administrator\Desktop\new3.txt")
    'text = GetWebTxt("https://bbs.hupu.com/34914799-2.html")

    Set findAllByReg = reg.Execute(text)
    'Debug.Print findAllByReg.Count               '2,if can not find,mh.count=0,
    'For Each mhk In findAllByReg
        'mhk:{firstindex:index from 0,value:match string,length:mhk.value.length}
        'For Each sm In mhk.submatches       'for each loop print all submatches
            'Debug.Print sm
        'Next
    'Next
End Function
 
'https://bbs.hupu.com/34914799-2.html的部分数据如下：
<div id="162051" class="floor">
<div class="floor-show  ">
<div class="user" >
<div class="j_u" uid="193001006372078" uname="一坨大团团呀">
<a class="headpic" target="_blank" href="https://my.hupu.com/193001006372078"><img src="https://i1.hoopchina.com.cn/user/default_small.jpg" width="45" height="45" alt="一坨大团团呀"></a>
</div>
</div>
<div class="floor_box ">
<div class="author">
<div class="left">
<a class="u" target="_blank" href="https://my.hupu.com/193001006372078">一坨大团团呀</a><span class="f666">&nbsp;(<a title="一坨大团团呀的帖子" target="_blank" href="https://my.hupu.com/193001006372078/topic">10级</a>)</span>&nbsp;<span class="stime">2020-04-20 11:39</span>&nbsp;<span class="f666 162051 button-light-inner " pid="162051" uid="193001006372078" style="position:relative">
</span>
<span class="f444 162051" pid="162051" uid="193001006372078" style="position:relative">
<span class="ilike_icon_list"><a class="ilike_icon " mid="1" href="javascript:;" style="width:25px;" dace_clk="clk_bbs_rlights">亮了</a>
(<span class="stime">7</span>)</span>
</span>
</div>
<div class="right f666">
<a href="javascript:void(0);" onclick="report(8,162051);return false;">举报</a>
<a href="/34914799_193001006372078.html" rel="nofollow">只看此人</a>
<a id="28" class="floornum" title="直达本楼回帖的链接" href="/34914799-2.html#162051">28楼</a>
</div>
</div>
<table class="case" border="0" cellspacing="0" cellpadding="0">
<tbody>
<tr>
<td>
<p>快递行业中转管理 快递真的是暴利，也很暴力</p>

<br />
</td>
</tr>
</tbody>
</table>

 
分享成果，随喜真能量。大家好，今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码，第NO.114-NO.115则，内容是：FindPrevious反向查找、利用LIKE查找等内容。
 

 
VBA过程代码114：利用FindPrevious完成查找
 
Sub mynz()
 
Set rng = Sheets("8").Range("B1:E1000").Find("*a*")
 
If Not rng Is Nothing Then
 
Msgbox “查找到了”
 
Set rng = .Range("B1:E1000").FindPrevious(rng)
 
If Not rng Is Nothing Then
 
Msgbox “再次查找到了”
 
END IF
 
END IF
 
END WITH
 
END SUB
 
代码的解析说明：执行上述代码后，将在工作表Sheets("8")的Range("B1:E1000")中查找含有a的单元格。加入查找到则返回提示“查找到了”,然后再次执行查找，再次查找时是向前执行查找：FindPrevious(rng)。
 

 
VBA过程代码115：利用LIKE查找
 
Sub mynz()
 
Dim rng As Range
 
Dim a As Integer
 
a = 1
 
With Sheets("8")
 
.Range("A:A").ClearContents
 
For Each rng In .Range("B1:E20")
 
If rng.Text Like "*a*" Then
 
.Range("A" & a) = rng.Text
 
a = a + 1
 
End If
 
Next
 
End With
 
End Sub
 
代码的解析说明：执行上述代码后，将在工作表Sheets("8")的A列中查找含有a的单元格。
 
rng.Text Like "*a*" 是用like进行判断。
 

 
越简单的事物往往越容易理解，简单的过程组合起来就是一个复杂的过程，我们要先认真掌握这些简单的过程，才能在可以为我们复杂的工程服务。
 
下面是我根据自己20多年的VBA实际利用经验，编写的四部教程，这些是较大块的“积木”，可以独立的完成某些或者某类系统的过程，欢迎有需要的朋友联络(WeChat:NZ9668)分享。利用这些可以提高自己的编程效率。这些教程供有志于提高自己能力的朋友选择。
 
第一套：《VBA代码解决方案》PDF教程，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点，是初学及中级以下人员必备的资料。
 
第二套：《VBA数据库解决方案》PDF教程。数据库是数据处理的利器，对于中级人员应该掌握这个内容了。
 
第三套：《VBA数组与字典解决方案》PDF教程，讲解VBA的精华----字典，是我们打开思路，提高代码水平的必备资料。
 
第四套：《VBA代码解决方案》视频教程。目前正在录制，现在推出“每天20分钟，半年精进VBA”活动，越早参与，回馈越多。现在第一册48讲内容已经录制完成。录制到第二册71讲的课程，第二级阶段的优惠期开始。

 http://www.excelpx.com/thread-205471-1-1.html
 
 在vba 中使用的sql提供的通配符主要有四种 '%', '_', '[ ]', '[ !]'。下面对通配符做一些简单说明：
 
 
 1
 、
 '%'
 表示无数个字符串，如用
 like 's%'
 ，即可查出以
 s
 开头的值；如用
 like '%s_'
 查出倒数第二位为
 s
 的值；如用
 like '%s%'
 ，即可查出至少含有一个
 s
 的值。
 
 
 2
 、
 '_'
 该位置仅可以为一个任意字符，如用
 like 'b_g'
 即可查出
 big
 、
 bag
 等等所有以
 b
 开头以
 g
 结尾的三个字符的串。
 
 
 3
 、
 '[ ]'
 表示出现的字符是在一定的范围内，一般情况下它是配合
 '%'
 使用的。如
 like ’p[ro]%’
 ，他就可以查出以
 p
 开头、第二个字符为
 r
 或
 o
 的所有字串，即
 pocket
 ，
 product
 ……；如
 like ’%[ro]%’
 可以查出所有含有字符
 r
 或
 o
 的字串。
 
 
 特别地，对连续字母这里面可用
 -
 ，如
 like ‘[b-e]%’
 查出的是所有以
 b
 、
 c
 、
 d
 、
 e
 开头的字串；有多个这样的描述时不必用标点符号分开，如
 like ‘[b-ej-m]%’ 
 查出的是所有以
 b
 、
 c
 、
 d
 、
 e
 、
 j
 、
 k
 、
 l
 、
 m
 开头的字串。
 
 
 
 
 另like '%k%'与like '%[k]%'效果一样。
 
 

 4
 、
  '[ ! ]'
 是不含，如
 like ‘ b[! ro]% '
 ，就是检索出以
 b
 开头但第二个字符不是
 r
 或
 o
 的字符；
 like ‘[!b-ej-m]%’ 
 查出的是所有不是以
 b
 、
 c
 、
 d
 、
 e
 、
 j
 、
 k
 、
 l
 、
 m
 开头的字串。
 

 5
 、如果要查
 %
 时，请用
 ^%
 。如
 like ‘%^%’
 表示查出所有以
 %
 结尾的字串；不要试图用
 like ‘%[!k]%’
 来查出不含
 k
 的字串，而该使用
 not like ‘%[k]%’
 或
 not like ‘%k%’