批量提取多个文件、多个sheet的指定单元格内容，

倾听冷暖丿

求助各位大神帮忙，批量提取多个文件、多个sheet的指定单元格内容，  

     1、通过在P2、R2、指定sheet名称，提取对应sheet内的数据。
     2、根据P3-P8、R3-R8的指定单元格，提取对应数据

limonet

对小屏用户十分不友好。

liulang0808

Sub myFind2()
    Set fso = CreateObject("scripting.filesystemobject")
    brr = [o1].CurrentRegion
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    Set fs = fso.getfolder(ThisWorkbook.Path).Files
    arr = [a1].Resize(fs.Count + 3, 13)
    r = 2
    For Each f In fs
        If InStr(f.Name, ThisWorkbook.Name) = 0 Then
            With Workbooks.Open(f)
                b1 = False
                b5 = False
                For Each sh In .Sheets
                    If sh.Name = brr(2, 2) Then
                        b1 = True
                    Else
                        If sh.Name = brr(2, 4) Then
                            b5 = True
                        End If
                    End If
                Next sh
                If b1 Or b5 Then
                    r = r + 1
                    arr(r, 1) = f.Name
                    For j = 3 To UBound(brr)
                        If b1 = True Then
                            If Len(brr(j, 2)) > 0 Then arr(r, j - 1) = .Sheets(brr(2, 2)).Range(brr(j, 2))
                        End If
                        If b5 = True Then
                            If Len(brr(j, 4)) > 0 Then arr(r, j + 5) = .Sheets(brr(2, 4)).Range(brr(j, 4))
                        End If
                    Next j
                End If
                .Close False
            End With
        End If
    Next f
    ThisWorkbook.Sheets(1).[a1].Resize(r, 13) = arr
    Application.EnableEvents = True
    Application.DisplayAlerts = True
End Sub

liulang0808

楼主是运营商的？

倾听冷暖丿

liulang0808 发表于 2024-7-2 10:23
楼主是运营商的？

这都能发现

liulang0808

倾听冷暖丿 发表于 2024-7-2 10:36
这都能发现

数据处理多了，能了解一些

yes_cn

为了方便处理，我擅自将文件名改成英文单子母

mryys2000

果然是大数据， 数据也会看出平时的生活小轨迹。

mryys2000

那这个文件能提取不同文件夹里的多个文件里的单元格内容吗？

jjmysjg

yes_cn 发表于 2024-7-2 11:17
为了方便处理，我擅自将文件名改成英文单子母

1333333333
1555555555
这个号放了吗