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

lmj8260 · 发表于 2013-6-12 10:57

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

news30 · 发表于 2013-6-12 11:31

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

opiona · 发表于 2013-6-12 13:47

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

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

复制代码

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

复制代码

Instr('你指定的顺序',指定的字段名)
这样找到的数据就会按照广州,北京,上海,深圳先后顺序进行排序

SQL按列排序采用区域引用，非手写.rar (19.04 KB, 下载次数: 558)

njmxn · 发表于 2013-6-19 11:43

本帖最后由 njmxn 于 2013-6-19 11:44 编辑

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

opiona · 发表于 2013-6-19 12:15

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

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

njmxn · 发表于 2013-6-19 13:58

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

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

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

wenvay · 发表于 2013-6-19 15:09

本帖最后由 wenvay 于 2013-6-19 15:16 编辑

Set cnn = CreateObject("adodb.connection")
myPath = ThisWorkbook.Path & ""
MyFile = ThisWorkbook.Name
'以本EXCEL文件作为一个数据库 cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & myPath & MyFile
'筛选ALLDATA工作表 REMARK字段为空的数据
SQL = "select * from [AllData$a2:s] where Remark is null" '筛选条件Remark 为空
Set wb = GetObject(myPath & MyFile)
'将数据复制到工作表REMARKS
With wb
.Worksheets("remarks").Range("a1").CurrentRegion.Offset(2).ClearContents
.Worksheets("remarks").Range("a3").CopyFromRecordset cnn.Execute(SQL)
.Worksheets("remarks").Activate
.Worksheets("remarks").Range("a3").Select
End With
cnn.Close
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 · 发表于 2013-6-19 17:07

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

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

本帖最后由 opiona 于 2013-6-19 17:11 编辑

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

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

wenvay · 发表于 2013-6-20 09:13

本帖最后由 wenvay 于 2013-6-20 10:03 编辑

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

		自动登录	找回密码
密码			免费注册

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