Access97: Listenfeld-Inhalt in Datei exportieren

Hallo Experten!

Ich hab in einem Access Formular (Access97) ein Listenfeld, dessen Inhalt sich aus einer SELECT-Abfrage ergibt.
Gibt es einen Weg, den jeweiligen Inhalt in eine Datei (txt oder xls) zu exportieren?

Von VBA hab ich etwas Ahnung, aber eindeutig nicht ausreichend…

Danke für jeden Hinweis!

Gruß
Moe

Hallo Moe,

ein Moeglichkeit waere aus dem SELECT-Statement eine Abfrage on-the-fly zu erzeugen ( Mit CreateQueryDef ) und diese dann in der TransferText(…) Anweisung zu verwenden.

Hope this helps
Peter

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

Hallo Moe,

Ich hab in einem Access Formular (Access97) ein Listenfeld,
dessen Inhalt sich aus einer SELECT-Abfrage ergibt.

die Select-Abfrage basiert auf einer Abfrage, die du einfach per Anklicken, Datei/Export/Dateityp=Excel in Excel exportieren kannst.

Von VBA hab ich etwas Ahnung, aber eindeutig nicht
ausreichend…

wie du sehen kannst, benötigst du dafür kein VBA :smile:

Grüße aus Essen
Wolfgang

Hallo Wolfgang,

der Export soll dem User ( Programmierer) aus einem Formular heraus ermöglicht werden, z.B. durch Anklicken eines Buttons. Hätte ich vielleicht auch erwähnen sollen…
Deine Lösung funktioniert nur auf Datenbank-Ebene, auf die der User aber nicht drauf darf.

Kann man den Export aus dem Formular heraus anstoßen?

Gruß
Moe

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

Hallo Moe,

der Export soll dem User ( Programmierer) aus einem
Formular heraus ermöglicht werden, z.B. durch Anklicken eines
Buttons. Hätte ich vielleicht auch erwähnen sollen…
Deine Lösung funktioniert nur auf Datenbank-Ebene, auf die der
User aber nicht drauf darf.

Kann man den Export aus dem Formular heraus anstoßen?

na klar, durch VBA Programmierung.

mal angenommen die Tabelle heißt „TEST“, dann würde der VBA -Code beim Klicken der Taste z.B. so aussehen:

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, „TEST“, „TEST2EXCEL.XLS“

und hier wird noch Excel aufgerufen:

Set oApp = CreateObject(„Excel.Application“)
oApp.Visible = True

Grüße aus Essen
Wolfgang

1 Like

Hi Wolfgang,

das hilft mir weiter! Vielen Dank.

Gruß aus Kölle,
Moe

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