excel到入sql server出现odbc调用失败错误,代码如下,是参考微软网站的,所以代码应该没问题吧
    Dim cn As ADODB.Connection
    Dim strSQL As String
    Dim lngRecsAff As Long
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=C:\test\xltestt.xls;" & _
        "Extended Properties=Excel 8.0"
    'Import by using Jet Provider.
    strSQL = "SELECT * INTO [odbc;Driver={SQL Server};" & _
        "Server=<server>;Database=<database>;" & _
        "UID=<user>;PWD=<password>].XLImport9 " & _
        "FROM [Customers$]"
    Debug.Print strSQL
    cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
    Debug.Print "Records affected: " & lngRecsAff       
    cn.Close

解决方案 »

  1.   

    ODBC(数据源)测试成功了没?
      

  2.   

    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
            "Data Source=C:\test\xltestt.xls;" & _ 
            """Extended Properties=Excel 8.0""" 
      

  3.   

    按照楼上的改了之后出现"找不到可安装的ISAM"错误
      

  4.   

    http://www.connectionstrings.com/?carrier=excelVB6 就应该用 ODBC 的方式,好像微软没说过 OLEDB 的方式是向下兼容的。