Ⅰ Excel 求助 sql select from 语句
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$A2:D]"
[H3].CopyFromRecordset conn.Execute(Sql)
conn.Close: Set conn = Nothing
Ⅱ Excel 请问VBA中如何实现SQL 中的SELECT查询
一般是select查询的顺序为：
select
分组字段+聚合函数+from+where+group
by+having+order
by
select查询语句很复杂，最简单的举例如：
select
*
from
[信息库$]
where
性别="男"
从信息库表中找出性别为男的所有数据条目。
Ⅲ EXCEL 查询SQL2005数据，select语句怎么调用excel表格的文本
要用VBA做。
这是我以前写的例子：
SubTT()
Setconn=NewADODB.Connection
Setrs=NewADODB.Recordset
Sheet1.Cells.Clear
Sheet3.[B8]=""
conn.ConnectionString="Driver={sqlserver};server="&Sheet3.[B2]&";uid="&Sheet3.[B3]&";pwd="&Sheet3.[B4]&";database="&Sheet3.[B5]
conn.Open
Sheet3.[B8]="连接成功！"
rs.OpenSheet3.[B6].Value,conn,adOpenKeyset,adLockPessimistic,adCmdText
rs.MoveLast
l=rs.RecordCount
Sheet3.[B9]=l
n=3
Fori=1Tol
IfTrim(rs.Fields("字段1"))<>"字段1"Then
Sheet1.Cells(n,"A")=Trim(rs.Fields("字段1"))
n=n+1
Else
Sheet1.Cells(n,"B")=Trim(rs.Fields("字段2"))
n=n+1
EndIf
Next
EndSub
Ⅳ Excel表中连接sql并使用sql语句引用excel单元格数据作为查询条件
1、将需要处理的记录复制到一个新的工作表，然后将在数据库表中存在唯一值的列（比如物料编码）后插入一列，用 CONCATENATE函数将其前后加上“'”。
Ⅳ 在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是关键字.
Ⅵ EXCEL VBA里怎么用SQL 的SELECT 语句
可以做到，但不是三言两语能说清楚的。至少VBA程序不会太短
如果用手工操作，不借助VBA，可以利用Excel的“数据－导入外部数据”菜单将SQL中的表先导入到Excel中，那么Excel数据与SQL数据的比较就变成了两个Excel表列的比较，很容易用数组公式或相关函数标识出重复的数据项的。
Ⅶ 在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单元格的值了
Ⅷ excel运行SQL的select from语句
单纯的如上的语句是不能执行的，你必须配上一系列的打开数据库的操作（譬如vb），而后编译成exe文件，链接到任何地方都能执行。
Ⅸ 如果excel中想使用sql语句怎么使用
excel中使用sql语句，使用快捷键alt+d+d+d调出链接表的对话框，选择你要连接的表，然后确定，在编辑查询命令文本中要写sql语句，sql在excel中使用的是select语句。其实使用select主要是对数据的查询和汇总，汇总时输入聚合函数。总之有许多的知识需要学习，你可以在网上查阅一下sql
select语句的具体知识。
Ⅹ 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