如何在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