Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
208to212
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
208to212
208to212
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Import von Excel - Daten in Access per VBA

Import von Excel - Daten in Access per VBA
23.01.2003 23:22:53
Timo
Hallo zusammen

Kennt jemand eine Möglichkeit, mit Hilfe von VBA automatisiert Daten von Excel in eine (neue) Access Datenbank (Tabelle) zu übergeben ? Analog dazu sollte es auch möglich sein, dieses oder ein ähnliches Script so zu verwenden, daß man per Datei - Auswahl - Dialog in Access eine XLS - Datei öffnet, die dann in eine Access - Tabelle importiert wird. Prinzipiell suche ich also nach der Syntax zur Umwandlung der XLS - Felder in Access - Felder.

Freue mich über jede Antwort

Danke

Timo

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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

Anzeige

189 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige