excel 2010 Workbook_BeforeSave中弹出另存为窗口后保存不了

[lubin520520zhuwen]

我在excel 2010中写了如下的代码，为了点击save后弹出save as对话框，并且命名文件.
但是发现点了弹出框的save后并没有保存，为什么？

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim Name As String
    With ThisWorkbook
        Name = Worksheets("Sheet1").Range("B7").Value
        Dim dlgSaveAs As FileDialog
        'Set the dialog type
        Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)
        With dlgSaveAs
            .InitialFileName = Name
            .FilterIndex = 2
            'Display the dialog
            .Show                        
        End With
    End With
End Sub

如果我再.Show后面增加.Execute的话，执行会报错

[mnxm]

    Dim Name As String
    With ThisWorkbook
        Name = Worksheets("Sheet1").Range("B7").Value
        Dim dlgSaveAs As FileDialog
        'Set the dialog type
        Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)
        With dlgSaveAs
            .InitialFileName = Name
            .FilterIndex = 2
            'Display the dialog
            .Show                        
        End With
    End With

是因为没有Execute而没有保存 添加Execute后 可以保存 但是有个问题 执行Execute时文件也进行了保存动作 还会触发Workbook_BeforeSave这个函数 所以文件出错想不出错的话 把代码移动到普通的函数中

Sub b()
    Dim Name As String
    With ThisWorkbook
        Name = Worksheets("Sheet1").Range("B7").Value
        Dim dlgSaveAs As FileDialog
        'Set the dialog type
        Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)
        With dlgSaveAs
            .InitialFileName = Name
            .FilterIndex = 2
            'Display the dialog
            .Show
            .Execute
            
        End With
    End With
End Sub

[mnxm]

上面说的不对 添加Execute后出错的原因是 代码中保存动作执行完后 当前打开的工作薄名字已经变成保存的文件 而你这个函数是在原文件保存前执行的 执行完后还需要进行原文件的保存动作 此时打开的工作薄已经不是源文件 所以无法对源文件进行保存 从而出错 所以你的代码不能放在Workbook_BeforeSave中

[lubin520520zhuwen]

那楼上的，我的代码需要移到普通的函数中 ，比如Sub b() 吗？ 那我还需要怎么做才能实现我的需求呢？

[mnxm]

可不可以自己添加个保存按扭 不使用ctrl+s 或者为有保存功能的宏添加个快捷键

[lubin520520zhuwen]

可不可以自己添加个保存按扭 不使用ctrl+s 或者为有保存功能的宏添加个快捷键 ? 是不是用save这个功能不太好搞？ 或者为有保存功能的宏添加个快捷键 ? 这个不会。 其实我这个excel只是个模板，目的是作为share point站点里的文档库模板，我可以创建基于这个模板的新的文档，加个保存按钮不符合我的要求的，我想做的就是点击save后弹出框里自动命名文件名，点弹出框的保存就保存文件了。