如何根据条件提取汇总表中的数据

Benfyhu

各位老师，我想从汇总表中根据条件提取数据，应该如何操作，谢谢各位！

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.4.30
   
2.     Dim arr, brr
   
3.     Application.ScreenUpdating = False
   
4.     arr = Sheet3.Range("a1").CurrentRegion
   
5.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2) - 1)
   
6.     b = [{1,2,3,5,6,7,8,9,10}]
   
7.     With Sheets("产能查询")
   
8.         .[a4:i10000] = ""
   
9.         rq1 = DateValue(.[g2])
   
10.         rq2 = DateValue(.[i2])
    
11.         xm = .[b2]
    
12.         For i = 2 To UBound(arr)
    
13.             rq = DateValue(arr(i, 5))
    
14.             If rq >= rq1 And rq <= rq2 Then
    
15.                 If arr(i, 4) = xm Then
    
16.                     m = m + 1
    
17.                     brr(m, 1) = m
    
18.                     For j = 2 To UBound(b)
    
19.                         brr(m, j) = arr(i, b(j))
    
20.                     Next
    
21.                 End If
    
22.             End If
    
23.         Next
    
24.         .Columns(5).NumberFormatLocal = "0"
    
25.         .[a4].Resize(m, UBound(arr, 2) - 1) = brr
    
26.     End With
    
27.     Application.ScreenUpdating = True
    
28.     MsgBox "OK！"
    
29. End Sub
    

复制代码

limonet

关键字：where

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("Adodb.Connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
    StrSQL = "Select 部门,机台,日期,单号,作业内容,生产数量,物料状况,备注 From [数据汇总$A:J] Where 姓名='" & [B2] & "' And 日期 Between #" & [G2] & "# And #" & [i2] & "#"
    Range("B4").CopyFromRecordset Cn.Execute(StrSQL)
End Sub

Benfyhu

ykcbf1100 发表于 2024-4-30 12:09
附件供参考。。。

Benfyhu

limonet 发表于 2024-4-30 14:45
关键字：where

我的运行不知为什么会错

limonet

Benfyhu 发表于 2024-4-30 17:29
我的运行不知为什么会错

也许是WPS，也许是2003

Benfyhu

limonet 发表于 2024-4-30 17:34
也许是WPS，也许是2003

我的是2016的

limonet

Benfyhu 发表于 2024-4-30 17:38
我的是2016的

哪里提错？