国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 辦公 > Excel > 正文

如何使用SQL語句實現對Excel工作表數據的查詢?

2024-08-23 19:46:39
字體:
來源:轉載
供稿:網友

如何在Excel中使用SQL語言實現數據查詢?SQL語句是一種標準的數據庫語言,其可以在任何關系型數據庫管理系統中使用。本文介紹使用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 獲得查詢結果

教程結束,以上就是關于如何使用SQL語句實現對Excel工作表數據的查詢的方法步驟,需要的朋友快去試試吧!

相關教程推薦:

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

EXCEL數據表怎么導入到SQLServer數據庫中?

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 南昌县| 信丰县| 威海市| 婺源县| 九寨沟县| 临泉县| 秦皇岛市| 洛宁县| 扶风县| 三台县| 偏关县| 随州市| 永康市| 赣榆县| 光山县| 阜南县| 永安市| 安达市| 迁西县| 自治县| 嘉峪关市| 广元市| 山阴县| 田东县| 阿克| 长乐市| 甘德县| 读书| 阿尔山市| 临沂市| 泰兴市| 泰顺县| 康保县| 大安市| 积石山| 永城市| 越西县| 鲁甸县| 宁武县| 海淀区| 辽阳市|