vba获取当前目录所有工作薄名称

　　在Excel中使用VBA，难免会遇到查找当前工作薄的当前文件夹下，有多少个EXCEL文件，即有多少个工作薄，以便通过循环，对每个工作薄进行批量操作。

　　通过VBA获取当前文件夹下的所有工作薄名称，可以通过如下两种代码。

　　一、获取当前目录所有工作薄名称

　　注意，此代码包含子级目录的搜索。代码如下：

　　With Application.FileSearch
        .FileType = msoFileTypeExcelWorkbooks
        .LookIn = ThisWorkbook.Path
        .SearchSubFolders = True
        .Execute
        If .Execute() > 0 Then
            m = .FoundFiles.Count '当前目录及子目录所有工作薄总数
            'MsgBox m
            For Each f In .FoundFiles '在所有的工作薄里做一个循环
                MsgBox Dir(f) '列出每个工作薄的名称，只显示名称，如 dzwebs.xls ，无路径
            Next
        End If
　　End With

　　二、获取当前目录下不包含子目录的所有工作薄名称

　　注意，此代码不包含任何一个子级目录的搜索，仅搜索当前目录存在的所有工作薄名称。代码如下：

　　With Application.FileSearch
        .FileType = msoFileTypeExcelWorkbooks
        .LookIn = ThisWorkbook.Path
        .SearchSubFolders = false
        .Execute
        If .Execute() > 0 Then
            m = .FoundFiles.Count '当前目录所有工作薄总数
            'MsgBox m
            For Each f In .FoundFiles '在所有的工作薄里做一个循环
                MsgBox Dir(f) '列出每个工作薄的名称，只显示名称,如 dzwebs.xls ，无路径
            Next
        End If
　　End With

　　只要我们获取了所有工作薄的名称，加上ThisWorkbook.Path语句获取其路径，我们就可以得出Excel文件的完整路径，可在此基础之上，针对问题的需求，通过循环语句或配合其它语句，我们就可以实现批量的操作。相关的技术文章，请大家参阅本站的文章。

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18