从 vb 打开并运行访问宏

Question

我在窗口中使用任务计划程序来触发宏，我想使用 Access 数据库 accdb 文件格式执行此操作，但是我不断收到错误

对象需要 opencurrentdatabase("(

'Run Database
Dim ObjAccess, ObjDB
Set ObjAccess = CreateObject("Access.application")
objAccess.visible = false
Set ObjDB = ObjAccess.OpenCurrentDatabase("filepathfilename.accdb", False) 'error occurs here
ObjDB.Application.Run "'Checklist.accdb'!cmdChkSelectAll_Click" 
ObjDB.Application.Run "'Checklist.accdb'!cmdGenerateAllLists_Click" 
ObjDB.Close False 
ObjAccess.Quit
Set ObjAccess = Nothing

Answer 1

以下内容适用于我在常规模块和宏中运行 VBA 过程：

Dim ObjAccess
Set ObjAccess = CreateObject("Access.application")
ObjAccess.visible = false
ObjAccess.OpenCurrentDatabase("filepathfilename.accdb") 
ObjAccess.Run "Test6"
ObjAccess.DoCmd.RunMacro "Macro1" 
ObjAccess.Quit
Set ObjAccess = Nothing