Wer kann mir sagen wie man von einem Exceltabellenblatt aus eine Verknüpfung zu einer ACESS-Tabelle herstellt. Es wäre mir wirklich geholfen. Vielen Dank.
Herbert
u.a. VB Programm schreibt die ersten 3 Felder der ersten 10 Datensätze aus der ACESS-DB "D:Kosten" in das active Excel-Blatt.
Sub Aus_DB_in_Excel_Schreiben ()
Dim I as Long
Dim Anwendung As Database
Dim Daten As Recordset
Set Anwendung = DBEngine.OpenDatabase("D:Kosten")
Set Daten = Anwendung.OpenRecordset("Kosten", dbOpenDynaset)
überschriften in Zeile 1 Schreiben
let I = 1
let cells(i,1) = Daten.Fields(1).Name
let cells(i,2) = Daten.Fields(2).Name
let cells(i,3) = Daten.Fields(3).Name
Daten schreiben
let I =2
'Do While Not Daten.EOF
DO while I < 10
let cells(i,1) = Daten.Fields(1).Value
let cells(i,2) = Daten.Fields(2).Value
let cells(i,3) = Daten.Fields(3).Value
let I = i +1
Daten.MoveNext
Loop
Daten.Close
Anwendung.Close
End sub
Günter aus DO
ohne VBA wie folgt:
Menüpunkt Daten / externe Daten / neue Abfrage erstellen
Neue Datenquelle anlegen
Namen vergeben
Access-Treiber auswählen
Datenbank auswählen
Felder auswählen
ev. Sortierung
Ende
Gruss Harald
jedoch suche ich eine Verknüpfung zu eine bestehenden Acess-Tabelle, dass wenn ich die Daten in Excel ändere sich die Daten auch automatisch in der Acess-Tabelle mitändern. Weist du eine Lösung? Mir wäre damit wirklich geholfen.
Vielen Dank. LG Herbert