execl工作表数据导入到ACCSEE数据库代码报错

as42065300

引入下面的对象

暮烟批

老师，引用添加完还是报错，请帮忙在看一下，谢谢。

暮烟批

有老师在吗，请帮忙看一下吧，谢谢。

as42065300

你是真的皮，二楼大神给你弄好，自己非要放在2003版本中运行又不修改连接代码。
5楼附件按照图片红色框中修改，我测试通过....

w8899

WWWWWWWWWWWWWWWWWWWW  数据库密码：1234

A1:Z  修改为A1:AC

w8899

暮烟批 发表于 2018-8-29 10:41
有老师在吗，请帮忙看一下吧，谢谢。

你数据库有两个标题栏，删除上面那个

w8899

再来一个先删除全部旧数据再导入全部新数据

Sub 删除再导入ACCESS数据库()
'   引用Microsoft ActiveX Data Objects 2.x Library
    Dim cnn As New ADODB.Connection, rs As New ADODB.Recordset, SQL As String, strMsg As String
    Dim DatabaseFuPass As String: DatabaseFuPass = ThisWorkbook.Path & "\模具库.accdb"
    Const myPass As String = "1234"
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Jet OLEDB:Database Password=" & myPass & ";Data Source=" & DatabaseFuPass
    ' 清除旧数据
    SQL = "delete * from 数据库"
    cnn.Execute SQL
    ' -----------
    SQL = "SELECT A.* FROM [Excel 12.0;Database=" & ThisWorkbook.FullName & ";].[数据库$A1:Z" & Sheets("数据库").Range("b" & Sheets("数据库").Rows.Count).End(xlUp).Row _
        & "] A LEFT JOIN (Select * From 数据库)  B ON A.单号=B.单号  WHERE B.单号 IS NULL"
    rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
    ' 导入数据
    SQL = "INSERT INTO 数据库 " & SQL
    cnn.Execute SQL
    strMsg = rs.RecordCount & "条记录已添加到数据库！"

    MsgBox strMsg, vbInformation, "提示"
    rs.Close: cnn.Close
    Set rs = Nothing: Set cnn = Nothing
End Sub