我正在尝试在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
任何帮助，将不胜感激。
Variant尽可能避免使用数据类型。
Dim dartFile As String
这是一个很好的声明，dartFile 是的，毕竟一个String。
True当您ESC退出对话框时，这将在立即窗格中返回：
?Application.GetOpenFilename() = "False"
只需制作False，，"False"就可以完成。;）
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句