大家好，我們繼續講解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("型號

總結

以上是生活随笔為你收集整理的查询两张表 然后把数据并在一起_工作表数据查询时，类似筛选功能LIKE和NOT LIKE的应用...的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。