Re: Import von Excel - Daten in Access per VBA
24.01.2003 00:41:50
Bernd Held
Hallo Timo,das kannst Du beispielsweise über ADO machen. Der folgende Code überträgt eine exce-Tabelle Zeile für Zeile in eine Access-Datentabelle.
Sub DatenübernahmeNachAccess()
Dim ADOC As New ADODB.Connection
Dim DBS As New ADODB.Recordset
ADOC.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Eigene Dateien\Buchungen.mdb;"
DBS.Open "Veranstaltung", ADOC, adOpenKeyset, _
adLockOptimistic
Sheets("Veranstaltungen").Activate
Range("A2").Select
On Error GoTo fehler
Do Until ActiveCell.Value = ""
DBS.AddNew
DBS!Bdatum = ActiveCell.Value
DBS!Vdatum = ActiveCell.Offset(0, 1).Value
DBS!Veranstaltung = ActiveCell.Offset(0, 2).Value
DBS!V_Ort = ActiveCell.Offset(0, 3).Value
DBS!Teilnehmer = ActiveCell.Offset(0, 4).Value
DBS!Straße = ActiveCell.Offset(0, 5).Value
DBS!PLZ = ActiveCell.Offset(0, 6).Value
DBS!Ort = ActiveCell.Offset(0, 7).Value
DBS!Kosten = ActiveCell.Offset(0, 8).Value
If ActiveCell.Offset(0, 9).Value = "Ja" Then DBS!Bezahlt = True Else DBS!Bezahlt = False
DBS.Update
ActiveCell.Offset(1, 0).Select
Loop
DBS.Close
ADOC.Close
Set ADOC = Nothing
Set DBS = Nothing
Exit Sub
fehler:
MsgBox "Es trat ein Fehler auf!"
DBS.Close
ADOC.Close
Set ADOC = Nothing
Set DBS = Nothing
End Sub
Viele Grüße
Bernd
MVP für Microsoft Excel
Noch mehr Excel-Tipps und VBA-Datenbank unter: http://held-office.de