内容导航：


一、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



二、如何用sql2005查询excel


先上SQL：

exec sp_configure 'show advanced options',1
reconfigure
exec sp_configure 'Ad Hoc Distributed Queries',1
reconfigure

SELECT * FROM OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0',
'Data Source=E:HaierWebMyWebDocabc.xls;Extended Properties=Excel 8.0')...Sheet1$

第一行当做表头。
其余行当成一种数据类型，且不能转换，如果有文本，有数字， 按出现多的一项显示，其余为Null

员工信息　　F2
NULL 　　姓名
664754 张三
664783 李四

Null 处应该是 员工编号 。 前两行是表头。

对于这种形式，应该把 数字前多输一个’（单引号） 强行转换为文本格式。快速填入相同内容 选中多个单元格后，输入字符，然后按Ctrl+Enter组合键，即可在选中的每个单元格中填入上述相同的字符。

解决方法：
SELECT * FROM OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0',
'Data Source=E:HaierWebMyWebDocabc.xls;Extended Properties="Excel 8.0;HDR=YES;IMEX=1;"')...Sheet1$

HDR=Yes , 是说第一列当做表头。
IMEX=1 , 是说把表内容混合读取。

Jet 居然支持这么多数据库， 连Html table 也支持。 参考：http://zh.wikipedia.org/zh-cn/Microsoft_Jet_Database_Engine