Если заявление, которое отменяет подпункт на основе имени файла - PullRequest
0 голосов
/ 05 февраля 2019

Я пытаюсь реализовать оператор If, где, если он истинный, отображается окно сообщения, а подпрограмма не выполняется, и если она истинна, подпрограмма выполняется как обычно.

Смой текущий код, подпрограмма всегда выполняется, даже если условие If должно быть выполнено.Я не уверен, где я ошибся:

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.

1 Ответ

0 голосов
/ 05 февраля 2019

Сообщение отредактировано после принятия согласно обсуждению в комментариях ниже.


Добавлена ​​опция Explicit и указано, как составить список Filepath, который должен сохранять сходство:

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
...