用vba 如何处理当前目录（包括子文件夹）中特定后缀的文件

wtujcf123 · 发表于 2021-3-14 14:55

本帖最后由 wtujcf123 于 2021-3-15 23:15 编辑

各位老师好，我在网上找到了这代码，这个代码可以处理当前当前目录（包括子文件夹）中的所有文件，但不能筛选出特定后缀名的文件进行处理，请问该如何修改代码呢，谢谢各位老师帮忙，我自己测试了许久，也不知道该怎么弄。

Sub 批量处理文件及子目录()
Dim startfolder As String
startfolder = "D:\新建文件夹" '指定文件夹
Set folderlist = CreateObject("scripting.dictionary")
Set filelist = CreateObject("scripting.dictionary")
i = 1
folderlist.Add startfolder, ""
Do While folderlist.count > 0
For Each FolderName In folderlist.keys
fname = Dir(FolderName, vbDirectory)
Do While fname <> ""
If fname <> ".." And fname <> "." Then
If GetAttr(FolderName & fname) And vbDirectory Then
folderlist.Add FolderName & fname & "", ""
Else
Documents.Open FileName:=FolderName & fname '打开文件
ActiveDocument.Save '保存文件
ActiveDocument.Close '关闭文件
End If
End If
fname = Dir
Loop
folderlist.Remove (FolderName)
Next
Loop
MsgBox "完成"
End Sub

复制代码

3190496160 · 发表于 2021-3-14 15:57

判断一下，这个变量的后缀即可
fname

wtujcf123 · 发表于 2021-3-14 16:03

本帖最后由 wtujcf123 于 2021-3-14 16:20 编辑

3190496160 发表于 2021-3-14 15:57
判断一下，这个变量的后缀即可
fname

老师，能帮写一下吗？实在不知道怎么写

wdpfox · 发表于 2021-3-15 10:56

感谢分享，论坛因你而精彩！

藏起来的小尾巴,不让你看!

liulang0808 · 发表于 2021-3-15 12:09

Sub 批量处理文件及子目录()

Dim startfolder As String
startfolder = "D:\新建文件夹" '指定文件夹
Set folderlist = CreateObject("scripting.dictionary")
Set filelist = CreateObject("scripting.dictionary")
i = 1
kzm = ".doc"
folderlist.Add startfolder, ""
Do While folderlist.Count > 0
For Each FolderName In folderlist.keys
      fname = Dir(FolderName, vbDirectory)
      Do While fname <> ""
         If fname <> ".." And fname <> "." Then
            If GetAttr(FolderName & fname) And vbDirectory Then
                  folderlist.Add FolderName & fname & "", ""
            Else
                  If LCase(Right(fname, Len(kzm))) = kzm Then
                  Documents.Open Filename:=FolderName & fname '打开文件
                  ActiveDocument.Save '保存文件
                  ActiveDocument.Close '关闭文件
                  End If
            End If
         End If
         fname = Dir
      Loop
      folderlist.Remove (FolderName)
Next
Loop

MsgBox "完成"

End Sub
看看是否合适吧

wtujcf123 · 发表于 2021-3-15 18:48

liulang0808 发表于 2021-3-15 12:09
Sub 批量处理文件及子目录()

Dim startfolder As String

谢谢版主，不知道是不是我原先的程序有问题，经测试，如果.kzm = ".doc"不能找到文件，提示这一行代码有问题。If GetAttr(FolderName & fname) And vbDirectory Then

但如果是.kzm = ".docx"，则可以找到一个文件，但随后也会提示和上面一样的问题，是不是这个程序，现在不能找到子目录里的文件呢？

我的D:\新建文件夹\里有一个.docx 的文件，且子目录里也有一个.docx的文件。

劳烦版主再费点心了。

liulang0808 · 发表于 2021-3-15 20:05

wtujcf123 发表于 2021-3-15 18:48
谢谢版主，不知道是不是我原先的程序有问题，经测试，如果.kzm = ".doc"不能找到文件，提示这一行代码有 ...

folderlist.Add FolderName & fname & "\", ""
代码里文件路径分隔符没有显示处理，这次看看吧

wtujcf123 · 发表于 2021-3-15 21:10

本帖最后由 wtujcf123 于 2021-3-15 22:23 编辑

liulang0808 发表于 2021-3-15 20:05
folderlist.Add FolderName & fname & "\", ""
代码里文件路径分隔符没有显示处理，这次看看吧

谢谢版主，经测试已经可以了。完整的代码就不贴了，"\"会被吞。提示一下：startfolder 里的路径也还有一个"\"

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

[已解决] 用vba 如何处理当前目录（包括子文件夹）中特定后缀的文件

评分

点评