Private Sub Workbook_Open()
Application.OnTime Now() + TimeValue("00:00:10"), "wbclose"
End Sub
Public Sub wbclose()
Application.DisplayAlerts = False
ThisWorkbook.Close savechanges:=True
Application.DisplayAlerts = True
End Sub追问
不行，你实验过没有
追答要把代码放到workbook的open事件中。我试过肯定可以的
追问还是不行，不知道哪里问题，给过源文件吧，
追答详见附件。
你的方法更简
本回答被提问者采纳EXCEL高手如何用VBA实现定时关闭
Private Sub Workbook_Open()Application.OnTime Now() + TimeValue("00:00:10"), "wbclose"End Sub Public Sub wbclose()Application.DisplayAlerts = False ThisWorkbook.Close savechanges:=True Application.DisplayAlerts = True End Sub
EXCEL高手如何用VBA实现10秒后关闭
Dim TID As Long Const Sec = 10 '可以在这里修改时间 Sub CloseTest(ByVal hWnd As Long, ByVal uMsg As Long, ByVal idevent As Long, ByVal Systime As Long)Application.SendKeys "~", True '发送回符，即关闭窗口的命令 KillTimer 0, TID End Sub Sub 十秒钟自动关闭()TID = SetT...
excel中如何使用vba来定时运行一个程序?
Excel中使用vba来定时运行程序的操作步骤如下：首先我们打开一个工作样表作为例子。使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Sub myProcedure()MsgBox ("祝你生日快乐")End Sub 这个过程很简单，就是显示一个祝你生日快乐的对话框，但是正常的需要激活运行，但是...
EXCEL高手如何用VBA宏实现自动关闭
通常的做法是，在关闭工作簿事件中将所有有用的工作表深度隐藏，显示一个没有的工作表，可在其中写明必须启用宏之类的提示信息。在工作簿打开事件中，将有用工作表显示，无用工作表隐藏。这样当不启用宏打开工作簿将没有任何有用内容，只能看见一个无用工作表中的提示信息。打开时启用宏才能看到和使用...
VBA“定时器”的实现
在Excel VBA编程中，虽然没有内置的定时器控件，但通过Application对象的OnTime方法可以实现精准的时间调度。这一功能在第31讲中详细讲解，旨在帮助你理解如何利用VBA编写定时任务。OnTime方法是关键，它允许你在指定的时间或事件后运行一个过程。例如，使用Now + TimeValue(time)可以设定一个从现在开始的...
excel使用vba关闭表格的两种方法
excel中使用vba关闭excel的两种方法，有需要的朋友可以参考本文，来看看吧！步骤 1、首先我们打开一个工作样表作为例子。2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Sub SendKeysSample()Application.SendKeys (%fx)End Sub 3、这个代码很简单，sendkeys是应用...
能不能实现EXCEL定时关闭?
楼上的代码结合一下就行了，thiswork里的open，用ontime触发aa宏的关闭表格事件。（以下代码为15秒触发宏 aa）Private Sub Workbook_Open()Application.OnTime Now + TimeValue("00:00:15"), "aa"End Sub建模块，输入如下代码。（以下代码为保存并退出工作簿，保存一下不至于输入的内容丢失）Sub ...
关于excel的vba 如何实现用宏来打开一个窗体,三秒后再自动关闭这个窗体...
Sub aa()Dim SetTime As Date UserForm1.Show SetTime = DateAdd("s", 3, Now())Application.Wait SetTime UserForm1.Hide MsgBox " i will shutdown "End Sub
excel如何通过vba代码关闭工作薄呢?
1、首先我们打开一个工作样表作为例子。2、我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Option Explicit Sub setcap()ThisWorkbook.Close False End Sub 3、close方法必须有一个对象，对象为workbooks，在这里我们使用的thisworkbook可以直接使用参数。而workbooks使用...
VBA 让Excel在指定的时间关闭重新打开,求代码?
Application.ScreenUpdating = False Application.DisplayAlerts = False Application.EnableEvents = False Application.EnableEvents = True Application.DisplayAlerts = True Application.ScreenUpdating = True Application.OnTime
