在EXCEL中使用SQL语句查询集锦-持续更新中，敬请关注

opiona

上传附件吧！最能说明问题

sance_fan

期待持续更新···

wenvay

opiona 发表于 2013-6-20 10:34
上传附件吧！最能说明问题

1. 
   
2. 
   
3. 
   
4. 
   
5. 
   
6. 
   
7. Sub filter_remarks()
   
8.   
   
9.     Application.ScreenUpdating = False
   
10.    
    
11.     Dim cnn As Object, SQL$, myPath$, MyFile$, d
    
12.     Dim wb As Workbook
    
13.    
    
14.     Set cnn = CreateObject("adodb.connection")
    
15.     myPath = ThisWorkbook.Path & ""
    
16.     MyFile = ThisWorkbook.Name
    
17.    
    
18.    
    
19.    '以本EXCEL文件作为一个数据库
    
20.    
    
21.     cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties=Excel 12.0;IMEX=1;HDR=NO;Data Source=" & ThisWorkbook.FullName  '字符与数值混排 报错
    
22.    
    
23.     '筛选ALLDATA工作表 REMARK字段为空的数据
    
24.    
    
25.     SQL = "select * from [AllData$a2:s] where Remark is null or len(Remark)=0" '筛选条件Remark 为空 可以更改条件 如:Remark = A
    
26.    
    
27.    
    
28.    ' Set wb = GetObject(myPath & MyFile)
    
29.    Set wb = ThisWorkbook
    
30.    
    
31.     '将数据复制到工作表REMARKS
    
32.    
    
33.     With wb
    
34.      .Worksheets("remarks").Range("a1").CurrentRegion.Offset(2).ClearContents
    
35.      .Worksheets("remarks").Range("a3").CopyFromRecordset cnn.Execute(SQL)
    
36.      .Worksheets("remarks").Activate
    
37.      .Worksheets("remarks").Range("a3").Select
    
38.     End With
    
39.    
    
40.     cnn.Close
    
41.    ' wb.Close
    
42.    
    
43.     'Set wb = Nothing
    
44.     Set cnn = Nothing
    
45.    
    
46. Application.DisplayAlerts = False
    
47.      ThisWorkbook.Save
    
48. Application.DisplayAlerts = True
    
49.     Application.ScreenUpdating = True
    
50. End Sub
    

复制代码

opiona,上传附件，代码如上。结果不如理想

要求条件：筛选p列为空的数据。

结果：筛选数据不全；数据超过65536后不能全部复制，b列跟I列日期格式不能转换。

remark筛选数据.part1.rar (1.91 MB, 下载次数: 97)

2013-6-20 12:21 上传

点击文件名下载附件

remark筛选数据.part3.rar (380.86 KB, 下载次数: 73)

2013-6-20 12:21 上传

点击文件名下载附件

remark筛选数据.part2.rar (1.91 MB, 下载次数: 101)

2013-6-20 12:21 上传

点击文件名下载附件

wenvay

呵呵。。。ISAM问题已经解决，
Extended Properties=‘Excel 12.0;IMEX=1;HDR=YES’; CONECTION STRING需要添加单引号

附件要求错了。
筛选p列为空的数据

fzkoko

珍藏，谢谢。

minjiwei

必须收藏，谢谢！

mza

谢谢楼主分享，学习中

tony199

这个以后应该会用到，先收藏一下，谢谢！

kzhongw

我想请教个问题，在VBA中执行如下语句报错是什么原因？下面的SQL语句是没有错的，因为我执行语句输出后还放在了SQL SERVER里执行过，都可以通过，不知道为什么在EXCEL里不能通过，
能帮助看下么？
Sub 按钮1_Click()
    Set conn = CreateObject("adodb.connection")
  Dim sql  As String
    conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName  'ThisWorkbook.FullName当前工作簿的名字   ActiveSheet.Name当前工作表的名字
    sql = "DECLARE @cmdText    VARCHAR(8000); " _
    & "DECLARE @tmpSql        VARCHAR(8000);  " _
    & "SET @cmdText = 'SELECT CONVERT(VARCHAR(10), 产品编码, 120) AS 产品编码,' + CHAR(10); " _
    & "SELECT @cmdText = @cmdText + ' CASE 业务类型   WHEN ''' + 业务类型 + ''' THEN SUM(数量) ELSE 0 END AS ''' + 业务类型+ ''',' + CHAR(10) " _
    & "FROM (SELECT DISTINCT 业务类型 FROM (select 客户名称,产品编码,数量, CONVERT(varchar(100), 日期,110)+业务类型 as 业务类型 from 数据库) as 数据库 ) T " _
    & "SET @cmdText = LEFT(@cmdText, LEN(@cmdText) -2) " _
    & "SET @cmdText = @cmdText + ' FROM (select 客户名称,产品编码,数量, CONVERT(varchar(100), 日期,110)+业务类型 as 业务类型 from 数据库) as 数据库     GROUP BY 产品编码, 业务类型 ';  " _
    & "SET @tmpSql ='SELECT 产品编码,' + CHAR(10);  " _
    & "SELECT @tmpSql = @tmpSql + ' ISNULL(SUM(' + 业务类型  + '), 0) AS ''' + 业务类型  + ''','  + CHAR(10)" _
    & "FROM  (SELECT DISTINCT 业务类型 FROM (select 客户名称,产品编码,数量, CONVERT(varchar(100), 日期,110)+业务类型 as 业务类型 from 数据库) as 数据库 ) T  " _
    & "SET @tmpSql = LEFT(@tmpSql, LEN(@tmpSql) -2) + ' FROM (' + CHAR(10);   "
    Cells(1, 1) = sql
    [c1].CopyFromRecordset conn.Execute(sql)
    conn.Close
End Sub

opiona

SQL Server和Excel的SQL语句有差别
所以可能SQL Server中的再Excel不能用！