VBA Excel文件打开提示取消错误

Question

所以我使用文件打开提示来收集文件名。 然后我在后台实例中打开此文件，将信息解析为字典并关闭文件。 这工作正常。 这个代码是：

Application.FileDialog(msoFileDialogOpen).Show 
sFullName = Application.FileDialog(msoFileDialogOpen).SelectedItems(1) 

如果用户按下取消，这显然是一个可行的方案，我得到以下错误：

Invalid procedure call or argument 

我试图改变“收集”线到：

If Application.FileDialog(msoFileDialogOpen).SelectedItems(1) Then sFullName = Application.FileDialog(msoFileDialogOpen).SelectedItems(1) 

但是，这仍然会带来错误。即使禁用警报也会导致错误或'400'。 任何帮助如何使这个弹出或处理它将不胜感激。

Answer 1

你可以使用GetSaveAsFilename即

Dim strFileName As String 
strFileName = Application.GetSaveAsFilename 
If strFileName = "False" Then MsgBox "User cancelled" 

Answer 2

你需要检查的范围，以确定是否有任何选择

with Application.FileDialog(msoFileDialogOpen) 

    .Show 

    if (.SelectedItems.Count = 0) Then 
     '// dialog dismissed with no selection 
    else 
     sFullName = .SelectedItems(1) 
    end if 
end with