取消按钮必须退出潜艇
我有一个对话框,可选择文件夹名称并显示用户选择的文件夹名称。
如果用户选择 cancel 反而 Folder path 和 OK, 他给出了错误。
我使用了一个状态变量,并注意到取消后,状态更改 -1. 因此,我试图使用条件实现评论部分中的代码 if 退出 sub.
如果在代码中存在注释部分时选择该文件夹,则不起作用。
没有它,它在选择文件夹时工作。
如果用户选择 cancel 反而 Folder path 和 OK, 他给出了错误。
我使用了一个状态变量,并注意到取消后,状态更改 -1. 因此,我试图使用条件实现评论部分中的代码 if 退出 sub.
如果在代码中存在注释部分时选择该文件夹,则不起作用。
没有它,它在选择文件夹时工作。
sub abc//
Set diaFolder = Application.FileDialog/msoFileDialogFolderPicker/
diaFolder.AllowMultiSelect = False
diaFolder.Title = "Select a folder then hit OK"
diaFolder.Show
'Status = diaFolder.Show
'If Status < 0 Then
'Exit Sub
'End If
a = diaFolder.SelectedItems/1/
MsgBox /"Folder selected is :" & a/
ens sub
没有找到相关结果
已邀请:
3 个回复
诸葛浮云
赞同来自:
换句话说,点击 'OK' 多窝白 -1, 然后点击 'Cancel' - 0.
尝试以下代码:
龙天
赞同来自:
我知道它是关闭的,但我想尝试第一次发布它。 =D
江南孤鹜
赞同来自:
消除
.
解决此问题的解决方案是检查使用以下结构选择了多少元素: