EXCEL与ACCESS交互求助！

ahh0511

有人相助吗，谢谢了！

ahh0511

坐等大侠出现，谢谢！

duquancai

ahh0511 发表于 2017-4-19 19:46
谁能助我，必送鲜花！！！

Sub shisi()
    Dim conn As Object, sql$
    pf$ = ThisWorkbook.Path & "\物控中心.accdb"
    Set conn = CreateObject("adodb.connection")
    If Application.Version * 1 <= 11 Then
        conn.Open "Provider=Microsoft.Jet.Oledb.4.0;data source=" & pf
    ElseIf Application.Version * 1 >= 12 Then
        conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;data source=" & pf
    End If
    r = Range("a65536").End(xlUp).Row
    arr = Range("a2", Cells(r, "t"))
    For Each Rg In [a1:t1]
        s = s & "," & "`" & Rg.Text & "`"
    Next
    s = Mid(s, 2)
    For x = 1 To UBound(arr)
        For j = 3 To UBound(arr, 2)
            If Len(arr(x, j)) Then
                sr = sr & "," & arr(x, j)
            Else
                sr = sr & "," & "Null"
            End If
        Next
        sr = Mid(sr, 2): t = "#" & arr(x, 1) & "#"
        sr = t & "," & "'" & arr(x, 2) & "'" & "," & sr
        sql = "Insert into 物流计划 (" & s & ") VALUES(" & sr & ")"
        conn.Execute sql: sr = ""
    Next
    conn.Close
    Set conn = Nothing
    MsgBox "成功录入数据库"
End Sub

duquancai

ahh0511 发表于 2017-4-20 07:10
坐等大侠出现，谢谢！

附件，打开Excel文件，点击按钮》》》》》》》》》》

duquancai

现在我之所以不再想写代码。一旦写了，提供附件了，楼主屁都不放一个了！所以以后坚决不写代码了，只说说或者截图就行了。

Kaohsing

或许人个正忙于测试揣摩呢。

ahh0511

duquancai 发表于 2017-4-20 18:58
现在我之所以不再想写代码。一旦写了，提供附件了，楼主屁都不放一个了！所以以后坚决不写代码了，只说说或 ...

不好意思，我后面自己看书解决了，但还是要感谢老大出手，谢谢！送人玫瑰，手留余香！！！