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

首頁 > 辦公 > Excel > 正文

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

2019-12-13 06:53:42
字體:
來源:轉載
供稿:網友

如何在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數據庫中?

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 河间市| 达尔| 泰安市| 威海市| 黄大仙区| 许昌市| 法库县| 山阴县| 萝北县| 苍梧县| 延长县| 安陆市| 桂林市| 玉山县| 漯河市| 哈尔滨市| 名山县| 沙河市| 秦皇岛市| 永昌县| 南京市| 金阳县| 天水市| 壶关县| 西城区| 黄大仙区| 华坪县| 乌海市| 东平县| 河东区| 河间市| 梓潼县| 革吉县| 彰化县| 镇平县| 靖西县| 贡山| 南皮县| 教育| 淳化县| 贡山|