VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Daten aus Excel in Access schreiben	14.08.2020 15:52:31	Stefan
Daten aus Excel in Access schreiben	15.08.2020 15:07:50	Ulrich
Daten aus Excel in Access schreiben	15.08.2020 16:56:55	Mase
Daten aus Excel in Access schreiben	15.08.2020 17:58:00	volti
@KH	15.08.2020 22:29:12	Mase
@KH	15.08.2020 22:51:46	Gast54923

Ansicht des Beitrags:

Von:
Stefan

Datum:
14.08.2020 15:52:31

Views:
854

Rating:

Antwort:

Thema:
Daten aus Excel in Access schreiben

Hallo zusammen,

ich probiere daran herum, Daten in Excel einzugeben und diese per Mausklick in eine Accessdatenbank zu übergeben. Die Lösung ist vermutlich extrem einfach, ich kriege es aber irgendwie nicht auf die Kette.

Zum Üben habe ich eine Tabelle mit Namen "tbl_Namen" angelegt und per SQL

INSERT INTO tbl_Namen (Vorname, Nachname) VALUES ('Max', 'Mustermann')

dieser Tabelle hinzugefügt.

Nun habe ich folgenden Code in Excel:

Private Sub cmd_einlesen_Click()

    Dim strDB As String
    Dim strCon As String
    Dim SQL As String
    Dim objCon As Object
    Dim objRst As Object

    strDB = ThisWorkbook.Path & "\Test_Datenbank.accdb"

    Set objCon = CreateObject("ADODB.CONNECTION")
    Set objRst = CreateObject("ADODB.Recordset")

    strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strDB & _
             ";Persist Security Info=False;"
    objCon.Open strCon
  
    SQL = "Insert Into tbl_Namen(Vorname, Nachname) Values ('" & Tabelle1.Range("H4").Value & "','" & Tabelle1.Range("I4").Value & "');"
           
       objCon.Execute SQL
    
    objRst.Close: objCon.Close
    Set objRst = Nothing: Set objCon = Nothing
  End Sub

Wenn ich dies ausführe, erscheint jedoch ein Laufzeitfehler

Was mache ich falsch?

Vielen dank und viele Grüße

Stefan

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Daten aus Excel in Access schreiben	14.08.2020 15:52:31	Stefan
Daten aus Excel in Access schreiben	15.08.2020 15:07:50	Ulrich
Daten aus Excel in Access schreiben	15.08.2020 16:56:55	Mase
Daten aus Excel in Access schreiben	15.08.2020 17:58:00	volti
@KH	15.08.2020 22:29:12	Mase
@KH	15.08.2020 22:51:46	Gast54923