Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
208to212
208to212
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Import von Excel - Daten in Access per VBA

Forumthread: 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

Anzeige

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
;

Forumthreads zu verwandten Themen

Daten aus Accessdatenbank holen: Variabel
Gordon

Moin moin,
ich habe eine Accessdatenbank, aus der ich mir per Makro Daten holen möchte. Habe daher mal per Recorder folgendes aufgezeichnet und etwas abgeändert:
With Worksheets("ZS").QueryTables.Add(Connection:=Array(Array( _ "ODBC;DSN=Microsoft Access-Datenbank;DBQ=D:\Dokumente und...
20.06.2009 09:46:23
Thread-ID: 1083060
4 Beiträge
Anzeige
Pivot Tabelle in Tabelle mit Spalten umwandeln??
okgi

Hallo liebe Excel Gemeinde!!
Meine Frage ist: wie kann ich eine Pivot Tabelle in eine Tabelle mit Spalten automatisiert überführen?
Zum Beispiel:
Pivot Tabelle
________KST_____________
Konto_.......1...........2...........3..
__A___.100,00................31,99
__B___...
15.12.2009 17:35:51
Thread-ID: 1124143
3 Beiträge
Anzeige
Excel-Tabellen in Word umwandeln
joko0803

Hallo alle,
ich bin nicht sicher, ob dieses Thema hier her gehört.
Falls nein, wäre ich für das Benennen eines entsprechenden Forums dankbar.
In einem Word Dokument habe ich viele Excel-Tabellen eingebunden.
Dieses Word Dokument muss ich an eine Behörde zur Weiterverarbeitung ve...
07.05.2010 16:29:49
Thread-ID: 1156132
6 Beiträge
Daten aus Access Felddatentyp Memo
Benedikt

Guten Tag zusammen
Weiss jemand wie ich diesen Knoten löse:
Mit Querry werden verschiedene Daten aus Access in diverse Excelzellen eingelesen. Klappt auch wunderbar
Im Datenfeld unserer Branchensoftware steht nachfolgender Text:
Vier gelbe Äpfel
12 Liter Süssmost
6 Weis...
12.10.2010 16:21:53
Thread-ID: 1182033
5 Beiträge
Daten aus EXCEL nach ACCESS
terraner

Moin!
Ich suche ein Makro mit dem ich aus immer gleich aufgebauten Excel-Mappen bestimmte Werte aus Zellen in eine Access Tabelle kopieren kann.
Danke schon im Voraus!
07.01.2011 11:11:48
Thread-ID: 1194395
4 Beiträge
Anzeige
Index außerhalb des gültigen Bereichs
sabbelschlaeppchen

Über eine Userform will ich Daten in eine Tabelle schreiben lassen. Wenn man auf den Ok-Button der Userform klickt soll folgende Prozedur ausgeführt werden: Private Sub CommandButton1_Click() Sheets("Tabelle1").Select Range("C3").Select ActiveCell.Value = Klasse Range("C4").Select ActiveCell.Va...
11.01.2011 20:17:41
Thread-ID: 1195100
5 Beiträge
Anzeige
Pivot-Tabelle in Einzeldateien gefiltert umwandeln
Thomas

Hallo liebe Forumsgemeinde,
ich benötige eure Hilfe bei folgendem Problem:
- Eine Pivot-Tabelle, nachstehend Master genannt, soll über die Ausprägungen eines definierten Seitenfelds (Filter-Seitenfeld) gefiltert und abgespeichert werden in eine separate Pivot-Datei, nachstehend Extrakt...
10.03.2011 16:26:59
Thread-ID: 1204839
2 Beiträge
Daten auslesen aus Access klappt nicht! HILFE
Stefan

Folgenden Quelltext hab ich eingegeben
Sub ExcelTabellenErstellen()

Dim arrSI() As Variant

Dim CRSPVerbindung As New ADODB.Connection

Dim CRSPtabSI As New ADODB.Recordset


CRSPVerbindung.Provider = "Micros...
21.05.2002 19:03:53
Thread-ID: 122507
2 Beiträge
Index außerhalb des gültigen Bereichs
Korl

Hallo,
ich habe habe lange nicht mehr im VBA-Bereich gemacht, deshalb ist mir wohl einiges abhanden gekommen ;-)
Mit nachfolgendem Code stoße ich an Grenzen. Fehlerwert = siehe Betreff Sub Daten_übernehmen() ' Daten aus der Datenbank ins Formular übernehmen ' aus der aktiven Zeile einz...
17.07.2011 20:48:42
Thread-ID: 1222511
4 Beiträge
Daten aus Access in Excel einlesen
rob

Hallo,
kann mir jemand sagen wie ich Daten aus einer Access-DB in ein Exceltabellenblatt einlesen kann bzw. wie ich die Informationen dort grafisch auswerten kann. Vielen Dank.

05.06.2002 10:41:20
Thread-ID: 126047
3 Beiträge
Daten aus Access nach Excel
zink

Hallo,
ich suche jetzt schon eine Weile im WEB und finde keine Lösung:
Wenn ich mir in Excel 2007 die Daten einer Access-Abfrage über
DATEN - Externe Daten abrufen - aus Access
rüberziehen will, erscheinen im Exceltabellenblatt nur die Feldnamen, die eigentlichen Daten werden...
19.03.2012 15:04:38
Thread-ID: 1255596
2 Beiträge
Datentransfer aus Access
Ptonka

Hallo zusammen,
ich gebe in Excel (2003) einen Wert in A1 ein und dieser Wert soll in einer Access-Tabelle (Tabelle1) in Spalte 1 (Nummer) gefunden werden und dann der entsprechende Wert aus Spalte 2 (Material) in Excel in die Zelle B1 geschrieben werden.
Lässt sich das realisieren und...
20.03.2012 12:09:09
Thread-ID: 1255716
2 Beiträge
Anzeige

Infobox / Tutorial

Excel-Daten automatisch in Access importieren per VBA

Schritt-für-Schritt-Anleitung

Um eine Excel-Tabelle in Access zu importieren, kannst Du VBA (Visual Basic for Applications) nutzen. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Excel öffnen: Stelle sicher, dass Deine Excel-Datei geöffnet ist.
  2. Visual Basic Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
  3. Neues Modul erstellen: Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" und wähle Einfügen > Modul.

  4. Code einfügen: Kopiere den folgenden Code und füge ihn in das Modul ein:

    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
  5. Code anpassen: Ändere den Data Source-Pfad zu Deinem Access-Datenbankpfad.
  6. Makro ausführen: Schließe den VBA-Editor und führe das Makro aus.

Mit diesem einfachen Script kannst Du Daten aus Deiner Excel-Tabelle in Access importieren. Du kannst auch den Dialog für die Dateiauswahl einbauen, um XLS-Dateien zu importieren.

Häufige Fehler und Lösungen

  • Fehler: "Index außerhalb des gültigen Bereichs": Dieser Fehler tritt auf, wenn Du versuchst, auf ein nicht vorhandenes Element in Deiner Excel-Tabelle zuzugreifen. Überprüfe, ob die aktiven Zellen korrekt und nicht leer sind.

  • Zugriffsverletzungen: Stelle sicher, dass Du über die erforderlichen Berechtigungen für den Zugriff auf die Datenbank verfügst.

  • Falscher Provider: Wenn Du eine neuere Version von Access nutzt, könnte der Provider für den OLEDB-Zugriff unterschiedlich sein. Verwende stattdessen Microsoft.ACE.OLEDB.12.0.

Alternative Methoden

Wenn Du Daten aus Excel in Access importieren möchtest, gibt es auch andere Methoden:

  1. Manueller Import: Du kannst Daten direkt in Access importieren, indem Du die Importfunktion in Access verwendest. Gehe zu Externe Daten > Excel und folge dem Assistenten.

  2. Power Query: Mit Power Query in Excel kannst Du Daten aus Access importieren und umgekehrt. Dies ist besonders nützlich für regelmäßige Datenaustausch-Tasks.

Praktische Beispiele

Hier sind einige praktische Beispiele für die Nutzung des Codes:

  • Import von Teilnehmerdaten: Stelle sicher, dass Du die richtige Struktur in Deiner Excel-Tabelle hast, um Teilnehmerdaten korrekt zu importieren.
  • Automatisierung: Du kannst dieses Script so anpassen, dass es bei jedem Öffnen der Excel-Datei automatisch ausgeführt wird.

Tipps für Profis

  • Fehlerbehandlung: Baue eine umfassende Fehlerbehandlung in Deinen Code ein, um unerwartete Fehler besser zu managen.
  • Optimierung: Achte darauf, den Code zu optimieren, um die Performance zu verbessern, insbesondere bei großen Datenmengen.
  • Datenvalidierung: Führe eine Datenvalidierung durch, bevor Du Daten importierst, um sicherzustellen, dass keine fehlerhaften Daten in Deine Access-Datenbank gelangen.

FAQ: Häufige Fragen

1. Wie kann ich eine Excel-Tabelle in Access importieren?
Du kannst eine Excel-Tabelle in Access importieren, indem Du VBA verwendest, wie im obigen Beispiel gezeigt. Alternativ kannst Du die Importfunktion in Access nutzen.

2. Was mache ich, wenn ich die Access-Datenbank nicht finden kann?
Stelle sicher, dass der Pfad zur Datenbank im VBA-Code korrekt ist. Du kannst auch den Windows-Dateiexplorer verwenden, um die Datei zu suchen.

3. Kann ich Daten mithilfe von VBA in Access aktualisieren?
Ja, Du kannst VBA verwenden, um Daten in Access sowohl zu importieren als auch zu aktualisieren. Verwende dafür die Update-Methode im Recordset.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige