用这段代码来选取并指定文件夹路径,弹出对话框时点取消就会出现错误提示,怎么避免???
With Application.FileDialog(msoFileDialogFolderPicker) '选取并指定文件夹路径
.Show
s = .SelectedItems(1)
End With
第1个回答 推荐于2016-04-08
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
If .SelectedItems.Count = 0 Then Exit Sub '未选择文件夹
strfolder = .SelectedItems(1)
End With本回答被提问者采纳
.Show
If .SelectedItems.Count = 0 Then Exit Sub '未选择文件夹
strfolder = .SelectedItems(1)
End With本回答被提问者采纳
第2个回答 2013-05-23
添加依据错误处理的语句 On Error Resume Next
Dim s As StringOn Error Resume Next
With Application.FileDialog(msoFileDialogFolderPicker) '选取并指定文件夹路径
.Show
s = .SelectedItems(1)
End With