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

yf_992258 · 发表于 2010-9-25 13:35

看看是否你想要的

HB2005SCN · 发表于 2010-9-25 17:39

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

lansky168 · 发表于 2010-9-25 18:10

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

HB2005SCN · 发表于 2010-9-26 14:44

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

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 '表中的数据清除
'设置搜索目录
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 · 发表于 2010-11-13 19:45

原帖由 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 · 发表于 2010-11-17 22:27

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

lujun_2015 · 发表于 2010-11-18 14:31

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

lujun_2015 · 发表于 2010-11-18 15:04

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 · 发表于 2010-11-22 20:53

原帖由 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怎么来操作多层次的文件夹的问题。
看了半天才基本理清思路，老朽老师几个循环套用得登峰造极，望尘莫及。
叹服。。。。。。。

		自动登录	找回密码
密码			免费注册

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