找不到可安装的ISAM

希望123456

Dim cnADO As Object
'建立连接对象
Set cnADO = CreateObject("ADODB.Connection")
'连接到当前工作表中的数据源 ThisWorkbook.Path & "\数据库.xlsx"
cnADO.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 xlsm;HDR=YES"""
  If cnADO.State = 1 Then
  MsgBox "数据库连接成功！"
  Else
  MsgBox "数据库连接失败！"
  End If
coADO.Close
Set coADO = Nothing

出现这个错误是什么原因

希望123456

cnADO.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\VBA教程之ADO篇2023.6.1.xlsm" & ";Extended Properties=""Excel 12.0 Macro;HDR=YES"""   macro 是宏指令或宏代码的意思。在数据源中，它表示一个Excel 12.0的宏，即该数据源是一个包含宏指令或宏代码的工作簿。
原来少了一个macro

语虚何以言知

希望123456

语虚何以言知 发表于 2023-6-1 16:48

谢谢呀，眼睛看花了！可是加上那个macro，也不会报错

语虚何以言知

希望123456 发表于 2023-6-1 19:39
谢谢呀，眼睛看花了！可是加上那个macro，也不会报错

你建立了cnADO对象 ,后面关闭的是coADO对象