求触发“另存为”的源事件

foz510foz510

请教大师，EXCEL的这样一个问题：

当保存文件时，可以触发：
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
End Sub

当关闭文件时，可以触发：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
End Sub
等等、等等

当我点击“另存为”时，我就不知道有无类似上面的东西没？
我想在点击“另存为”时，程序将执行一段我需要的代码，关健是没有上面的触发源。

谢谢指点！

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

清风_ll

你好，Workbook_BeforeSave事件中的SaveAsUI 参数为真的时候，相当于调用的就是SaveAs
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI =True Then
....................
End If
End Sub

foz510foz510

LEE老师：
不知为什么，“另存为”的对话框会出现两次
［B1］的值改变后，当点击“另存为”时，保存的文件名自动取［B1］的值，但不知为什么，“另存为”的对话框会出现两次，非常倒胃。
请大师指教，问题出在了什么地方？

清风_ll

当你点击另存为菜单项的时候，就会显示另存为对话框，而你的代码中又一次调用了另存为对话框。
试试这样：
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If SaveAsUI Then
        str1 = Sheet1.Cells.Find("文件名：").Next & ".xls"
        Application.SendKeys str1
    End If
End Sub

foz510foz510

非常感谢清风老师！
我试了，虽然不再出现再次对话框，但默认保存的文件名却还是“Book1.xls”，而不是我要的“BBBB.xls”
已经很接近了，快要成了，您看是哪里又出状况了？请指点。

清风_ll

我这里可以实现的，会不会是其他原因？

foz510foz510

我又在别的电脑上试了（选了三台电脑，均是lenovo品牌），都没使我激动，还有别的方法吗？
谢谢！

wxhnr

If SaveAsUI Then
            Cancel = True  '加一行
        ........

a1001246

请教大师
在vba工作簿中，在指定的时间段，第一次保存后触发打印事件，自动打印。规定外时间触发另一段程序（弹出对话框，判定是否需要打印）代码怎么写。万分感谢