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

2013-01-29 04:23:27 548 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

lubin520520zhuwen 墨衍会员 · AI 创作全网分发关注 + 加入社区

通达信筹码分布主图源码分享 NOTEXT下区成本:IF(CURRBARSCOUNT<=CONST(XA_26+1),CONST(IF(1,XA_94,XA_94)),DRAWNULL),DOTLINE,COLORYELLOW;NOTEXT上区成本:IF(CURRBARSCOUNT<=CONST(XA_26+1),CONST(IF(1,XA_81,XA_81)),DRAWNULL),DOTLINE,COLORRED;FFG1:DRAWBAND(C线,RGB(255,0,0),XA_33,RGB(255,0,0)); 阅读详情

我在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的话，执行会报错

...全文

【嵌入式底层知识修炼】按键和LED共用IO口的分时复用扫描方法文章目录01 - PCB原理图例程02 - 分时复用的注意项和设计2.1 - 注意项2.2 - 设计03 - 代码实现只要我跑的速度够快，寂寞就追不上我只要Key和Led切换速度够快，人眼就看不出来 ————小白如果你存在按键Key和显示Led共用同一个IO时，需要分时复用的需求，则可以移植代码进行使用：代码所占code少于0.5K 线程安全，中断安全可移植性高，配置容易注意：系统需要存在一个至少为1ms的时钟中断 01 - PCB原理图例程举2个Key和Led共用IO口的阅读详情

lubin520520zhuwen

Office开发/ VBA 5,174 成员 17,906 内容

+ 关注 + 加入社区

切换为时间正序

lubin520520zhuwen 2013-01-30

打赏
举报

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

mnxm 2013-01-30

打赏
举报

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

lubin520520zhuwen 2013-01-29

打赏
举报

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

mnxm 2013-01-29

打赏
举报

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

mnxm 2013-01-29

打赏
举报


    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

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

相关推荐