Export Excel-Arbeitsblatt in Access-Tabelle (.accdb)

Ich habe ein makro in Excel mit einer Befehlsschaltfläche auf einem meiner Arbeitsblätter. Wenn darauf geklickt wird, versuche ich die Daten aus meinem Tabellenblatt "FeedSamples" werden exportiert in eine Access-Datenbank Tabelle namens "ImportedData".

Kann jemand mir helfen? Ich habe versucht mehrere Beispiele aus dem Netz nicht mit Glück. Dies ist, was ich jetzt haben, aber immer wieder erhalten "Run-time error '3343': Unrecognized database format 'filePath\FeedSampleResults.accdb

Dim db As Database
Dim rs As Recordset
Dim r As Long
Set db = OpenDatabase("filePath\FeedSampleResults.accdb")
Set rs = db.OpenRecordset("ImportedData", dbOpenTable)
r = 2
Do While Len(Worksheets("FeedSamples").Range("A" & r).Formula) > 0
    With rs
        .AddNew
        .Fields("REPTNO") = Worksheets("FeedSamples").Range("B" & r).value
        .Update
    End With
    r = r + 1
Loop
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing

Sobald ich dies vollbracht, ich brauchen, um code zu haben, der Access-Tabelle exportieren der Daten in eine dBase-Datei.

InformationsquelleAutor Analytic Lunatic | 2013-06-05
  1. 2

    Hier ist der code mit ADO. Sie müssen den vollständigen Pfad zu Ihrer access-Datenbank in Datenquelle.

    Sub ExcelToAccessAdo()

    Dim cn As ADODB.Connection, rs As ADODB.Recordset, row As Long
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & _
            "Data Source=filePath\FeedSampleResults.accdb;"

    ' open a recordset
    Set rs = New ADODB.Recordset
    rs.Open "ImportedData", cn, adOpenKeyset, adLockOptimistic, adCmdTable

    row = 3    ' the start row in the worksheet
    Do While Not IsEmpty(Worksheets("FeedSamples").Range("A" & row))

        With rs
            .AddNew    ' create a new record
            .Fields("REPTNO") = Worksheets("FeedSamples").Range("A" & row).Value
            .Update
        End With
        row = row + 1
    Loop

    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing

End Sub
    InformationsquelleAutor Santosh
Schreibe einen Kommentar