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

lmj8260

变么好的贴，加关注。随时学习

news30

收藏，谢谢版主分享。好好学sql

opiona

最近发现一种按照指定顺序排序的方法:

1. SQL = "select 城市,门店名称,销售 from [明细$] order by instr('广州,北京,上海,深圳',城市) Asc"

复制代码

1. SQL = "select 城市,门店名称,销售 from [明细$] order by instr('" & Join(Application.Transpose([m2:m5])) & "',城市) asc"

复制代码

Instr('你指定的顺序',指定的字段名)
这样找到的数据就会按照广州,北京,上海,深圳先后顺序进行排序
SQL按列排序采用区域引用，非手写.rar (19.04 KB, 下载次数: 560)

2013-6-12 13:47 上传

点击文件名下载附件

njmxn

Book1.rar (15.6 KB, 下载次数: 51)

2013-6-19 11:42 上传

点击文件名下载附件

大师，在使用GET_SQL这个自定义函数查找数据时，如果标题行下面的的内容是用N/A表示，那么这一列的数据整体都查询不到
如附件，如果我想查找STD的数据，Analyte Concentration (ng/mL)这一列的数据就不会出现，请问大师这是什么原因

opiona

Book1.rar (15.68 KB, 下载次数: 150)

2013-6-19 12:13 上传

点击文件名下载附件

;imex=1 ---数字和字符混排的，加一个这个，前面有介绍
你查找是包含[STD]的，上半部分不包含，当然出不来了
具体见附件！

njmxn

New Folder.rar (16.25 KB, 下载次数: 46)

2013-6-19 13:55 上传

点击文件名下载附件

真是太谢谢大师了，解决了我的大问题了，因为刚刚接触sql语句，有好多都不懂，所以还想向大师请教个问题，我是在VB中写的sql语句查询，当运行玩程序后，手动关闭excel工作薄，就会出现如下图所示的提示

另外第一次运行上述附近中程序时，会出现如下图说是的提示

大师，这些要怎么解决呢，这些问题在vba里是不会出现的，可是运用到VB中就会出现，请大师帮帮忙，谢谢……

wenvay

1. Set cnn = CreateObject("adodb.connection")
   
2. myPath = ThisWorkbook.Path & ""
   
3. MyFile = ThisWorkbook.Name
   
4. '以本EXCEL文件作为一个数据库  cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & myPath & MyFile
   
5. '筛选ALLDATA工作表 REMARK字段为空的数据
   
6.     SQL = "select * from [AllData$a2:s] where Remark is null" '筛选条件Remark 为空   
   
7.     Set wb = GetObject(myPath & MyFile)
   
8.     '将数据复制到工作表REMARKS
   
9.     With wb
   
10.      .Worksheets("remarks").Range("a1").CurrentRegion.Offset(2).ClearContents
    
11.      .Worksheets("remarks").Range("a3").CopyFromRecordset cnn.Execute(SQL)
    
12.      .Worksheets("remarks").Activate
    
13.      .Worksheets("remarks").Range("a3").Select
    
14.     End With  
    
15.     cnn.Close   
    
16. Set cnn = Nothing

复制代码

以EXCEL2007的xlsm文件的AllData工作表为数据库,出现几个问题，清楚的可以帮忙解答一下：
1.工作表AllData超过65535行时，CopyFromRecordset或者cnn.Execute(SQL)没有将数据全部复制到，只能复制到65535行。
2.SQL = "select * from [AllData$a2:s] where Remark is null"  单元格为NULL的并没有完全select到。
3.SQL = "select * from [AllData$a2:s] where Remark is not null"  not null 这个筛选条件并不起作用。
是否Connection strings  有问题或是数据有问题？

opiona

在vb6.0中我是这样导出SQL查询的：

1. 'On Error Resume Next   '错误自动执行下一行
   
2. 'Application.ScreenUpdating = False   '关闭屏幕刷新
   
3. Dim xlApp As Excel.Application
   
4. Dim xlBook As Excel.Workbook
   
5. Dim xlSheet As Excel.Worksheet
   
6. 
   
7.    Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
   
8.    Set xlBook = xlApp.Workbooks.Add
   
9.    Set xlSheet = xlBook.Worksheets(1) '设置活动工作表
   
10. 
    
11. strSQL = Text1.Text
    
12. rs.Open strSQL, Conn, 3, 3
    
13. a = rs.RecordCount
    
14. xlSheet.Range("a2").CopyFromRecordset rs  '复制RS的全部数据到表中指定开始单元格
    
15.     For i = 0 To rs.Fields.Count - 1       '取第一行作标题
    
16.         xlSheet.Cells(1, i + 1) = rs.Fields(i).Name
    
17.     Next i
    
18. rs.Close
    
19. MsgBox "自定义台账已经生成，见Excel表！", 32, "北极狐温馨提示!"
    
20. xlApp.Visible = True '设置EXCEL对象可见（或不可见）
    
21. 'xlSheet.PrintOut '打印工作表
    
22. 'xlBook.Close (True) '关闭工作簿
    
23. Set xlApp = Nothing '交还控制给Excel
    
24. 'xlApp.Quit '结束EXCEL对象

复制代码

SQL = "select * from [AllData$a2:s] where Remark is null or len(Remark)=0"  
SQL = "select * from [AllData$a2:s] where len(Remark)>0

opiona

如果是打开一个存在的Excel
可以将：Set xlBook = xlApp.Workbooks.Add
换成：Set xlBook = xlApp.Workbooks.open(完整路径)

查询结果不完整，也许是字符与数字混排的结果
加上一个： imex=1  试试！

wenvay

opiona 发表于 2013-6-19 17:09
如果是打开一个存在的Excel
可以将：Set xlBook = xlApp.Workbooks.Add
换成：Set xlBook = xlApp.Workbo ...

opiona,谢谢。
有没有尝试过，数据超过10W的select呢？
我尝试了，最多也就能把6W多，也就是以前2003的总行数筛选出来

.Worksheets(AllData).Range("B3:B" & m).NumberFormatLocal = "[$-409]mmm-yy;@"
将B列的数据改为日期格式的代码似乎也不行
加了 imex=1  后 出错：找不到可安装的isam