求助大神文件夹内数据统计

xyl383578220

数据统计表中A列第三行起提取文件夹内其他文件的C4中的数据
最好是文件夹里多一个文件就自动生成一行

已提取过的文件不要再提取，未提取过的在下一行继续录入

按文件夹内添加文件的日期来排序

wxf841018

看看这样行不行

xyl383578220

wxf841018 发表于 2018-10-6 14:38
看看这样行不行

这个无法实现已添加过的文件不再提取，亲

wxf841018

xyl383578220 发表于 2018-10-7 07:31
这个无法实现已添加过的文件不再提取，亲

我把附件更新了一下，你再看看。

opiona

http://club.excelhome.net/thread-1409141-1-1.html

xyl383578220

wxf841018 发表于 2018-10-7 13:09
我把附件更新了一下，你再看看。

这个代码很好了，可以提取已提取过的数据，我没更改明白，我手里有一串代码已有的我没办法把你这个功能利用进去，没改好

Sub huizong()
Application.ScreenUpdating = False
ReDim arr(1 To 50000, 1 To 1), arr1(1 To 50000, 1 To 1), arr2(1 To 50000, 1 To 1), arr3(1 To 50000, 1 To 1), arr4(1 To 50000, 1 To 1), arr5(1 To 50000, 1 To 1)
    f = Dir(ThisWorkbook.Path & "\*.xls*")
    Do While f <> ""
        If f <> ThisWorkbook.Name Then
            Set wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\" & f, Password:="ph")
                n = n + 1
                arr(n, 1) = wb.Worksheets(1).[n409]
                arr1(n, 1) = wb.Worksheets(1).[m2]
                arr2(n, 1) = wb.Worksheets(1).[e5]
                arr3(n, 1) = wb.Worksheets(1).[v3]
                arr4(n, 1) = wb.Worksheets(1).[v4]
                arr5(n, 1) = wb.Worksheets(1).[v2]
        wb.Close False
        End If
    f = Dir
Loop
    Sheet1.[g12].Resize(n, 1) = arr
    Sheet1.[b12].Resize(n, 1) = arr1
    Sheet1.[c12].Resize(n, 1) = arr2
    Sheet1.[f12].Resize(n, 1) = arr3
    Sheet1.[e12].Resize(n, 1) = arr4
    Sheet1.[d12].Resize(n, 1) = arr5
End Sub

LMY123

常规法，同夹多薄不连续单元格

xyl383578220

LMY123 发表于 2018-10-8 10:00
常规法，同夹多薄不连续单元格

没听懂，我是菜鸟

wxf841018

xyl383578220 发表于 2018-10-8 07:55
这个代码很好了，可以提取已提取过的数据，我没更改明白，我手里有一串代码已有的我没办法把你这个功能利 ...

代码都是针对性的，改别人代码的话需要理解别人的思路才可以。有其他需求的话需要把完整的文档上传才行哦。

cjc209

LMY123 发表于 2018-10-8 10:00
常规法，同夹多薄不连续单元格

你能不能亲自来一段能解决的代码？