VBA求助：文件选取对话框只能打开一次

缪飞 · 发表于 2023-2-17 10:07

文件选取对话框只能打开一次，第二次对话框就打不开，除非关闭EXCEL表，再次打开。

Sub 保存位置()

Dim spath As String

Dim floderopen As FileDialog

Set floderopen = Application.FileDialog(msoFileDialogFolderPicker)

If floderopen.Show = -1 Then

spath = floderopen.SelectedItems(1)

Else

MsgBox "已取消保存"

End If

Range("G1").Value = spath

Set floderopen = Nothing

End Sub

ykcbf1100 · 发表于 2023-2-17 10:31

代码在我这里没问题

WANT-T · 发表于 2023-2-17 10:33

show=-1时读取路径，然后判断路径是否为空，如果为空则，判定取消保存！改一下逻辑就好了

太极拍天雄 · 发表于 2023-2-17 10:42

在WPS会出现这个问题，在Excel365版不会

mmwwdd · 发表于 2023-2-17 11:16

是,我也遇到过

缪飞 · 发表于 2023-2-17 15:10

ykcbf1100 发表于 2023-2-17 10:31
代码在我这里没问题

谢谢，目前还没找到原因。

缪飞 · 发表于 2023-2-17 15:11

太极拍天雄发表于 2023-2-17 10:42
在WPS会出现这个问题，在Excel365版不会

有没有什么解决方法吗？

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

[求助] VBA求助：文件选取对话框只能打开一次