Question

VBA 如何定时调用宏

我有一个宏需要 每周二早上09:00 运行一次。
请高人提供一个这个定时调用宏的代码，谢谢。
huchun1112@ 163.com

Answer 1

1.通过宏赋予某个特殊的名称，在执行某项操作（例如启动 Word 或打开文档）时自动运行宏。Word 将下列名称识别为自动宏，或称“auto”宏。

2.运行条件:

AutoExec
启动 Word 或加载全局模板时

AutoNew
每次新建文档时

AutoOpen
每次打开已有文档时

AutoClose
每次关闭文档时

AutoExit
退出 Word 或卸载全局模板时

3.模块在自动宏（如 AutoExec）之后命名，包含一个名为“Main”的过程。任何模块中的过程在自动宏之后命名。

4.自动宏保存于 Normal 模板或文档中。自动宏运行，位于活动文档的 Normal
模板中，或活动文档选用的模板中。

5.代码如下
Sub Save()

mypath = "d:\my document\"

MyDate = Format(Date, "yyyymmdd")
b = MyDate + ".xls"
ActiveWorkbook.SaveAs Filename:= _
b, FileFormat:=xlText _
, CreateBackup:=False

ActiveWorkbook.Save

End Sub

Answer 2

Private Sub Worksheet_Activate()
Dim i, j
i = Weekday(Date) - 1
j = Hour(Now())
If i = 2 And j = 11 Then
call 你想要运行的宏的名字
Else
Exit Sub
End If
End Sub

追问

谢谢！但有一点没看懂。
为什么j=11呢？不应该是9吗？

追答

啊 。。。不好意思哈，，我这个试这段宏语言的时候是11点钟，，，所以写的11 ，，你改成9就可以了哈，，