如果文件路径不存在则退出子

Posted 2023-05-07

【中文标题】如果文件路径不存在则退出子

【英文标题】：If File path does not exits then exit sub

【发布时间】：2014-02-17 23:18:53

【问题描述】：

嘿，我是 Excel 的新手，我遇到了错误处理问题。我希望我的宏运行，如果它找不到文件夹，那么它应该向用户生成一条消息并退出子。任何帮助将不胜感激！

下面是我的宏保存文件的代码

    Worksheets("Input data").Visible = True
    folder = "\\Group_SHARED\Group Shared\Engineering\Controlled Folder\Number_Checkout\Archived\Archived"
    MyTime = Time
    Sheets("Input data").Select
    Range("G2").Value = MyTime
    strFileName = folder & "_" & Sheets("Input data").Range("C6").Value & "_" & Sheets("Get_ECN").Range("B6").Value & "_" & Sheets("Input data").Range("C3").Value & " " & Sheets("Input data").Range("C4").Value
    Worksheets("Input data").Visible = False
    ActiveWorkbook.SaveAs Filename:=strFileName

【参考方案1】：

试试：

    If dir(folder) = "" then
       Msgbox "no such directory"
       Exit sub
    end if

如：

Sub Test()
    folder = "C:\Users\Administrator\"
    If Dir(folder) = "" Then
       MsgBox "no such directory"
       Exit Sub
    Else
        MsgBox "Yup, It's There All Right."
    End If
End Sub

【讨论】：

确保您的文件夹路径以“\”结尾，如上例所示。 - 这对我来说很好。如果它对您不起作用，您能告诉我您收到什么错误消息吗？我也许可以提供更多帮助。

在我们的办公室里，我们使用的是共享驱动器，即使我连接到共享驱动器，宏仍然退出并返回消息“没有这样的目录”，当我断开与共享驱动器的连接时，我得到错误 Run Time Error 52 Bad File Name or Number