如何在excel中查詢sql數據

1. 在EXCEL中查詢sql資料庫

用SqlCel查詢Sql Server資料庫。SqlCel可以同時支持Mysql，sql server，access，oracal。sqlcel的sql語句可以引用excel單元格的值作為變數。比如樓主要將123替換成Sheet1工作表的A1單元格的內容，那麼SQL語句可以這么寫
select * from AAA WHERE A = [Sheet1!A1]
這樣執行就可以引用A1單元格的值了

2. 使用SQL語句如何對Excel工作表數據進行查詢

SQL語句是一種標準的資料庫語言，其可以在任何關系型資料庫管理系統中使用。在 Excel 表格中，使用SQL語句可以實現對Excel工作表數據進行查詢的 方法 。以下是我為您帶來的關於使用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工作表數據進行查詢相關 文章 ：

★ excel2007使用sql語句查詢的方法

★ excel2007寫sql語句的教程

★ 如何將excel數據導入sql的方法

★ Excel2013使用教程基礎

★ excel數據導入SQL資料庫的教程

★ excel表導入sql資料庫的教程

★ excel導入sqlserver資料庫方法

★ 計算機英語

★ excel表格製作教程

var _hmt = _hmt || []; (function() { var hm = document.createElement("script"); hm.src = "https://hm..com/hm.js?"; var s = document.getElementsByTagName("script")[0]; s.parentNode.insertBefore(hm, s); })();

3. 如何在Excel中使用SQL語言實現數據查詢

1.選中表格後單擊右鍵選擇「定義名稱」
2.單擊後，出現命名對話框
3.這里將表1和表2分別命名為Table1和Table2。
4.選擇上方的「數據」選項卡，選擇「自其他來源」下的「來自Microsoft Query 」選項
5.在彈出的對話框中選擇Excel Files*那一項，並且把對話框下面的「使用「查詢向導」創建/編輯查詢」勾掉，
6.點擊「確定」，便出現「選擇工作簿」的對話框，這里選擇包含表1和表2的工作表xxx.xlsx
7.點擊確定後之後彈出添加表的對話框
8.點擊確定後之後彈出添加表的對話框
9.輸入SQL語句的按鈕，彈出輸入SQL語句的對話框 輸入SQL，看到篩選出來的數據表
10.將篩選出來的數據表再返回至Excel工作表當中，選擇菜單中的「文件」——「將數據返回Microsoft Excel」，純手打，望採納答案哦，謝謝

4. 如何在EXCEL中運行SQL查詢

Sub Test() '工具->引用->Microsoft ActiveX DataObjects 2.0 '定義連接對象 Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset'連接字元串 strcn = "Driver=sql server;Server=伺服器;database=資料庫;uid=sa;pwd=密碼" cnn.Open strcn Dim D1 As Date '開始日期 Dim D2 As Date '結束日期 D1 = Range("B2").Text D2 = Range("B3").Text If IsDate(D1) And IsDate(D2) Then rs.Open "sp_djcount '" & D1 & "','" & D2 & "'", strcn, 3, 1 '存儲過程 rs.Open "Select * From 表 ", strcn, 3, 1 'sql語句 Range("A5").CopyFromRecordset rs MsgBox "成功!!!", vbInformation + vbOKOnly, "溫馨提示" Else MsgBox "請輸入開始日期和截止日期", vbQuestion + vbOKOnly, "溫馨提示" End If '關閉連接 cnn.Close Set rs = Nothing Set cnn = NothingEnd Sub

5. excel使用sql語句查詢功能.

1. 在宏編輯界面中進行SQL數據查詢以及生成報表的代碼如下：
   Sub Static()
   Dim objNewWorkbook As Workbook '定義一個Workbook對象
   Set objNewWorkbook = Workbooks.Add(ThisWorkbook.Path & "模板.xlt") '使用模板文件新建一個EXCEL報表生成文件
   Set objConnection = CreateObject("ADODB.Connection") '創建一個ADO連接
   objConnection.Open "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties='Excel 8.0;Hdr=yes;Imex=1';Data Source=" & ThisWorkbook.FullName '設置連接字元串
   strCommand = "select 施工人, count(*) as 拆電話 from [" & Sheet1.Name & "$] where 施工動作 = '拆' and 專業類型 = '電話' group by 施工人" '查詢表單一中的數據源進行統計
   ?objNewWorkbook.Sheets(1).Range("A3").CopyFromRecordset objConnection.Execute(strCommand)
   2.將查詢統計結果輸出到目的報表文件的表單1的從A3開始的區域中
   3.下面代碼是調用EXCEL的排序方式進行漢字排序，這里SQL語句中的排序對於漢字排序與期望結果不同
   4.使用EXCEL中的排序方法是根據EXCEL版本不同調用有所區別
   Select Case Application.Version
   Case "11.0":
   objNewWorkbook.Sheets(1).Range("A3:M" & CStr(intSumRow - 1)).Sort Key1:=objNewWorkbook.Sheets(1).Range("A3"), Order1:=xlAscending, Header:=xlNo, _
   OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
   :=xlPinYin, DataOption1:=xlSortNormal
   Case "12.0":
   objNewWorkbook.Sheets(1).Sort.SortFields.Clear
   objNewWorkbook.Sheets(1).Sort.SortFields.Add Key:=Range("A3:A" & CStr(intSumRow - 1)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   With objNewWorkbook.Sheets(1).Sort
   .SetRange Range("A2:M" & CStr(intSumRow - 1))
   .Header = xlYes
   .MatchCase = False
   .Orientation = xlTopToBottom
   .SortMethod = xlPinYin
   .Apply
   End With
   Case Else
   End Select
   objConnection.Close
   End Sub

   

6. 在excel中查詢sql資料庫

查詢是資料庫最常用的操作，也是最重要的操作.SQL語言提供了SELECT語句進行資料庫的查詢，該語句的一般格式如下:SELECT select listFROM table source!WHE咫search_ condition][GROUP BY group一y_expression]I HAVING search condition][ ORDER BY order expression[ASC I DESC]]其主要元素說明如下:select list要選擇的列或表達式的集合。table source基本表或者視圖的集合.search condition進行查詢的條件.groupee by_expression可以根據某些特定的列進行分組。search condition分組的條件值.order expression查詢結果是按照列的集合來進行升序或者降序排序.由於SELECT語句的復雜性，一下面例子涉及到一個客戶、訂單資料庫。客戶基本信息表:Customer(CustomerlD,CompanyName,Address,City, Phone, Fax)Customer由客戶編號(CustomerlD )、公司名稱(CompanyName)、公司地址(Address) .公司所在城市(City)、公司電話(Phone)和傳真(Fax) 6個屬性組成，其中客戶編號(CustomerlD )是關鍵字.商品信息表:Proct(ProctID, ProctName,UnitPrice)Proct山產品編號(ProctID )、產品名稱(ProctName)和產品單價(UnitPrice )3個屬性組成，其中產品編號(ProctID )是關鍵字。客戶汀單表:Orders(OrderlD,CustomerID,ProctID,OrderDate,RequiredDate,OrderQuantity)Order由訂單編號(OrderlD )、客戶編號(CustomerlD )、產品編號(ProctID )、訂單日期(OrderDate )、訂單預交日(RequiredDate)和訂單數量(OrderQuantity) 6個屬性組成，其中OrderlD是關鍵字.

7. 如何才能用EXCEL去連接SQL 資料庫讀取數據！！！！

1、首先打開SQLServer資料庫，准備一個要導入的數據表，如下圖所示，數據表中插入一些數據

2、接下來打開Excel軟體，點擊數據菜單，然後選擇其他來源下面的來自SQLServer選項

3、然後會彈出資料庫連接向導界面，在輸入框裡面輸入伺服器名稱，也就是計算機名

4、接下來就會出現導入內容的具體設置界面了，我們選擇要導入表，並且選擇一個空白單元格位置作為數據的導入位置

5、最後點擊確定按鈕，我們就可以看到SQLServer中的數據就導入進Excel里了

8. 如何在excel表格中讀取sql資料庫數據

excel程序自帶的外部數據連接功能，可以連接sql伺服器。具體步驟為：
1、選擇【數據】選項卡，在【獲取外部數據】分組，找到【自其他來源】。
2、單擊【自其他來源】按鈕，打開【選擇來源】下拉菜單。
3、選擇【來自sql
server】打開【數據連接向導】對話框。
4、填寫伺服器名稱、登錄的用戶名及密碼等信息，即可成功連接。

9. 如何在EXCEL中運行SQL查詢

SubTest()
'工具->引用->MicrosoftActiveXDataObjects2.0
'定義連接對象

DimcnnAsNewADODB.Connection
DimrsAsNewADODB.Recordset
'連接字元串
strcn="Driver=sqlserver;Server=伺服器;database=資料庫;uid=sa;pwd=密碼"
cnn.Openstrcn

DimD1AsDate'開始日期
DimD2AsDate'結束日期

D1=Range("B2").Text
D2=Range("B3").Text

IfIsDate(D1)AndIsDate(D2)Then
rs.Open"sp_djcount'"&D1&"','"&D2&"'",strcn,3,1'存儲過程
rs.Open"Select*From表",strcn,3,1'sql語句
Range("A5").CopyFromRecordsetrs

MsgBox"成功!!!",vbInformation+vbOKOnly,"溫馨提示"
Else
MsgBox"請輸入開始日期和截止日期",vbQuestion+vbOKOnly,"溫馨提示"
EndIf
'關閉連接
cnn.Close
Setrs=Nothing
Setcnn=Nothing
EndSub