Ist es möglich das Anhängen von Excel-Daten in eine Access-Datenbank-Datei mit VBA in Excel?

Ich habe drei Zellen in einem Excel 2010-Arbeitsblatt, sagen wir a1, a2 und a3. Jedes mal, wenn der Benutzer läuft mein Excel-makro, ich brauche es, um die Infos in die Zellen und fügen es zu einer bestehenden Access-DB-Datei. Das ist alles, was in der db-Datei, nur eine Liste.

So, ich nicht wollen, zu IMPORTIEREN aus Access. Ich möchte dies alles geschieht auf der Excel-Seite, vorzugsweise ohne öffnen der Zugriff auf alle. Ist das möglich oder kann ich das nur meinem Mann sagen, es zu vergessen?

Wenn es möglich IST, kann mir jemand eine Ahnung, wie gehen Sie vor? Oder wo lernen Sie es? Ich bin ok mit VBA in Excel, aber habe null Erfahrung mit Access oder auch mit Datenbanken.

Dank!

  • Definitiv möglich. Sie können den Zugriff auf die Microsoft Access-Objektbibliothek in Excel VBA, und stellen Sie eine ADO-oder ODBC-Verbindung zur Datenbank, und führen Sie eine SQL-Anweisung in der Excel-VBA.
  • Der code von DIESE FRAGE sollte hoffentlich für den Einstieg 🙂 Ansonsten jede Menge Tipps auf Google. Starten Sie es, und wenn du spezielle Probleme bei der Implementierung der code, aktualisieren Sie Ihre Frage entsprechend. Als derzeit angegeben, Fragen zu Fragen, um Ressourcen zu lernen, über Themen, die sind in der Regel off-limits an SO.
  • Danke für die Antworten. Und tut mir Leid ich wollte damit nicht zu brechen alle Regeln. Ich Schätze die Hilfe.
InformationsquelleAutor user3637835 | 2014-05-14
  1. 6

    Erstellen Sie einen Verweis auf die Microsoft DAO 3.6 object library und starten Sie die Wiedergabe mit diesem code:

    Sub DBInsert()
Dim DB As DAO.Database
Dim RS As DAO.Recordset

    ' open database
    Set DB = DAO.OpenDatabase("C:\Users\Myself\Desktop\MyDB.mdb")

    ' open table as a recordset
    Set RS = DB.OpenRecordset("Table1")

    ' add a record to the recordset
    RS.AddNew

    ' fill fields with data ... in this case from cell A1
    RS.Fields("Field1") = [A1]

    ' write back recordset to database
    RS.Update

    ' important! cleanup
    RS.Close

    ' forget to close the DB will leave the LDB lock file on the disk
    DB.Close

    Set RS = Nothing
    Set DB = Nothing
End Sub

    Erstellen Sie eine Schaltfläche auf dem Blatt und platzieren Sie diesen code in das Button_Click (), so kann der Benutzer das senden der Daten an die DB, wenn alle Eintrag ist getan.

    Weitere Ressourcen:

    Office 2013 /Data Access /Wie kann ich ...

    Die Auswahl an ADO oder DAO für die Arbeit mit Access-Datenbanken

    • Hinzugefügt, weitere Ressourcen für "wo zu lernen, über Sie"
    • Danke!!!!!!! Ich denke, das ist genau das, was ich brauchte.
    • willkommen ... bitte überprüfen und erwägen, akzeptieren Sie die Antwort, so dass auch andere Benutzer davon profitieren können. Gerne erhalten Sie weitere gute Fragen von dir.
    InformationsquelleAutor MikeD
Schreibe einen Kommentar