Question

我正在尝试执行If语句，如果该条件为true，则显示一个消息框，并且不执行该子程序；如果为true，则按正常方式执行该子程序。

使用我当前的代码，即使应满足If条件，也总是执行sub。我不确定哪里出了问题：

Dim templateFile As String
templateFile = "T:\Sales and Subs Dept\ARK - Dev\ALPHA TEMPLATE w.o Loop.xlsm"

If Filepath = templateFile Then
    MsgBox "Please save template as different document"
    Exit Sub
Else

所有其他代码位于else下方，并以End If结尾。

Answer 1

在接受以下评论中的讨论后对帖子进行了编辑。

显式添加了选项并指定了如何列出文件路径，这应该使事情保持相似：

Option Explicit
sub fdsa()
    Dim templateFile As String, Filepath As String
    Filepath = Application.ActiveWorkbook.path & ActiveWorkbook.Name & ".xlsm"
    templateFile = "T:\Sales and Subs Dept\ARK - Dev\ALPHA TEMPLATE w.o Loop.xlsm"
    If Filepath = templateFile Then 
        MsgBox "Please save template as different document."
        Exit Sub
    Else
        'run your macro where case isn't true
    End If
end sub

如果基于文件名取消子的If语句

1 个答案: