求VBA: 满足日期+时间的SQL查询

guuxy

1、“查询”工作簿_“测试”表中A、B列是自定义录入的日期，和时间。时间间隔2分钟。
2、“查询”工作簿_“测试”表中，查询按钮：遍历其他表格的[b14:d]与A、B列联合查询，
     取出满足[b14:d]中记录时期=A列（日期）并且满足记录间隔=B列（时间）的全部温度值。
3、将满足条件的全部温度值，从_“测试”表中C3写入，
4、C2右方向，写入表名。

问题：现在查询结果不对，
1、我觉得是SQL查询中的： a.f1=b.f1 where a.f2=b.f2  出问题，
2、原表的EXCEL日期和时间格式，都已在“单元格设置中”调整了日期和时间格式

求教：如何使查询结果满足“记录时期=A列（日期）并且满足记录间隔=B列（时间）的全部温度值”

zhaogang1960

这个题目比较时间需要使用format函数，速度很慢，下面使用ADO+字典法速度很快：
Sub Macro1()
    Dim Fso As Object, File As Object, cnn As Object, rs As Object, SQL$, m&, Ak&, ary, arr, brr(), i&, d As Object
    Set d = CreateObject("scripting.dictionary")
    Application.ScreenUpdating = False
    ary = Range("A3:B" & Range("A65536").End(xlUp).Row)
    Set cnn = CreateObject("adodb.connection")
    Set Fso = CreateObject("Scripting.FileSystemObject")
    ReDim brr(0 To UBound(ary), 1 To Fso.GetFolder(ThisWorkbook.Path).Files.Count - 1)
    Columns("C:E").ClearContents
    For Each File In Fso.GetFolder(ThisWorkbook.Path).Files
        If File.Name Like "*.xls" And File.Name <> ThisWorkbook.Name Then
            m = m + 1
            Ak = Replace(File.Name, ".xls", "")
            If m = 1 Then cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;hdr=no';Data Source=" & File
                SQL = "select * from [Excel 8.0;hdr=no;Database=" & File & ";].[" & Ak & "$b14:d]"
            Set rs = cnn.Execute(SQL)
            arr = rs.GetRows
            For i = 0 To UBound(arr, 2)
                d(arr(0, i) & "|" & arr(1, i)) = arr(2, i)
            Next
            For i = 1 To UBound(ary)
                brr(i, m) = d(ary(i, 1) & "|" & Format(ary(i, 2), "h:mm:ss"))
            Next
            brr(0, m) = Replace(File.Name, ".xls", "")
        End If
    Next
    [c2].Resize(UBound(ary) + 1, m) = brr
    Set Fso = Nothing
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
    Application.ScreenUpdating = True
End Sub

guuxy

沉下去了，自己顶一下

opiona

1. ON a.f1=b.f1 and a.f2=b.f2

复制代码

guuxy

opiona 发表于 2016-4-17 19:53

”ON a.f1=b.f1 where a.f2=b.f2”  修改为"ON a.f1=b.f1 and a.f2=b.f2"
后自定义如下：



出现下面问题：

guuxy

我用MS Query 测试了一下
其中时间格式好像变了, 怎么调整?

日期可以匹配.但是时间不能匹配,造成上述的问题?
向3楼请教!!

opiona

时间字段定义为：hh：mm：ss
然后是：时间>=X1 and 时间<X2

zhaogang1960

请测试附件
查询值.rar (423.68 KB, 下载次数: 203)

2016-4-18 09:15 上传

点击文件名下载附件

guuxy

opiona 发表于 2016-4-18 08:09
时间字段定义为：hh：mm：ss
然后是：时间>=X1 and 时间

谢谢6楼的老师解答

我现在的问题是：
如何将“ON a.f1=b.f1 and a.f2=b.f2” 改为：
  条件1：【查询工作簿_测试表】中的日期 =  [100工作簿_100表]中的记录日期
  条件2：【查询工作簿_测试表】中的时间 =  [100工作簿_100表]中的记录间隔  
必须同时满足：条件1 + 条件2

guuxy

哇塞，大神来了，我来好好看下

原先的代码就是参考赵老师您的