SQL語句是一種标準的資料庫語言，其可以在任何關系型資料庫管理系統中使用。在Excel表格中，使用SQL語句可以實作對Excel工作表資料進行查詢的方法。以下是學習啦小編為您帶來的關于使用SQL語句對Excel工作表資料進行查詢，希望對您有所幫助。
使用SQL語句對Excel工作表資料進行查詢
1、啟動Excel并打開工作簿，在這個工作簿中，工作表Sheet1放置商品資訊記錄，如圖1所示;工作表Sheet2用于對商品記錄進行查詢，其結構如圖2所示。
圖1 放置商品資訊記錄的工作表
圖2 用于商品記錄查詢的工作表
2、打開Visual Basic編輯器，在工程資料總管中插入一個子產品，在子產品的“代碼”視窗中輸入如下程式代碼：
Sub CheckData()
Dim cnn As ADODB.Connection '聲明連接配接對象變量
Dim rs As ADODB.Recordset '聲明記錄集對象
Dim strSql As String
Dim str As String
On Error Resume Next
Set cnn=CreateObject("ADODB.Connection") '建立連接配接對象變量
Set rs=CreateObject("ADODB.Recordset") '建立記錄集對象記錄
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;"_&"Extended Properties=Excel 8.0;"_&"Data Source="&ThisWorkbook.FullName
str=ActiveSheet.Range("B1").Value '擷取目前單元格内容
strSql="Select*FROM[Sheet1$]Where商品like '%"&str&"%'"'建立資料篩選指令
rs.Open strSql,cnn,adOpenStatic
With ActiveSheet
.Range("A4:D100").ClearContents '清除單元格記錄
.Range("A4").CopyFromRecordset rs '複制篩選結果
End With
rs.Close
cnn.Close
Set rs=Nothing
Set cnn=Nothing
End Sub
3、首先在Sheet2工作表中輸入需要查詢的商品名稱，如圖3所示。運作CheckData()過程，在Sheet2工作表中将列出查詢結果，如圖4所示。
圖3 輸入商品名稱
圖4 獲得查詢結果
猜你喜歡：