关于Application.FileDialog方法遇到的问题

NieC

下列代码是我统计功能的一部分。
代码要实现的功能是，对一个文件夹内的表格进行内容统计处理。
之前运行都是正常的，我加了一个简单的是否清除结果的句子，代码直接执行到msgbox 未选择文件夹，不弹出文件夹选择的窗口
请问这是为什么呢。。。

Sub 统计()

    Rem 打开文件夹
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = 0 Then
            MsgBox "未选择文件夹，请重新运行。"
            Exit Sub
        End If

    Rem 获取文件夹路径
        p = .SelectedItems(1) & "\"
    End With

a = MsgBox("是否清除记录" & Chr(10) & "（如添加数据请选“否”）", vbYesNo, "提示！")
If a = 1 Then Range("f3:aj27") = ""               '就是刚加的这2句