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

Question

所以，我在vb6中创建一个简单的应用程序。它是将Excel工作表1内容显示在数据网格视图中。

  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 访问数据库引擎找不到对象 "表1$"。确保对象存在，并且拼写其名称和 路径名正确。

Answer 1

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

这里的文件名字面意思是"file_name" - 您需要将变量连接到连接字符串中：

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