请教老师：下面的代码为什么在wps中无法使用

dlxhj · 发表于 2023-3-19 19:45

请教老师：下面的代码为什么在wps中无法使用，不能弹出对话框。怎么修改。
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show Then lj = .SelectedItems(1) Else Exit Sub
End With

dlxhj · 发表于 2023-3-25 19:03

上述问题有老师能帮忙解决吗

smsn · 发表于 2023-3-26 10:15

本帖最后由 smsn 于 2023-3-26 10:17 编辑

错误提示有吗？代码没有错。
Application.DisplayAlerts = False 这句可以关掉弹出提示。

dlxhj · 发表于 2023-3-26 17:20

smsn 发表于 2023-3-26 10:15
错误提示有吗？代码没有错。
Application.DisplayAlerts = False 这句可以关掉弹出提示。

无法弹出窗口，我需要的是弹出窗口选择文件夹

perfect131 · 发表于 2023-3-26 17:29

wps bug，vba 还是用 excel

参考：https://club.excelhome.net/thread-1657439-1-6.html

淡然忘情 · 发表于 2023-3-26 18:16

在WPS中就是这样的在OFFICE中是可以用的代码没有问题

dlxhj · 发表于 2023-3-30 22:20

淡然忘情发表于 2023-3-26 18:16
在WPS中就是这样的在OFFICE中是可以用的代码没有问题

感谢老师的帮助，不知道wps还有多少类似的问题。

dlxhj · 发表于 2023-3-30 22:20

perfect131 发表于 2023-3-26 17:29
wps bug，vba 还是用 excel
参考：https://club.excelhome.net/thread-1657439-1-6.html

感谢老师的帮助，不知道wps还有多少类似的问题。

zjzyj · 发表于 2023-3-30 23:08

实测WPS能用

opiona · 发表于 2023-3-31 22:53

遇到过同样的问题

大多数客户的WPS 此代码是可执行的包括我自己的
但是部分客户的不显示那个窗口
原因不详!

看看哪位有解决办法!
或者问问WPS的客服(非会员不服务)

		自动登录	找回密码
密码			免费注册

[求助] 请教老师：下面的代码为什么在wps中无法使用