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

yf_992258

看看是否你想要的

HB2005SCN

太感谢了，正是我所需要的，把所有的文件放在同一个子目录下，然后将数据提取出来，我再试试多些的文件，辛苦了，以后还请多指教。

lansky168

提取的数字，不是全部，需要提取的又好像不对。

HB2005SCN

验证了一下，提取的数据是正确的，楼上的朋友如发现有错误，可否告知一下，再次感谢yf老师

lujun_2015

Private Sub CommandButton1_Click()
    Dim fs
    Dim mypath As String
    Dim theSh As Object
    Dim theFolder As Object
    On Error Resume Next
     Range("A2:B65536").ClearContents '表中的数据清除
    '设置搜索目录
   Set theSh = CreateObject("shell.application")
    Set theFolder = theSh.BrowseForFolder(0, "", 0, "")
    If Not theFolder Is Nothing Then
        mypath = theFolder.Items.Item.Path
    End If
   '//////////////搜索开始//////////////
   Set fs = Application.FileSearch
    With fs
        .NewSearch
        .SearchSubFolders = True          ''搜索子目录
        .LookIn = mypath                  '搜索路径
        .Filename = "*.*"                 '搜索文件的种类
        If .Execute(SortBy:=msoSortByFileName) > 0 Then
            c = .FoundFiles.Count         '统计搜索到的文件个数
            MsgBox "在这里找到" & .FoundFiles.Count & _
            "文件"                  '输出搜索到的文件个数
            For i = 1 To c
            strTemp = .FoundFiles(i)      '设置临时文件
            n = InStrRev(strTemp, "\")    '获取文件路径长度（不包括文件名)
            strfilename = Replace(strTemp, Left(strTemp, n), "")             '获取文件名及扩展名
            Cells(i + 1, 1) = Left(strfilename, Len(strfilename) - 0)        '输出格式：文件名＋扩展名
            Cells(i + 1, 2) = Left(strTemp, Len(strTemp) - Len(strfilename)) '输出格式：文件路径
            Next
        End If
    End With
    Set fs = Nothing
End Sub
希望能帮到你

szqhb

原帖由 lujun_2015 于 2010-11-13 12:32 发表
Private Sub CommandButton1_Click()
    Dim fs
    Dim mypath As String
    Dim theSh As Object
    Dim theFolder As Object
    On Error Resume Next
     Range("A2:B65536").ClearContents '表中的数 ...

请教lujun_2015，我若用你这段代码遍历选定文件夹下的Excel文档，统一在B2单元格输入“中国”两字，需要修改哪段代码？（或者说头尾哪些部分是公共部分？）请指教！！！！

yb010

不能用Application.FileSearch了。很是让我费周折。终于又找到了！

lujun_2015

那你就用 Replace  代替下就OK了咯

lujun_2015

MyBook1.1工具 的功能

1.（文件查找）“功能已完成“
选择相关目录下的文件并 输出文件名 和 文件的相对路径….
   
2.（相关数据修改）“功能未完成“
点击选择相关目录下的文件，里面的文件夹都有跟 “数据模样.xls“ 相同的”.xls“ 文件 选择完毕后 点击OK 就完成“数据模样.xls“里面的数据修改。 修改的数据都在“数据模样.xls“的Sheet2工作表里面，A列不是整数的往上取整，并在相关的B,C,D列修改相关数据 B列为获取 当前时间，C列 为全部改成 提交，D列 为全部改成BS程。

3.（光标设置在A1）“功能未完成“
    点击选择相关目录下的文件，选择完毕后点击OK，实现在该文件的ThisWorkbook下面写上一下代码“
Sub workbook_open()
Sheet1.Activate
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)

    Application.EnableEvents = False
    Application.Goto Sh.Range("A1")
    Application.EnableEvents = True
   
End Sub “
实现光标定在A1


希望各位高手指教一下 谢谢

onthetrip

原帖由 zldccmx 于 2008-9-21 18:18 发表
Sub Test() '使用双字典，旨在提高速度    Dim MyName, Dic, Did, I, T, F, TT, MyFileName    T = Time    Set Dic = CreateObject("Scripting.Dictionary") &n ...

一直纳闷2007没有了filesearch怎么来操作多层次的文件夹的问题。
看了半天才基本理清思路，老朽老师几个循环套用得登峰造极，望尘莫及。
叹服。。。。。。。