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
Hi,
dazu gibt es 2 Moeglichkeiten:
-
Das Excel-Datenblatt als verlinkte Tabelle in ACCESS anlegen.
Dann entspricht die ZELLE A1 der ersten Zeile der Datenspalte F1.
-
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]
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)