国产探花免费观看_亚洲丰满少妇自慰呻吟_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數據庫中?

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 青岛市| 观塘区| 泰安市| 新乡县| 石家庄市| 普格县| 阜阳市| 温泉县| 屏南县| 重庆市| 东乌珠穆沁旗| 黄冈市| 天峨县| 运城市| 扎鲁特旗| 凤城市| 格尔木市| 左贡县| 乐安县| 华安县| 瓮安县| 泊头市| 修武县| 永丰县| 资中县| 双桥区| 博乐市| 于田县| 晋州市| 沙湾县| 伊金霍洛旗| 双牌县| 平远县| 庄浪县| 改则县| 二连浩特市| 增城市| 嘉黎县| 宾川县| 博湖县| 称多县|