1.NZ系列资料说明（220522更新）
2.数据库查询中LIKE和NOT LIKE的源码应用

NZ系列资料说明（220522更新）

       新西兰系列(NZ)资料介绍（更新）

       我精心设计的教程分为初级、中级和高级三个阶段，源码全面涵盖VBA的源码各个方面，从基础入门到复杂的源码网络抓取与类应用，旨在帮助你构建强大的源码Excel工具。针对学习过程中的源码360看车源码疑惑，我已预备了两个系列的源码辅助资料：YZ和NZ。YZ系列适合初学者，源码而NZ系列则专为有一定VBA基础的源码你准备，涉及的源码内容包括：

       NZ：VBA二维码应用技术，无需第三方插件，源码只需Excel即可实现生成和处理二维码。源码

       NZ：PDF读取技术，源码超级体验购源码提供7项功能，源码如查找、源码拆分、合并PDF，以及提取数据到Excel和Word等操作。

       NZ：右键筛选功能，利用加载项实现快速筛选和数据排重。

       NZ：网络连接测试技术，通过VBA检测网络信息、连接状态和URL连接性。

       NZ：不打开工作簿获取内容，包括工作表名称、文雅实战公式源码内容（含或不含标题行）的获取方案，核心技术封装在GetWorkSheets.xlam加载项中。

       获取NZ系列资料，有两种版本：核心代码不公开和开源。成为我的学员并完成教程可直接获得非开源版本，部分教程的学员则可通过联系获取开源版本，允许根据需求修改源代码。对于已有非开源资料的学员，需要修改特定部分，同样可以申请源码。

       通过这些工具，你将掌握如何在高版本Excel中利用VBA解决实际问题，软件界面翻译源码无论是生成二维码、处理PDF，还是网络测试或工作簿内容的高效获取。请根据你的需求选择合适的技术，并根据实际场景进行调整和扩展。

数据库查询中LIKE和NOT LIKE的应用

       没有人不会经历孤独，但要学会在孤独中成长，在平凡中脱颖而出。成长本身就是一段逐渐孤独无援的旅程，你要努力变得强大，然后独当一面。

       《VBA数据库解决方案》教程（）是阿拉德完整源码我推出的第二套教程，目前已经进行了第一版修订。这套教程针对中级学习者，是在学习字典后的另一个专题讲解。数据库是数据处理的强大工具，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作。教程第一版的修订内容主要是完成所有程序文件的位和位OFFICE系统测试。

       这套教程共有两册，八十四讲，未来一段时间将陆续推出修订后的教程内容。今天的内容是：数据库查询中LIKE和NOT LIKE的应用。

       如果您已经对VBA有了一定的了解，可以根据自己的兴趣选择教程。经典组合3,2,9，第3套字典教程是数据处理必备的，第2套数据库是专业数据处理的工具，第9套教程是实用的典型案例讲解。对于数据处理而言，如果您数据量不是很大，字典可以优先选择。教程提供的程序源码文件就像一座大型的代码库，支持着大家的工作。同时，还有实用的资料送给学员。

       我推出的VBA工具系列分为两类：一类是较易的YZ系列，一类是较难的NZ系列。这些工具是大家学习VBA的好帮手，其中NZ系列工具还有专门版本资料提供给已按部就班学习完我所有教程的学员。

       第五十三讲 工作表数据查询时，LIKE和NOT LIKE的应用

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

       应用场景的具体分析

       实例讲解，我们看下面的数据：

       我们要筛选出以W开始的生产厂的数组和不是以W开始的数据。如何实现呢？

       ADO连接工作表中，LIKE和NOT LIKE的应用代码及代码解读

       下面看我给出的代码：

       Sub mynzRecords_() '第讲 工作表数据查询时，类似筛选功能LIKE和NOT LIKE的应用.

       Dim cnADO, rsADO As Object

       Dim strPath, strSQL1, strSQL2, strSQL3, strSQL4 As String

       Worksheets("").Select

       Cells.ClearContents

       Set cnADO = CreateObject("ADODB.Connection")

       Set rsADO = CreateObject("ADODB.Recordset")

       strPath = ThisWorkbook.FullName

       cnADO.Open "provider=Microsoft.ACE.OLEDB..0;extended properties='excel .0;hdr=yes;imex=1';data source=" & strPath

       strSQL1 = "select 型号,生产厂,供应商,数量 from [数据$] WHERE 生产厂 Like 'W%'"

       arr = Array("型号", "生产厂", "供应商", "数量")

       [a1:d1] = arr

       [a].End(xlUp).Offset(1, 0).CopyFromRecordset cnADO.Execute(strSQL1)

       strSQL2 = "select 型号,生产厂,供应商,数量 from [数据$] WHERE 生产厂 NOT Like 'W%'"

       [a].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 LIKE 和 NOT LIKE 的语法是怎么样的？

       本讲内容参考程序文件：VBA与数据库操作（第二册）.xlsm

       我多年的VBA实践经验，全部浓缩在下面的各个教程中：

       分享成果，随喜正能量人生于世，就得有点兴致，闲暇之时，或乐游山水、或尽享食味、或寄情岁时，它让我们的生活变得充盈。