Question

所以，我在vb6中创建了一个简单的应用程序。它是将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数据库引擎找不到该对象＆＃39;工作表Sheet1 $＆＃39 ;.确保对象存在，并拼写其名称和路径名称正确。

Answer 1

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

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

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

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

1 个答案: