注意,这种方式不能打开有密码的文件
Sub RunAccessMacro()
Dim myAccess As Object
mydata = ThisWorkbook.path & "\Database1.accdb"
Set myAccess = CreateObject(mydata)
myAccess.Visible = False
myAccess.Run "test"
Set myAccess = Nothing
End Sub
注意,这种方式不能打开有密码的文件
Sub RunAccessMacro()
Dim myAccess As Object
mydata = ThisWorkbook.path & "\Database1.accdb"
Set myAccess = CreateObject(mydata)
myAccess.Visible = False
myAccess.Run "test"
Set myAccess = Nothing
End Sub