大家好，我们继续讲解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 的语法是怎么样的？

分享成果，随喜真能量。大家好，今日内容仍是和大家分享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讲的课程，第二级阶段的优惠期开始。

分享成果，随喜真能量。大家好，今日内容仍是和大家分享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讲的课程，第二级阶段的优惠期开始。

大家好，我们继续讲解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("型号