vba 自动运行报错。

fxs320 2010-03-09 02:35:28
Private Sub Workbook_Open()
Call runtimer
End Sub
Sub runtimer()
Application.OnTime Now + TimeValue("00:00:05"), "saveit"
End Sub

Public Sub saveit()
msg = MsgBox("ÅóÓÑ£¬ÄãÒѾ­¹¤×÷ºÜ¾ÃÁË£¬ÏÖÔھʹæÅÌÂð£¿" & Chr(13) _
& "Ñ¡ÔñÊÇ£ºÁ¢¿Ì´æÅÌ" & Chr(13) _
& "Ñ¡Ôñ·ñ£ºÔݲ»´æÅÌ" & Chr(13) _
& "Ñ¡ÔñÈ¡Ïû£º²»ÔÙ³öÏÖÕâ¸öÌáʾ", vbYesNoCancel + 64, "ÐÝÏ¢Ò»»á°É£¡")
'ÌáʾÓû§±£´æµ±Ç°»î¶¯Îĵµ¡£
If msg = vbYes Then ActiveWorkbook.Save Else If msg = vbCancel Then Exit Sub
Call runtimer 'Èç¹ûÓû§Ã»ÓÐÑ¡ÔñÈ¡Ïû¾ÍÔٴε÷Óà Runtimer
End Sub

标注的地方,总说宏无法运行。
...全文
148 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
ACMAIN_CHM 2010-03-09
  • 打赏
  • 举报
回复
Public Sub saveit()
这个程序你放在哪儿了? 要把它放到一个新添加的模块中,而不是sheet1/sheet2/.../ thisworkbook 这些模块中。

5,172

社区成员

发帖
与我相关
我的任务
社区描述
其他开发语言 Office开发/ VBA
社区管理员
  • Office开发/ VBA社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧