EXCEL VBA 运行access 过程application 失败

cwthaha123

代码是这样的

1. Function marcorun(sql As String)
   
2.   Dim DataPath As String
   
3.   Dim objAccess As Access.Application
   
4.     DataPath = ("\\10.0.0.200\Database.mdb")
   
5.    ' objAccess.Visible = True
   
6.     'On Error Resume Next
   
7.     Set objAccess = New Access.Application  '创建access对象
   
8.     objAccess.OpenCurrentDatabase DataPath, False, "123" '打开对象
   
9.     objAccess.Run sql '运行access【测试】事件
   
10.     Set objAccess = Nothing    '释放objAccess对象
    
11. End Function

复制代码

在objAccess.Run sql 的时候报错了 说 run 作用于 application 时失效
在别的电脑都能没问题，一台电脑新安装了win10，就运行不了了
是不是因为MSACC版本太低导致的？

cwthaha123

惺惺惜惺惺惺惺惜惺惺