请问文件夹选择对话框的vba代码，在excel可以运行，但是在wps里面就运行不了？

在wps中运行后就闪了一下，然后回到工作表。没有打开文件夹选择对话框。

Sub Test3()

Dim flg As Office.FileDialog

Dim i As Integer

Set flg = Application.FileDialog(Office.MsoFileDialogType.msoFileDialogFolderPicker)

With flg

If .Show Then

MsgBox "你选择了文件夹：" & .SelectedItems.Item(1)

End If

End With

End Sub