Office: Zugriff auf Access Datenbank aus Excel?

Hi

Frage, (also in Access bin ich schon ziemlich erfahren mit VBA etc.. nur Excel noch nicht so) ich möchte einen Button programmieren in Excel, der aus einer AccessDatenbank gewisse Datensätze (per SQL) ausliest und diese in ein Excel Sheet schreibt. Meine Probleme:

a) wie kriege ich den Zugriff auf die Access Tabelle?
b) (falls das noch jemand weiss wäre es auch noch ganz nützlich *Smilie wie sage ich Excel paste es da und da rein?

:)

 

Das ist ja nun wohl eher ein Excel-Problem - deswegen geht es ab jetzt auch im Excel-Forum weiter.

 

Muss das wissen, please help me *rolleyes.gif*

 

Hallo A3XX,

hier mal ein Ansatz. Nicht vergessen, einen Verweis auf die DAO-Bibliothek zu setzen.

Hth

Johannes

Code:

 

Hallo A3XX,


Du kannst in Excel unter

> Daten > externe Daten > neue Abfrage erstellen

direkt auf Deine Acces Tabellen zugreifen und mit Hilfe von MS Query die Daten auch filtern.




Gruß

Beate

 

Hallo A3XX

... noch ein kleiner Hinweis: falls es Dir auch dient, Werte nach bestimmten Kriterien aus der Access-Datenbank in einer bestimmten Zelle in Excel darzustellen, kannst Du im Stil des von Johannes erwähnten Makros statt einer SUB-Prozedur eine FUNCTION schreiben, die Du dann wie eine Excel-Funktion anwenden kannst:

=WertAusMeinerAccessDB(Kriterium1,Kriterium2)

Gruss

 

Hi,

und wie bekommst du damit mehrere Werte (unbekannte Anzahl) in die Tabelle zurück?

CU

Johannes

 

Hallo Johannes und A3XX

... wie gesagt, Du kannst so nicht eine beliebige Anzahl Datensätze aus Access nach Excel transferieren, aber Du kannst z.B. das SQL-Statement wie folgt formulieren (s. VBA-Makro von Johannes):

sqlstring = "Select Sum(Buchung.Betrag) AS Betrag From Tabelle Where Tabelle.Konto = 1000;"

oder

sqlstring = "Select Kunde.Name & " " & Kunde.Vorname From Kunde Where Kunde.Nr = " & KundenNr & ";"

Das Feld KundenNr übergibst Du der Function als Parameter.

Die While-Schlaufe lässt Du dann natürlich weg.

Wenn Du mir ein konkretes (einfaches) Beispiel gibst kann ich Dir zeigen wie die Function aussehen muss.

Gruss