проверка, является ли имя файла равным другим файлам. Значение ячейки

Question

У меня есть главный файл Excel, который имеет переменную Name. Мой код VBA может позволить мне открыть другой файл Excel из masterFile.From этот код

With Application.FileDialog(msoFileDialogFilePicker) 
    .InitialView = msoFileDialogViewDetails 
    .Title = "Bitte die neue Exceldatei(*.xls) für die Verknüpfungsaktualisierung auswählen" 
    .ButtonName = "Auswählen" 
    .InitialFileName = Worksheets("Vorgaben").Range("C8").Value & "*.xlsm" 
    .AllowMultiSelect = False 

    If .Show = 0 Then Exit Sub 

    sPfad = VBA.CurDir 
    vDatei = .SelectedItems(1) 
    sExcelFile = Mid(vDatei, Len(sPfad) + 2) 
End With 

NeuerLink = vDatei 
Workbooks.Open Filename:=NeuerLink 

osman = Right(NeuerLink, Len(NeuerLink) - InStrRev(NeuerLink, "\")) 

Мой вопрос, когда я открыть этот новый файл значение в ячейке F6 должна быть равна значению моей переменной Name MasterFILE. Если это правда, я хотел бы продолжить мой код, когда Cell F6 имеет другое значение, я хотел бы получить сообщение об ошибке, которое говорит «Ошибка».

Как я могу это сделать?

Answer 1

Вот пример заявления Если вы можете использовать с кодом:

Sub IfExample() 

    ' Here is where your existing code can go. 

    If Cells(6, 6).Value <> anan Then 
     MsgBox ("Error") 
     GoTo ExitHere 
    End If 

    ' Here is where you can put the code that you want to continue to. 


ExitHere: 

End Sub