求大神帮助，如何把同一文件夹下所有表格中特定的一行提取到新表格中

陆地鱼仙人掌 · 发表于 2019-1-6 23:10

LMY123 发表于 2019-1-6 22:55
Sub 多行_多列_多条件_查询_ADO法_同夹_多薄_指定表_参考()
时间 = Timer
Range("A9:I65536"). ...

代码运行后没有返回任何内容，是我查询条件放的位置不对？还是返回字段放的不对？
C:\Users\Administrator\Desktop\QQ图片20190106230712.png

陆地鱼仙人掌 · 发表于 2019-1-6 23:11

LMY123 发表于 2019-1-6 22:55
Sub 多行_多列_多条件_查询_ADO法_同夹_多薄_指定表_参考()
时间 = Timer
Range("A9:I65536"). ...

代码运行后没有返回任何内容，怎么调整？

陆地鱼仙人掌 · 发表于 2019-1-6 23:21

LMY123 发表于 2019-1-6 22:55
Sub 多行_多列_多条件_查询_ADO法_同夹_多薄_指定表_参考()
时间 = Timer
Range("A9:I65536"). ...

我是用2010版的，运行代码之后没有返回任何内容。逐句运行的时候发现sql那段基本都被跳过过了。

LMY123 · 发表于 2019-1-7 11:49

陆地鱼仙人掌发表于 2019-1-6 23:21
我是用2010版的，运行代码之后没有返回任何内容。逐句运行的时候发现sql那段基本都被跳过过了。

上传你出错的附件吧

陆地鱼仙人掌 · 发表于 2019-1-7 21:00

附件压缩包

陆地鱼仙人掌 · 发表于 2019-1-7 21:00

LMY123 发表于 2019-1-7 11:49
上传你出错的附件吧

在15楼上传了。帮忙看看，非常感谢

LMY123 · 发表于 2019-1-7 21:37

陆地鱼仙人掌发表于 2019-1-7 21:00
在15楼上传了。帮忙看看，非常感谢

提取查询满足条件的数据.rar (61.21 KB, 下载次数: 43)

陆地鱼仙人掌 · 发表于 2019-1-7 22:07

LMY123 发表于 2019-1-7 21:37

小白一个，怎么添加字段？循环怎么添加？非常感谢

陆地鱼仙人掌 · 发表于 2019-1-7 23:54

LMY123 发表于 2019-1-7 21:37

我在字段名那加了一个for i = 2 to 12的循环了，但是运行后还是只返回地区号这个字段的数

If Err.Number = 0 Then
[color=Red] For i = 2 To 12[/color]
If rst.Fields(0).Name = Cells(8, i) Then
' 字段名自己再添加一下，如果一个一个添加嫌麻烦，就循环一下
Sql = "select '" & Replace(外薄, ".xls", "") & "'," & Cells(8, i) & " from [" & 外表 & "] where" & 条件组合
Set rst = 连接.Execute(Sql)
If Not rst.EOF Then Range("a65536").End(3).Offset(1).CopyFromRecordset rst
End If
Next

复制代码

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

[求助] 求大神帮助，如何把同一文件夹下所有表格中特定的一行提取到新表格中