汇总分表里指定工作表名的数据，拜托啦！

daizhiwu

在汇总表里希望导入分表文件夹里 工作薄里名字为“销售“ 的表B-D列，并且以工作薄名字作为第一列，自己捣鼓了半天，很慢而且只导出一天的数据。谢谢各位大侠

不知道为什么

多簿汇总，论坛实列很多哎

daizhiwu

没找到啊，在线等。。。。。

不知道为什么

如图

不知道为什么

daizhiwu 发表于 2019-1-22 10:52
没找到啊，在线等。。。。。

               

daizhiwu

谢谢大侠写的，附件是原来的，总是不行，可有人帮我看看么

lsc900707

Sub gj23w98()
    Dim brr(1 To 99999, 1 To 4)
    Application.ScreenUpdating = False
    p = ThisWorkbook.Path & "\分表\"
    f = Dir(p & "*.xls*")
    Do While Len(f)
        If f <> ThisWorkbook.Name Then
            Set wb = Workbooks.Open(p & f)
            With wb.Sheets("销售")
                arr = .[a1].CurrentRegion
                For i = 2 To UBound(arr)
                    m = m + 1
                    brr(m, 1) = Split(wb.Name, ".")(0)
                    For j = 2 To 4
                        brr(m, j) = arr(i, j)
                    Next
                Next
            End With
            wb.Close False
        End If
        f = Dir
    Loop
    If m Then
        [a10].CurrentRegion.Offset(1).Clear
        [a11].Resize(m, 4) = brr
        [a11].Resize(m, 4).Borders.LineStyle = 1
    End If
    Application.ScreenUpdating = True
End Sub

lsc900707

daizhiwu 发表于 2019-1-22 11:22
谢谢大侠写的，附件是原来的，总是不行，可有人帮我看看么

没有“销售”这个工作表，而且不是多表，所以出错！
附件里没有数据！

不知道为什么

daizhiwu 发表于 2019-1-22 11:22
谢谢大侠写的，附件是原来的，总是不行，可有人帮我看看么

你原来的附件代码给你修改了下，可以用了

daizhiwu

不知道为什么 发表于 2019-1-22 11:40
你原来的附件代码给你修改了下，可以用了

谢谢谢谢