[已解决]跨文件夹多工作薄统计

安全网

统计另外一个文件夹内的多个工作薄的内容，在固定的数据后面增加列修改那些参数代码

最佳答案

月排行榜 / 总排行榜

grf1973

2016-3-18 14:58

反正我这边运行没什么问题。

跳转到最佳答案楼层

grf1973

Sub 导入文件()
    Application.ScreenUpdating = False
    Dim wb As Workbook, Sht As Worksheet, xRng As Range
    arr = [a2:o2]   
    ReDim brr(1 To 100, 1 To UBound(arr, 2))
    r = [a65536].End(3).Row + 1      '需要导入数据的起始行
    s = 0
    'nn = Val(Cells(r - 1, 1))     '已有数据的序号
    'On Error Resume Next
    pa = Split(ThisWorkbook.Path, "\")
    For i = 0 To UBound(pa) - 1
        XPath = XPath & pa(i) & "\"
    Next
    zdir XPath         '递归获得本文件上一级文件夹内所有子文件夹内文件名，放入数组w    Application.ScreenUpdating = False
    Set d = CreateObject("scripting.dictionary")
    For i = 1 To s
        fn = w(i)            '要打开的文件名
        If InStr(fn, ThisWorkbook.Name) = 0 And fn Like "*.xls*" Then        '如果和本文件名不同，那么打开文件，开始导入
            Set wb = Workbooks.Open(fn)
            Set Sht = wb.Worksheets(1)
            xrr = Split(fn, "\")
            yf = xrr(UBound(xrr) - 1)      '月份
            dq = xrr(UBound(xrr) - 2)       '地区
            x = yf & dq  '月份+地区作为key，用于汇总分类
            If Not d.exists(x) Then
                n = n + 1
                d(x) = n
                brr(n, 1) = n: brr(n, 2) = yf: brr(n, 3) = dq
            End If
            p = d(x)
            For j = 4 To UBound(arr, 2)
                x = arr(1, j)     '要查找的内容
                Set xRng = Sht.UsedRange.Find(x, lookat:=xlWhole)
                If Not xRng Is Nothing Then
                    If j > 9 Then brr(p, j) = brr(p, j) + xRng.Offset(0, 1) Else brr(p, j) = brr(p, j) + xRng.Offset(1, 0)
                End If
            Next
            wb.Close False
        End If
    Next
    Set Sht = Nothing
    If n > 0 Then Cells(r, 1).Resize(n, UBound(brr, 2)) = brr
    Application.ScreenUpdating = True
End Sub

grf1973

一个是列数增加了，在定义 arr = [a2:o2]   时改一下
另一个是zdir是找当前文件夹下所有子文件夹内的文件，由于此附件汇总表在单独文件夹内，所以要找到上一级文件夹，作为zdir的参数。

安全网

grf1973 发表于 2016-3-18 11:04
一个是列数增加了，在定义 arr = [a2:o2]   时改一下
另一个是zdir是找当前文件夹下所有子文件夹内的文件， ...

如果统计表在本地磁盘E盘的的文件夹内，数据在本地磁盘F盘内“F:\2016年\数据表,这样的该怎么设置了

grf1973

xpath=" F:\2016年\数据表\"
zdir xpath

安全网

grf1973 发表于 2016-3-18 11:28
xpath=" F:\2016年\数据表\"
zdir xpath

还有这个行列距改了出现这样的错误

安全网

grf1973 发表于 2016-3-18 11:28
xpath=" F:\2016年\数据表\"
zdir xpath

地址是这样设置的吗？设置了就运行错误

grf1973

干脆界面选择文件夹吧。

安全网

grf1973 发表于 2016-3-18 13:24
干脆界面选择文件夹吧。

这个地方如果要改成65536就运行错误

grf1973

需要搞那么大吗？还是溢出？