VBA Excel文件打開提示取消錯誤

Question

所以我使用文件打開提示來收集文件名。 然后我在后台實例中打開此文件，將信息解析為字典並關閉文件。 這很好用。 這個代碼是：

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

如果用戶按下取消，這顯然是一個可行的方案，我收到以下錯誤：

Invalid procedure call or argument

我試圖將'gather'行更改為：

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

然而，這仍然會帶來錯誤。 即使禁用警報也會出現錯誤或“400”。 任何有關如何制作此彈出窗口或處理它的幫助將不勝感激。

Answer 1

您需要檢查邊界以確定是否選擇了任何內容

with Application.FileDialog(msoFileDialogOpen)

    .Show

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

Answer 2

你可以使用GetSaveAsFilename即

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