看起来正确但错误800A09D5的VBscript

Question

我一直在寻找答案，但看起来我的vbscript是正确的。宏不在同名的模块中＃34; MasterSAP＆＃34;。看不出有什么问题，你会觉得这很简单，但我无法弄明白。

Dim accessApp
set accessApp = createobject("Access.Application")
accessApp.OpenCurrentDataBase("S:\Salem\SCHED\SeesStuff\Resources\MasterSAPData.accdb")

accessApp.Run "MasterSAP"
AccessApp.Quit
Set accessApp = nothing

Answer 1

很难猜到，因为缺少其余的代码，但是你应该在Run()调用的标准模块中有一个过程，如果你没有，你只是传递一个宏的名称这个错误会发生。

您应该将代码放在标准模块中，并使用以下定义;

Public Sub MasterSAP()
    ...
End Sub

您还要小心，此过程未放在名为MasterSAP的标准模块中，因为这也会导致错误，因为过程和模块将共享相同的命名空间。