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