用adoConnection.Open打开EXCEL文件,为何出现运行错误^-2147418113^

Question

你将这个串到ODBC中测试一下，是不是路径问题？

Answer 1

Set m_objApp = CreateObject("Excel.Application")
Set m_objBooks = m_objApp.Workbooks
Set m_objSheet = m_objBook.Worksheets(m_pIndex)
設置工作簿
Set Item = m_objSheet.cells(m_nRow, m_nCol)
取值(一行一行的取)
這里運用了COM組件模型.注意﹕如果問題解決請加分

Answer 2

Set m_objApp = CreateObject("Excel.Application")
Set m_objBooks = m_objApp.Workbooks
Set m_objSheet = m_objBook.Worksheets(m_pIndex)
設置工作簿
Set Item = m_objSheet.cells(m_nRow, m_nCol)
取值(一行一行的取) 記著別忘了關閉
這里運用了COM組件模型.注意﹕如果問題解決請加分

Answer 3

在EXCEL中引用ADO控件，用它生成ADO联接字串，测试它是否联接成功。

Answer 4

你为什么不用VBA呢？参见VBAXL8.HLP，OFFICE安装盘上有

Answer 5

Public Sub excelconnection(getpath)
   ' On Error GoTo errhandler
    If Conne.State <> 1 Then
        Conne.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                  "Data Source=" & getpath & _
                  ";Extended Properties=""Excel 8.0;HDR=NO;"""
    End If
'    Exit Sub
'errhandler:
'''
end sub连接后，用recordset open 的时候的“select *　from ”& table_name
这里的表名恐怕要用VBA来创建（Sample:worksheets(1).userange.name=table_name）
可这样做的话把第一行数据的标题也给当数据读出来了，不知那位高手能解决这个问题？