Microsoft Office Access数据库引擎找不到对象'sheet1 $'

所以，我在vb6中创build了一个简单的应用程序。 这是将Excel Sheet1内容显示到数据网格视图中。

If CommonDialog1.FileName = "" Then Label2.Caption = "No file selected." Else file_name = CommonDialog1.FileName Label2.Caption = file_name End If Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= file_name;Extended Properties=Excel 12.0;" If cn.State = adStateOpen Then MsgBox "Connected to Excel File" End If strQuery = "SELECT * FROM `Sheet1$`" <<Error Highlighted>> Set rs = cn.Execute(strQuery) rs.Close cn.Close 

但是我收到这个错误：

Microsoft Office Access数据库引擎找不到对象'sheet1 $'。 确保对象存在，并且正确拼写其名称和path名称。

Answer 1

 cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= file_name;Extended Properties=Excel 12.0;" 

这里的文件名字面上是“file_name” – 您需要将variables连接到连接string：

 cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _ file_name & ";Extended Properties=Excel 12.0;"