level 1
在其他电脑上运行正常，但是在某台电脑上，只有第一次打开时可用，后面再执行就没有对话框了，有大佬知道原因么。代码如下
With Excel.Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ThisWorkbook.Path & "\"
If .Show Then ph = .SelectedItems(1) Else Exit Sub
End With
2024年03月23日 01点03分
1
level 1
完全摸不清头绪，求大佬解救，实在不行只能写死路径了。
2024年03月23日 01点03分
2
level 7
WPS请使用Application.GetOpenFilename
2024年03月24日 02点03分
4
@灼眼的土豆 换成GetOpenFilename吧，wps只兼容这个。
2024年03月24日 06点03分
@灼眼的土豆 那就调用之前停止屏幕刷新， 调用之后恢复
2024年03月25日 16点03分
level 1
在前面加上Application.ScreenUpdating = False，就可以解决了
2025年09月09日 07点09分
6
![[大拇指]](/static/emoticons/u5927u62c7u6307.png)
