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

广田弘毅 · 发表于 2024-4-3 15:50

在excel中运行正常，在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

闻启学 · 发表于 2024-4-4 20:23

Application 这个代表的是 Excel 。app

WPS 要另外的

估计WPS 对话框是另外的语句，这个我都想知道怎样修改

现在我在WPS 路径输入都是在单元格

yang央 · 发表于 2024-4-4 21:08

WPS的BUG。文件打开第1次是正常的，第2次就不行了，你把他套在一个循环里面不停的试，偶尔会成功一下

广田弘毅 · 发表于 2024-4-7 15:18

我已经找到解决办法了，第一句代码前面加上application.screenupdate=false就可以正常运行了。

kankandi · 发表于 2024-4-15 16:21

广田弘毅发表于 2024-4-7 15:18
我已经找到解决办法了，第一句代码前面加上application.screenupdate=false就可以正常运行了。

已成功，谢谢大佬

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

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