因此,我在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
但我收到了这个错误:
数据库引擎无法找到对象“sheet1 1$”。确保该对象存在,并确保正确拼写其名称和路径名。
发布于 2015-04-20 08:34:08
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;"
https://stackoverflow.com/questions/29752852
复制相似问题