A. 如何在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
B. 如何在EXCEL中使用SQL进行数据处理与分析
在EXCEL中使用SQL进行数据处理与分析步骤有:
工具原料:excel2013版本
打开“excel”,在“数据”选项卡中,找到“自其他来源”;
C. 使用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); })();D. 如果excel中想使用sql语句怎么使用
excel中使用sql语句,使用快捷键alt+d+d+d调出链接表的对话框,选择你要连接的表,然后确定,在编辑查询命令文本中要写sql语句,sql在excel中使用的是select语句。其实使用select主要是对数据的查询和汇总,汇总时输入聚合函数。总之有许多的知识需要学习,你可以在网上查阅一下sql
select语句的具体知识。E. EXCEL中能不能直接执行SQL语句
1、需要导入的数据如图。
F. 如何在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
G. 如何在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 = Nothing
End Sub