Question

VBA宏指定文件夹路径时取消选择，出现错误，怎么解决？

用这段代码来选取并指定文件夹路径，弹出对话框时点取消就会出现错误提示，怎么避免？？？
With Application.FileDialog(msoFileDialogFolderPicker) '选取并指定文件夹路径
.Show
s = .SelectedItems(1)
End With

Answer 1

With Application.FileDialog(msoFileDialogFolderPicker)
.Show
If .SelectedItems.Count = 0 Then Exit Sub '未选择文件夹
strfolder = .SelectedItems(1)
End With

Answer 2

添加依据错误处理的语句 On Error Resume Next

Dim s As String
On Error Resume Next
With Application.FileDialog(msoFileDialogFolderPicker)  '选取并指定文件夹路径
    .Show
    s = .SelectedItems(1)
End With