當前位置:首頁 » 編程語言 » excel中的sql語句

excel中的sql語句

發布時間: 2022-12-08 15:08:02

1. 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

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語句

1、需要導入的數據如圖。

5. EXCEL中是SQL語句

如圖
但只能查整張表內容,不能寫腳本篩選或分組
建議把要顯示的內容先做成視圖,再這樣拉出來
------------------------------------------------
又看了一遍問題,確認了你的需求
excel只能做篩選,不能寫腳本
能寫腳本的是access

6. 如何在excel中加入sql語句

Set conn = CreateObject("adodb.connection")
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = " select * from [sheet1$a:v]"
[a1].CopyFromRecordset conn.Execute(Sql)
conn.Close: Set conn = Nothing

7. excel里可以使用sql語句嗎

可以的,EXCEL可以作為數據源(SQL語句FROM後面的表),也可以結果存放到EXCEL裡面,不過需要使用微軟查詢(2016版包含)。

8. 如何在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」。

9. 怎麼在excel中正確使用SQL的查詢語句

ALT+F11,打開VBE,插入一個模塊,把以下代碼復制進去:
Sub dosql(sql, a As Range)
Dim Conn As Object
Set Conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
PathStr = ThisWorkbook.FullName
Select Case Application.Version * 1
Case Is <= 11
strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & PathStr
Case Is >= 12
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
End Select
Conn.Open strConn
Set rst = Conn.Execute(sql)
If VBA.InStr(sql, "select") > 0 or VBA.InStr(sql, "Select") > 0 Then
With a.Parent
For i = 0 To rst.fields.Count - 1
.Cells(1, a.Column + i).EntireColumn.ClearContents
.Cells(1, a.Column + i) = rst.fields(i).Name
Next
End With
a.Offset(1).CopyFromRecordset rst
For i = 0 To rst.fields.Count - 1
a.Parent.Cells(1, a.Column + i).EntireColumn.AutoFit
Next
End If
Conn.Close
End Sub
Public Sub t()
'sql = "這里寫你的查詢語句"
dosql sql, [E1]
End Sub
1、記得運行代碼前要保存工作簿
2、查詢語句中,表名是[工作表名$]這樣的格式
3、dosql sql, [E1]中的E1,就是要放查詢結果的區域左上角那個單元格。

10. Excel表中連接sql並使用sql語句引用excel單元格數據作為查詢條件

1、將需要處理的記錄復制到一個新的工作表,然後將在資料庫表中存在唯一值的列(比如物料編碼)後插入一列,用 CONCATENATE函數將其前後加上「'」。

熱點內容
linux虛擬機上外網訪問 發布:2023-02-07 00:54:20 瀏覽:736
紅米訪問限制設置 發布:2023-02-07 00:52:04 瀏覽:108
上傳大文件網盤 發布:2023-02-07 00:51:06 瀏覽:266
上傳cdn文件 發布:2023-02-07 00:49:48 瀏覽:613
linux裁剪 發布:2023-02-07 00:45:40 瀏覽:875
安卓轉產品經理怎麼樣 發布:2023-02-07 00:45:35 瀏覽:706
智能防盜鎖加密卡怎麼配置 發布:2023-02-07 00:45:33 瀏覽:915
ftp切換被動模式 發布:2023-02-07 00:45:33 瀏覽:104
文件加密後打不開 發布:2023-02-07 00:44:21 瀏覽:314
伺服器共享盤是什麼 發布:2023-02-07 00:43:19 瀏覽:795