在Microsoft Excel中，我们可以使用VBA代码检查文件是否存在于特定位置。宏将以消息框的形式显示状态。在本文中，我们将借助VBA代码确定是否存在任何特定文件的状态。我们可以使用Dir函数通过Excel VBA检查文件是否存在于“位置”中。

| 使用该程序，我们可以检查在同一位置是否已经存在任何文件。因此，我们可以删除或重命名旧文件。

| ===

问题：在创建宏以使任务自动化时，通常将输出文件保存在某个位置。我想有一个宏来验证＆作为显示文件是否在特定路径可用或返回的宏。

为了说明该示例，我们将“ Sample.xlsx”文件保存在路径“ D：\ FolderName \ Sample.xlsx”中

image 1

要确定工作簿是否存在，我们需要按照以下步骤启动VB编辑器：

单击“开发人员”选项卡。从“代码”组中选择“ Visual Basic”

image 2

image 3

===

单击插入，然后单击模块，这将创建新模块*在标准模块中输入以下代码

Sub FileExists()

Dim FilePath As String

Dim TestStr As String

FilePath = "D:\FolderName\Sample.xlsx"

TestStr = ""

On Error Resume Next

TestStr = Dir(FilePath)

On Error GoTo 0

If TestStr = "" Then

MsgBox "File doesn't exist"

Else

Workbooks.Open "D:\FolderName\Sample.xlsx"

End If

End Sub

image 4

  • 现在宏已全部设置为运行，我们将使用F5快捷键，“ Sample”文件将打开

image 5

  • 如果文件在预定义的路径中不可用，则会显示以下消息框

如果您喜欢我们的博客，请在Facebook上与您的朋友分享。您也可以在Twitter和Facebook上关注我们。

我们很高兴收到您的来信，请让我们知道我们如何改进，补充或创新我们的工作，并为您做得更好。写信给我们[email protected]