检查文件名是否等于“其他文件”单元格值

Question

>我有一个主Excel文件，它有一个变量Name。我的 vba 代码可以让我从 masterFile 打开另一个 Excel 文件。从此代码

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 主文件的值。如果这是真的，我想继续我的代码，当单元格 F6 具有不同的值时，我希望有一个错误消息，该错误消息是"错误"。

我该怎么做？

Answer 1

下面是

一个可以与代码一起使用的 If 语句示例：

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