移動版 - 最新教程 - 熱門教程 - 推薦教程 - 熱門資源 分享高質量的原創Office教程、Word教程、Excel教程、PPT教程。

使用SQL語句實現對Excel工作表數據進行查詢的方法

發布時間:2016-09-03 來源:Office辦公助手(www.wmcxms.live)

SQL語句是一種標準的數據庫語言,其可以在任何關系型數據庫管理系統中使用。本文介紹使用SQL語句實現對Excel工作表數據進行查詢的方法。

1、啟動Excel并打開工作簿,在這個工作簿中,工作表Sheet1放置商品信息記錄,如圖1所示;工作表Sheet2用于對商品記錄進行查詢,其結構如圖2所示。

使用SQL語句實現對Excel工作表數據進行查詢的方法

圖1 放置商品信息記錄的工作表

使用SQL語句實現對Excel工作表數據進行查詢的方法

圖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所示。

使用SQL語句實現對Excel工作表數據進行查詢的方法

圖3 輸入商品名稱

使用SQL語句實現對Excel工作表數據進行查詢的方法

圖4 獲得查詢結果

更多相關閱讀

使用Command對象執行SQL語句來獲取滿足指定條件的記錄數的方法

《Excel疑難千尋千解叢書(四):Excel2010 SQL完全應用》PDF免費下載

使用SQL語句進行數據篩選的方法

    相關教程
    推薦教程
    專題教程推薦
    熱門資源下載
    广西快乐10分开奖直播现场 女子网球比分规则 火花资讯能赚钱吗 如何计算基金赚钱 极速飞艇 今年代理什么最赚钱 雷速体育足球直播 赚钱赌博软件下载 bet365网球比分直播 迅雷赚钱宝 100多k 寒假在家做什么赚钱 广东时时彩 87 88年做什么最赚钱 电子体育比分屏 手机捕鱼棋牌 篮球比分直播 爱我中华爱心捐赠怎么赚钱