Excel運行時錯誤13中的VBA：鍵入不匹配

Question

我正在嘗試在Excel中打開文件對話框，以便用戶可以選擇文件。 出於某種原因，在我選擇了我想要的文件后，我不斷收到運行時錯誤。 這是代碼：

Dim dartFile As String

dartFile = Application.GetOpenFilename _
(Title:="Please choose DART output to open", _
FileFilter:="Excel Files *.xlsx* (*.xlsx*),")

If dartFile = False Then
    MsgBox "No file selected.", vbExclamation, "Sorry!"
    Exit Sub
Else
    'Run the rest of the Sub
End IF

當我選擇有效的.xlsx文件時會彈出錯誤，調試器說這行有問題：

If dartFile = False Then

任何幫助，將不勝感激。

Answer 1

問題是Application.GetOpenFilename返回一個變量，並且您已將變量聲明為字符串。 然后VBA無法將您的字符串與布爾類型進行比較。

Answer 2

盡可能避免使用Variant數據類型。

 Dim dartFile As String 

這是一個很好的聲明， dartFile 是一個String 。

當ESC離開對話框時，在立即窗格中返回True ：

?Application.GetOpenFilename() = "False"

只False ， "False" ，你就完成了。 ;）

Answer 3

嘗試：

Dim dartFile As as Variant