excel中的sql语句
1. excel使用sql语句查询功能.
在宏编辑界面中进行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函数将其前后加上“'”。