在 运行 Microsoft Access 作为计划任务后退出
Quit after running Microsoft Access as a Scheduled Task
我已将 Windows 任务管理器设置为 运行 MS Access 上的宏,时间间隔(15 分钟)
我运行宏是通过设置任务管理器而不是VBA设置的。宏 运行 是我的 VBA 代码和 WinSCP 的批处理文件!
我希望它在启动宏时关闭 Access 程序。 (希望不会在一秒钟内..因为我的 WinSCP 运行s 一秒钟完成导入 100%)
有没有可以随意设置的?
What is not working : Automatically close the Access program upon
starting it to trigger macro to run by Windows Task Manager
What's working: Task Manager automatically starts my Access program
将其放在代码模块的顶部:
#If VBA7 Then
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems
#Else
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 32 Bit Systems
#End If
要在一秒钟后退出 Access,请调用此子程序:
Sub CloseAccess()
Dim i As Integer
For i = 1 To 10
Sleep 100
DoEvents
Next i
DoCmd.Quit
End Sub
我已将 Windows 任务管理器设置为 运行 MS Access 上的宏,时间间隔(15 分钟)
我运行宏是通过设置任务管理器而不是VBA设置的。宏 运行 是我的 VBA 代码和 WinSCP 的批处理文件!
我希望它在启动宏时关闭 Access 程序。 (希望不会在一秒钟内..因为我的 WinSCP 运行s 一秒钟完成导入 100%)
有没有可以随意设置的?
What is not working : Automatically close the Access program upon starting it to trigger macro to run by Windows Task Manager
What's working: Task Manager automatically starts my Access program
将其放在代码模块的顶部:
#If VBA7 Then
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems
#Else
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 32 Bit Systems
#End If
要在一秒钟后退出 Access,请调用此子程序:
Sub CloseAccess()
Dim i As Integer
For i = 1 To 10
Sleep 100
DoEvents
Next i
DoCmd.Quit
End Sub