为什么ado打不开excel......

[liangzhifa0427]

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim connStr As String
'fbd1.ShowDialog()
'MsgBox(fbd1.SelectedPath)
ofd1.Filter = "Excel文件|*.xls"
ofd1.ShowDialog()
fileNameStr = ofd1.FileName
connStr = $"Provider=Microsoft.ACE.OLEDB.12.0;Data Source={fileNameStr };Extended Properties=Excel 12.0"
conn.Open(connStr)

提示
发生了 System.Runtime.InteropServices.COMException
HResult=0x800A0E7A
Message=未找到提供程序。该程序可能未正确安装。
Source=ADODB.Connection

[XBodhi.]

版本 问题。确认 OFFICE 版本。

[exception92]

https://www.baidu.com/baidu?word=%E6%9C%AA%E6%89%BE%E5%88%B0%E6%8F%90%E4%BE%9B%E7%A8%8B%E5%BA%8F%E3%80%82%E8%AF%A5%E7%A8%8B%E5%BA%8F%E5%8F%AF%E8%83%BD%E6%9C%AA%E6%AD%A3%E7%A1%AE%E5%AE%89%E8%A3%85&ie=utf-8&tn=myie2dg&ch=6

[changjiangzhibin]

楼主：不同的Office或Access，使用的连接语句是有区别的

[正怒月神]

我记得，去下载一下 access驱动就好了。