如何在Excel中使用SQL語言實現(xiàn)數(shù)據(jù)查詢？SQL語句是一種標(biāo)準(zhǔn)的數(shù)據(jù)庫語言，其可以在任何關(guān)系型數(shù)據(jù)庫管理系統(tǒng)中使用。本文介紹使用SQL語句實現(xiàn)對Excel工作表數(shù)據(jù)進(jìn)行查詢的具體方法步驟，非常實用，感興趣的朋友一起去看看吧。

使用SQL語句對Excel工作表數(shù)據(jù)進(jìn)行查詢的方法：

1、啟動Excel并打開工作簿，在這個工作簿中，工作表Sheet1放置商品信息記錄，如圖1所示;工作表Sheet2用于對商品記錄進(jìn)行查詢，其結(jié)構(gòu)如圖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") '創(chuàng)建連接對象變量

Set rs=CreateObject("ADODB.Recordset") '創(chuàng)建記錄集對象記錄

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;"_&"Extended Properties=Excel 8.0;"_&"Data Source="&ThisWorkbook.FullName

str=ActiveSheet.Range("B1").Value '獲取當(dāng)前單元格內(nèi)容

strSql="Select*FROM[Sheet1$]Where商品like '%"&str&"%'"'創(chuàng)建數(shù)據(jù)篩選命令

rs.Open strSql,cnn,adOpenStatic

With ActiveSheet

.Range("A4:D100").ClearContents '清除單元格記錄

.Range("A4").CopyFromRecordset rs '復(fù)制篩選結(jié)果

End With

rs.Close

cnn.Close

Set rs=Nothing

Set cnn=Nothing

End Sub

3、首先在Sheet2工作表中輸入需要查詢的商品名稱，如圖3所示。運(yùn)行CheckData()過程，在Sheet2工作表中將列出查詢結(jié)果，如圖4所示。

圖3　輸入商品名稱

圖4　獲得查詢結(jié)果

教程結(jié)束，以上就是關(guān)于如何使用SQL語句實現(xiàn)對Excel工作表數(shù)據(jù)的查詢的方法步驟，需要的朋友快去試試吧！

相關(guān)教程推薦：

通過Excel生成批量SQL語句(Excel快速生成SQL更新語句)

EXCEL數(shù)據(jù)表怎么導(dǎo)入到SQLServer數(shù)據(jù)庫中?

最新評論