Ergebnis einer Access-Abfrage in Excel übertragen

Computer: Software & Programmierung Microsoft Access
#1

Hallo!

Ich habe ein kleines Problem…wer kann mir helfen:

Ich habe eine Access-Datenbank und viele Abfragen, die ich darauf laufen lasse.
Nun möchte ich die Ergebnisse der einzelnen Abfragen in einer Prozedur in ein Excel-Datenblatt (z.B. in die Zelle A1) automatisch übertragen ohne dies per Hand machen zu müssen.

Wie kann ich das machen?

Beispiel: Ich habe eine Abfragen namens „Anzahl ausgeben“, die mir nur einen Zahlenwert zurückliefert. Dieser Wert soll „automatisch“ in die Zelle A1 eines Excel-Datenblattes mit dem Namen „Blatt1“ übertragen werden.

Vielen Dank für Eure Hilfe.

Gruß,

Andreas

#2

Hi,

dazu gibt es 2 Moeglichkeiten:

  1. Das Excel-Datenblatt als verlinkte Tabelle in ACCESS anlegen.
    Dann entspricht die ZELLE A1 der ersten Zeile der Datenspalte F1.

  2. Direkt in das XSL-Sheet schreiben:

====================================

Dim ExcelApp As Object
Dim NewMap As Object

Set ExcelApp = CreateObject(„excel.application“)
Set NewMap = ExcelApp.Workbooks.Open("irgendwas.XLS)
ExcelApp.Worksheets(„MeinWorksheet“).Activate

ExcelApp.Range(„A41:A41“).Select
ExcelApp.Range(„A41“).Value = „mein neuer Wert“

NewMap.Save
NewMap.Close
ExcelApp.Quit

Tschau
Peter

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Schau dir mal das DBWiki-Beispiel „AccessToExcel“ (http://www.dbwiki.de/wiki.php?title=Access_Beispield…) an.

Gruß aus dem Norden
Reinhard Kraasch

(http://www.dbwiki.de - das Datenbank-Wiki)