PDA

Vollständige Version anzeigen : Importieren eine Excel Tabelle in eine Access Tabelle


Yorgo
20.11.2000, 11:34
DRINGEND!!!
Wie kann ich bestimmte Felder einer Excel Tabelle in eine bestehende Excel Tabelle importieren

Pia
20.11.2000, 19:15
Depends on...
1. Gibt es für die in Excel vorliegenden Werte schon eine Spalte in Access??
2. wenn ja, dann importiere ich in einem solchen Falle die komplette Excel-Tabelle nach Access, verknüpfe die beiden Tabellen (ex-Excel und die bestehende in Access über das Feld welches einen eindeutige Zuordnung zulässt) in einer Aktualisierungsabfrage und sage der Abfrage, dass [Access]![Feld1]=[Excel]!Feld1] sein soll.

Vielleicht hilfts ja
Gruß

Rainer Bruecklmaier
21.11.2000, 16:56
Sub Einlesen()

'Diese Subroutine liest den Inhalt des Feldes A1 des Arbeitsblattes "Blatt1" der
'Exceldatei "C:\Exceldatei.xls" in das Feld "feld1" der Accesstabelle "Testtabelle" ein
'dazu muss allerdings unter "Extras - Verweise" die Excel-Lib eingebunden sein!

Dim wb_exceldatei as Workbook
Dim ws_arbeitsblatt as Worksheet
Dim rs_test as Recordset

set rs_test = CurrentDB.Openrecordset("Testtabelle")

Set wb_exceldatei = Workbooks.Open("C:\Exceldatei.xls, , True)
Set ws_arbeitsblatt = wb_exceldatei.Sheets("Blatt1")

With rs_test 'recordset
.AddNew
!feld1 = ws_arbeitsblatt.range("A1")
.Update
End With

End Sub