none
vba使用ADO將EXCEL資料導入到SqlServer RRS feed

  • 問題

  •      Dim cn As ADODB.Connection
        Dim strSQL As String
        Dim lngRecsAff As Long
        Set cn = New ADODB.Connection
        cn.Open "Provider=SQLOLEDB;Data Source=DESKTOP-08N5M81;" & _
            "Initial Catalog=Mydatabase;User ID=sa;Password=xxx"

        'Import by using OPENDATASOURCE.
        strSQL = "SELECT * INTO Newtable FROM " & _
            "OPENDATASOURCE('Microsoft.ACE.OLEDB.12.0', " & _
            "'Data Source=C:\Users\my\Desktop\test.xlsx;" & _
            "Extended Properties=Excel 12.0 Macro')...[sheet1$]"
        Debug.Print strSQL
        cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
        Debug.Print "Records affected: " & lngRecsAff

        cn.Close
        Set cn = Nothing

    使用以上代碼 顯示錯誤:

    -2147217900(80040e14)

    連結伺服器(null)的Ole db提供者

    Microsoft Ace Oledb 12.0 報告了錯誤. 提供者並未給予

    任何關於錯誤的資訊

    2017年6月2日 下午 05:59

解答

所有回覆