使用SQL語句如何對Excel工作表數(shù)據(jù)進行查詢
SQL語句是一種標準的數(shù)據(jù)庫語言,其可以在任何關(guān)系型數(shù)據(jù)庫管理系統(tǒng)中使用。在Excel表格中,使用SQL語句可以實現(xiàn)對Excel工作表數(shù)據(jù)進行查詢的方法。以下是學(xué)習啦小編為您帶來的關(guān)于使用SQL語句對Excel工作表數(shù)據(jù)進行查詢,希望對您有所幫助。
使用SQL語句對Excel工作表數(shù)據(jù)進行查詢
1、啟動Excel并打開工作簿,在這個工作簿中,工作表Sheet1放置商品信息記錄,如圖1所示;工作表Sheet2用于對商品記錄進行查詢,其結(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 '獲取當前單元格內(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所示。運行CheckData()過程,在Sheet2工作表中將列出查詢結(jié)果,如圖4所示。
圖3 輸入商品名稱
圖4 獲得查詢結(jié)果
使用SQL語句如何對Excel工作表數(shù)據(jù)進行查詢相關(guān)文章:
★ 如何將excel數(shù)據(jù)導(dǎo)入sql的方法
★ excel數(shù)據(jù)導(dǎo)入SQL數(shù)據(jù)庫的教程
★ excel表導(dǎo)入sql數(shù)據(jù)庫的教程
★ excel導(dǎo)入sqlserver數(shù)據(jù)庫方法
★ 計算機英語