Question

在我编写的一个小型Powerpoint应用程序中，我使用.FileDialog方法让用户选择应用程序的目标文件。一切正常，除非用户想要通过单击取消按钮或右上角的X取消对话框，否则会生成错误并执行失败。

那么，如果用户想要取消，那么PowerPoint错误陷阱是什么？我尝试使用Excel VBA代码（＆＃39; On Error＆＃39;，vbCancel和If语句）来捕获错误而没有运气。

有什么建议吗？

Sub ShowFileDialog()

Dim dlgOpen As FileDialog

Set dlgOpen = Application.FileDialog(Type:=msoFileDialogOpen)

With dlgOpen
    .AllowMultiSelect = True
    .Show

[meta code] If selection = "" then exit sub
or
if vbCancel = True then exit sub

End With

End Sub

Answer 1

Show返回一个值。

Sub ShowFileDialog()
Dim dlgOpen As FileDialog`

Set dlgOpen = Application.FileDialog(Type:=msoFileDialogOpen)

With dlgOpen
    .AllowMultiSelect = True
    If .Show Then
       Dim I As Integer
       For I = 1 To .SelectedItems.Count
          Debug.Print .SelectedItems(I)
       Next
    Else
       Debug.Print "User cancelled"
    End If
 End With

End Sub

Powerpoint FileDialog框问题（VBA）

1 个答案: