[求助]如何用VBA遍历指定目录下的所有子文件夹和文件

yf_992258

公式改下么就好了，先取D列“更新值”，如果有数据取D列，没数据取B列
=IF(VLOOKUP(A2,'C:\我的文档\桌面\数据表\[源数据.xlsx]Sheet1'!$A$2:$D$30,4,0)<>"",VLOOKUP(A2,'C:\我的文档\桌面\数据表\[源数据.xlsx]Sheet1'!$A$2:$D$30,4,0),VLOOKUP(A2,'C:\我的文档\桌面\数据表\[源数据.xlsx]Sheet1'!$A$2:$D$30,2,0))

turan21

非常好用的工具，谢谢！

zhua

原帖由 xyesterday 于 2010-7-6 22:49 发表
看这个可不可以.

若自定义条件1： 自己可以选择查询哪种类型的文件，可选择项。doc.xls.pdf.ppt.txt,.jpg.gif
条件2：文件名，包含某个字符的，可自己输入，

将结果写入到 listview空间中，请教下怎么写？

zengnibo

学习,路过

xiehuailian

非常感谢楼主以及所有回复的人。

好牛简历

点击开始
运行
输入CMD

tree /f >c:\cfileslist.txt
也可以，快速的生成一份清单，然后直接COPY到EXCEL即可

HB2005SCN

认真学习了各位老师的成果，感觉老朽先生及yf老师的作品十分有用，自己尝试将数据调用扩展为一个工作簿有多个工作表的状况，但是因为本人学疏才浅未能成功，可否请各位老师给予指教？多谢，顺祝中秋快乐！

HB2005SCN

附上尝试增加后的代码请各位纠正一下错误，多谢。
Sub ui()
Dim arr, i
Dim j As Integer
Dim wbk As Workbook
Application.ScreenUpdating = False
arr = Application.GetOpenFilename(filefilter:="excel文件,*.xls", MultiSelect:=True)
If Not IsArray(arr) Then Exit Sub

For i = 1 To UBound(arr)
    Set wbk = Workbooks.Open(arr(i))
   
    For j = 1 To wbk.Worksheets.Count
   
    With wbk.Sheets(j)
        erow = .[b65536].End(xlUp).Row
        .Range("b9:i" & erow).Copy
    End With
    With ThisWorkbook.Sheets(j)
        erow2 = .[d65536].End(xlUp).Row + 1
        .Range("a" & erow2) = Split(Dir(wbk.Name), ".")(0)
        .Range("b" & erow2) = wbk.Sheets(j).Range("a4").Text
        .Range("c" & erow2) = wbk.Sheets(j).Range("c5").Text
        .Range("d" & erow2).Insert Shift:=xlDown
    End With
   
    Next j
   
    wbk.Close
Next
Application.ScreenUpdating = True
End Sub

yf_992258

不明白下面代码的意图   
With wbk.Sheets(j)
        erow = .[b65536].End(xlUp).Row
        .Range("b9:i" & erow).Copy
End With
With ThisWorkbook.Sheets(j)这句话如果你选的文件多的话应该会出错，ThisWorkbook没有现成的那么多sheet给你输入。
你可以改为set ws=thisworkbook.sheets.add
with ws
.....

HB2005SCN

谢谢yf老师的指教，不知道我的问题是否表达清楚了，现上传附件，表1，2，3为源文件，每个工作簿内有数目不等的工作表，但表头格式一致，希望能通过代码遍历每个工作簿的所有工作表，达到“提取数据”这个文件的格式要求，因为先生的代码是用于每个工作簿均为一个工作表的情况，试着改了一下，由于水平有限，还是没有达到效果，故上传附件请yf老师及各位高人给予指教。
上传.rar (20.66 KB, 下载次数: 83)

2010-9-24 21:44 上传

点击文件名下载附件