如何在多个Excel文件中查询信息

Ncj123

如何在多个Excel文件中查询信息，如附件。请教高手们，谢谢了！

sdytsxd991122

用SQL循环查询

Ncj123

sdytsxd991122 发表于 2024-8-27 10:07
用SQL循环查询

请问高人，如何操作？

vleexhya

实际工作中，资产表可以搞在一个表上吗？增加一列“办公室”以区分是哪个办公室的资产

清风竹-

请看附件。

ykcbf1100

用工作表事件，[e2]单元格如果为空，则列出全部数据；[e2]单元格如果不为空，则列出符合条件的数据

ykcbf1100

参与一下。。。

1. Private Sub Worksheet_Change(ByVal T As Range)
   
2.     Application.EnableEvents = False
   
3.     Application.ScreenUpdating = False
   
4.     If T.Address = "$E$2" Then
   
5.         Set fso = CreateObject("Scripting.FileSystemObject")
   
6.         p = ThisWorkbook.Path & ""
   
7.         xm = T.Value
   
8.         ReDim brr(1 To 10000, 1 To 6)
   
9.         For Each f In fso.GetFolder(p).Files
   
10.             If LCase(f.Name) Like "*.xls*" Then
    
11.                 If InStr(f, "~$") = 0 Then
    
12.                     If InStr(f, ThisWorkbook.Name) = 0 Then
    
13.                         Set wb = Workbooks.Open(f, 0)
    
14.                         arr = wb.Sheets(1).UsedRange
    
15.                         wb.Close 0
    
16.                         ft = 0
    
17.                         For i = 3 To UBound(arr)
    
18.                             s = arr(i, 5)
    
19.                             If xm = Empty Then
    
20.                                 ft = 1
    
21.                             ElseIf s = xm Then
    
22.                                 ft = 1
    
23.                             End If
    
24.                             If ft = 1 Then
    
25.                                 m = m + 1
    
26.                                 brr(m, 1) = m
    
27.                                 For j = 2 To UBound(arr, 2)
    
28.                                     brr(m, j) = arr(i, j)
    
29.                                 Next
    
30.                             End If
    
31.                         Next
    
32.                     End If
    
33.                 End If
    
34.             End If
    
35.         Next
    
36.         Me.UsedRange.Offset(3).ClearContents
    
37.         Me.[a4].Resize(m, 6) = brr
    
38.     End If
    
39.     Application.EnableEvents = True
    
40.     Application.ScreenUpdating = True
    
41. End Sub
    

复制代码

sdytsxd991122

Ncj123 发表于 2024-8-27 10:11
请问高人，如何操作？

Ncj123

清风竹- 发表于 2024-8-27 10:27
请看附件。

感谢高手！测试成功！

Ncj123

ykcbf1100 发表于 2024-8-27 10:43
用工作表事件，[e2]单元格如果为空，则列出全部数据；[e2]单元格如果不为空，则列出符合条件的数据

感谢高手！