Question

求excel vba代码，打开工作表依据条件自动执行宏的代码

要求：
每次打开a.xlsm文件，首先检查当前时间是否是某小时15分，如 22:15分等。
如果是，则执行模块9里的宏x，执行完毕后自动保存关闭。
如果否，则什么都不做，保持a.xlsm的打开状态。
如果只是简单的回复个用auto_open之类可完成云云的就不用回复了，求的是依据上面条件来完成的代码。感谢真心帮助的高手，祝大家羊年事业顺利，爱情甜蜜！

Answer 1

哎，这个问题真的有点不好回答了。
首先，一定要用auto_open中写代码，或者在workbook_open事件中写入代码。
其次，判断当前时间，用minute(now())就可以了吧？
最后，保存么，你录制一个即可。

补充，if判断就不用写了吧？

追问

你好，非常感谢你的回复。
希望能帮完整的写一下，自己这方面的知识还是欠缺些，再次感谢！

追答

private workbook_open()
    if minute(now())=15 then
        ‘运行模块9中的x
        x
        thisworkbook.close true        
    endif
end sub

差不多以上吧，未测试仅供参考。

追问

非常感谢您的帮助。
只能采纳一个答案，skyzxh 更接近，就采纳他的了。

追答

呵呵，无所谓啊，没关系 的。

Answer 2

Private Sub Workbook_Open()
If Hour(Now()) = 22 And Minute(Now())=15 Then

Set c = ActiveWorkbook
Call 宏x

c.Save
c.Close
End If
End Sub