如何检查文件夹中是否存在工作簿？

要检查特定文件夹中是否存在工作簿，可以使用 DIR 函数。 DIR 是表示目录的函数。您需要指定文件路径及其名称和扩展名。如果文件存在，则返回文件名，否则返回空值。

编写代码检查文件夹中是否存在 Excel 文件

使用以下步骤：

1. 首先，指定一个范围或消息框来获取函数结果。
2. 现在输入函数名称“DIR”并键入前导括号。
3. 之后，使用双引号输入文件路径，并确保输入文件扩展名和文件名。
4. 接下来，键入右括号以结束该代码行。

 Sub vba_Check_workbook() MsgBox Dir("C:UsersDellDesktopbook1.xlsx") End Sub

当您运行这行代码时，会出现一个包含文件名的消息框，这意味着该文件存在于您指定的位置。

有用的链接：运行宏–宏记录器– Visual Basic 编辑器–个人宏手册

查找文件夹中存在的多个文件

您可能需要检查多个文件（如果它们都存在于一个文件夹中）。在这种情况下，您可以使用以下代码。

 Sub vba_check_workbook() Dim myFolder As String Dim myFileName As String Dim myRange As Range Dim myCell As Range Set myRange = Range("A1:A5") myFolder = "C:UsersDellDesktopData" For Each myCell In myRange myFileName = myCell.Value If Dir(myFolder & "" & myFileName) = "" Then myCell.Offset(0, 1) = "File Doesn't Exists." Else myCell.Offset(0, 1) = "File Exists" End If Next myCell End Sub

为了理解这段代码，我将其分为三个部分。

• 在第一部分中，您拥有我们需要在代码中使用的所有变量。用作文件夹地址、文件名、包含所有名称的范围以及该范围中的每个单元格的变量。
• 在第二部分中，您定义地址范围，其中包含要检查的文件的所有名称。还有分配给变量的文件夹路径。
• 在第三部分中，您有一个LOOP FOR EACH来循环遍历文件夹中的所有文件。此循环使用 DIR 来匹配该范围内的所有名称。它还使用IF 语句在相应的单元格中输入一个值作为文件是否存在的注释。

注意：如果要使用此代码，则需要更改文件夹路径，并且需要设置包含所有工作簿名称的范围。