Excel VBA - 使用 Dir() 的多个实例

excel

使用Dir()函数是excel VBA中一个非常有用的方法，它可以用于搜索并获取指定文件夹中的文件名。但是，有时候我们可能需要同时搜索多个文件夹，这就需要使用Dir()函数的多个实例了。本文将介绍如何使用Dir()函数的多个实例，并提供一个案例代码来帮助理解。

什么是Dir()函数

Dir()函数是excel VBA中一个用于搜索文件夹中文件名的函数。它可以接受一个路径参数，并返回该路径下的第一个文件名。每次调用Dir()函数后，它会返回下一个文件名，直到没有文件名可返回为止。这使得Dir()函数非常适合用于遍历文件夹中的文件。

使用Dir()函数的多个实例

在某些情况下，我们可能需要同时搜索多个文件夹，而不仅仅是一个文件夹。这就需要使用Dir()函数的多个实例了。为此，我们可以使用一个或多个变量来存储不同实例的文件名。

下面是一个使用Dir()函数的多个实例的示例代码：

VBA
Sub SearchFiles()
    Dim folderPath1 As String
    Dim folderPath2 As String
    Dim fileName As String
    
    folderPath1 = "C:\Folder1\"
    folderPath2 = "D:\Folder2\"
    
    ' 第一个实例
    fileName = Dir(folderPath1 & "*.*")
    Do While fileName <> ""
        ' 处理文件名
        Debug.Print folderPath1 & fileName
        fileName = Dir
    Loop
    
    ' 第二个实例
    fileName = Dir(folderPath2 & "*.*")
    Do While fileName <> ""
        ' 处理文件名
        Debug.Print folderPath2 & fileName
        fileName = Dir
    Loop
End Sub

在上述代码中，我们使用了两个变量folderPath1和folderPath2来存储两个不同的文件夹路径。然后，我们分别使用这两个文件夹路径来调用Dir()函数的两个实例，以获取每个文件夹中的文件名。在每个实例中，我们使用一个循环来遍历文件夹中的所有文件名，并进行相应的处理。

案例代码

假设我们有两个文件夹，一个是"C:\Folder1\"，另一个是"D:\Folder2\"。我们想要遍历这两个文件夹，并将所有文件名打印出来。

我们可以使用以下代码来实现：

VBA
Sub SearchFiles()
    Dim folderPath1 As String
    Dim folderPath2 As String
    Dim fileName As String
    
    folderPath1 = "C:\Folder1\"
    folderPath2 = "D:\Folder2\"
    
    ' 第一个实例
    fileName = Dir(folderPath1 & "*.*")
    Do While fileName <> ""
        ' 处理文件名
        Debug.Print folderPath1 & fileName
        fileName = Dir
    Loop
    
    ' 第二个实例
    fileName = Dir(folderPath2 & "*.*")
    Do While fileName <> ""
        ' 处理文件名
        Debug.Print folderPath2 & fileName
        fileName = Dir
    Loop
End Sub

在上述代码中，我们首先定义了两个变量folderPath1和folderPath2，分别存储两个文件夹的路径。然后，我们使用Dir()函数的两个实例来遍历这两个文件夹，并将文件名打印出来。最后，在每个实例的循环中，我们使用Debug.Print语句将文件名输出到Immediate窗口。

使用Dir()函数的多个实例可以帮助我们同时搜索多个文件夹，并获取文件名。通过定义多个变量来存储不同实例的文件名，我们可以轻松地遍历多个文件夹。在本文中，我们提供了一个案例代码来演示如何使用Dir()函数的多个实例。希望本文对你理解并使用Dir()函数有所帮助。