wps vba 另存为出现 错误

kdsea

在工作中不断有新的文件 要保存到指定路径（通过 一个模版生成的）。  
因此 想 点击按钮 直接在指定的路径跳出 另存为对话框 ，方便保存
   
这里的指定的路径为代码所在的工作薄路径


本表代码在MS office中测试通过  ，在WPS2019中 不能通过 不能跳到当前工作薄路径
最新的WPS版本用代码打开指定的文件夹出现错误，用的是WPS2019
我是在D 盘测试的
求解  谢谢老师

小凡、、、

在wps2024版本里这样测试可以弹出当前文件坐在的文件夹，2019没有不做测试，楼主可以测试下，office对InitialFileName的处理比wps兼容性强，直接在wps中使用行不通

opiona

1. Rem 为了解决WPS 不出现对话框 需要加一对: Application.ScreenUpdating
   
2.     Dim BLApp As Boolean
   
3.     BLApp = Application.ScreenUpdating
   
4.     Application.ScreenUpdating = False
   
5. 
   
6.     REM 你的代码
   
7.     With Application.FileDialog(msoFileDialogFolderPicker)
   
8.        REM 你的代码
   
9.      end WITH
   
10. 
    
11.     Application.ScreenUpdating = BLApp

复制代码

kdsea

小凡、、、 发表于 2024-6-18 20:57
在wps2024版本里这样测试可以弹出当前文件坐在的文件夹，2019没有不做测试，楼主可以测试下，office对Initi ...

多谢   代码可以用了    确认后没保存   以下为AI修改的代码 ：
Sub CommandButton27_Click()
    Dim fd As Object
    Dim Sp As String
    Dim Cf As String
    Cf = ThisWorkbook.path & "\"
    Set fd = Application.FileDialog(msoFileDialogSaveAs)
    With fd
       .InitialFileName = Cf & "未命名.xlsm"
       .Title = "另存为"
        If .Show = -1 Then
            Sp = .SelectedItems(1)
            ThisWorkbook.SaveAs fileName:=Sp
            MsgBox "文件已保存至: " & Sp
        Else
            MsgBox "保存操作取消。"
        End If
    End With
    Set fd = Nothing
End Sub