如果打开了不正确的文件，请退出Excel

Question

I want to create a prompt in Excel for the user to select and open a file. However, at the same time I also want to make sure that the user is selecting the correct file. The excel should exit in either of the cases.

1. No file is selected.
2. Or Incorrect file is selected.

I have the following code that fulfills the first requirement but need some assistance on the second one.

Dim strFileToOpen As Variant
strFileToOpen = Application.GetOpenFilename _
(Title:="Please Choose Missing Charges File To Open")
If strFileToOpen = False Then
MsgBox "No File Selected. Program Will Exit.", vbExclamation, "Oops!"
Application.DisplayAlerts = False
Application.Quit
Exit Sub
Else
Workbooks.Open Filename:=strFileToOpen
MsgBox "Thanks For Selecting The Correct File", vbExclamation, "Thanks!"
End If

Answer 1

Sub correctAnswer()

Dim strFileToOpen As Variant

Dim correctFileName As String

correctFileName = "Put your intended file name here"

strFileToOpen = Application.GetOpenFilename _

(Title:="Please Choose Missing Charges File To Open")

If strFileToOpen = False Or strFileToOpen <> correctFileName Then

MsgBox "No/Wrong File Selected. Program Will Exit.", vbExclamation, "Oops!"

Application.DisplayAlerts = False

Application.Quit

Exit Sub

Else

Workbooks.Open Filename:=strFileToOpen

MsgBox "Thanks For Selecting The Correct File", vbExclamation, "Thanks!"

End If

End Sub