wps用FileDialog获取文件夹名称在第二次获取时失败，无法跳出弹窗

阿杰24586898

各位大神好，最近我在wps中用Application.FileDialog(msoFileDialogFolderPicker) 获取文件夹名称，在第二次获取时总是无法跳出弹窗，导致获取失败，但是用office 2016时却没有此问题，filedialog的弹窗可以正常跳出，请问这个是啥问题的   工作簿1.rar (13.25 KB, 下载次数: 3)

2024-1-22 15:17 上传

点击文件名下载附件
测试文件

1. Sub demo()
   
2.     Filename = CreateObject("WScript.Shell").SpecialFolders("Desktop")
   
3.       With Application.FileDialog(msoFileDialogFolderPicker)
   
4.         .AllowMultiSelect = False
   
5.         .Filters.Clear
   
6.         .Title = "请选择需要获取文件列表的文件夹"
   
7.         .InitialFileName = Filename
   
8.         .ButtonName = "OK"
   
9.         .Show
   
10.         FileN = .SelectedItems(1)
    
11.     End With
    
12. End Sub

复制代码

jiangxiaoyun

是会有这个问题，改用shell吧。

lizhipei78

这个是通病，在前面加一句停止屏幕刷新就可以了

阿杰24586898

lizhipei78 发表于 2024-1-22 22:43
这个是通病，在前面加一句停止屏幕刷新就可以了

果然是刷新的问题，谢谢老师

lukeluckc

lizhipei78 发表于 2024-1-22 22:43
这个是通病，在前面加一句停止屏幕刷新就可以了

感谢回答，解决了大问题，我也找这个答案好久了！！