这段代码 excel 可以一直调出弹窗，wps的话新建工作簿第一次可以弹窗，第二次运行...

花_样_年_华

Sub test()
    i = tmp_rows
    j = 1
   
    '===============================================================
    '浏览目录
    spath = ""
    Application.FileDialog(msoFileDialogFolderPicker).InitialFileName = spath
         With Application.FileDialog(msoFileDialogFolderPicker)
         .ButtonName = "确定"
             If .Show = True Then
                spath_tmp = .SelectedItems(1)
                 spath = .SelectedItems(1)
             End If
         End With
        
     
    '==================================================================
   
    ct_spath_tmp = spath
    If Application.WorksheetFunction.CountIf(Sheet3.Range("B:B"), ct_spath_tmp) = 1 Then
     MsgBox "已有该目录信息,将退出."
     Exit Sub
     End If
   
   
    If spath = "" Then Exit Sub
   
Sheets("目录").Cells(2, 1).Select
End Sub



这段代码  excel 可以一直调出弹窗，wps的话新建工作簿第一次可以弹窗，第二次运行就不会弹窗了。请问这个是什么原因啊！

mmwwdd

是,我也遇到这种情况

mmwwdd

我认为WPS是用微软的VBA来兼容,所以有的地方不一定全部弄的完善,毕竟微软是面向世界的,他的测试工作就几千人

高个子

原因就是不兼容，要重新写

花_样_年_华

mmwwdd 发表于 2022-12-27 07:43
我认为WPS是用微软的VBA来兼容,所以有的地方不一定全部弄的完善,毕竟微软是面向世界的,他的测试工作就几千 ...

要得，谢谢！

花_样_年_华

高个子 发表于 2022-12-27 11:07
原因就是不兼容，要重新写

有不有 什么可以替代 选择文件夹 弹窗的弹窗选择啊