Supportnet Computer
Planet of Tech

Supportnet / Forum / Datenbanken

Abfrage nach Excel exportieren & formatieren





Frage

Moinmoin!! Ich hätte da gern mal ein Problem.... Ich versuche eine Access Abfrage in Excel zu exportieren, und hab das mit docmd.outputto realisiert. Nur leider ist die Tabelle nicht richtig/gutgenug formatiert (Spalten sind zu schmal, zu viele Nachkommastellen werden angezeigt, etc). Gibt es eine Möglichkeit, in eine Formatvorlage von Excel zu exportieren, oder die Formatierung live in Excel vorzunehemn? Oder ist da was, was ich übersehen habe? Grüße, Andi

Antwort 1 von 14071

Hallo Andi,

zu den Nachkommastellen - du kannst die Eigenschaften in der Abfrage definieren. Wie du die Spaltenbreite anpassen kannst, weiss ich allerdings auch nicht. Welche Probs noch??

Vielen Dank für die Mühe, die uns gemacht hast. *gg*

ciao
Jürgen

Antwort 2 von oberzerfer

Mühe? Euch? Hab ich da irgendwas verpasst??

Hmm, an und für sich hab ich jetzt das ganze mit nem Bericht auch hingefriemelt, bis auf die Sache mit der Zeilenhöhe / Spaltenbreite nachher in Excel...
Kann ich mich vielleicht irgendwie in Excel "einloggen" und die Funktionen per DoCmd aufrufen?

Grüße, und hoffentlich nicht noch mehr Mühe,
Andi

Antwort 3 von 14071

He Oberzerfer,

stay cool - du hast doch geschrieben, du hättest gerne mal ein Problem. Und da ging ich halt davon aus, du kennst die geflügelten Worte von Bodo Bach (Radio FFH). Der fängt immer so an - und endet dann .... vielen Dank für die Mühe, die ich Ihnen gemacht habe.

War also spassig gemeint ;-).

Zu deinem Problem kann ich aber im Moment nix weiteres beitragen.

Also mach´s gut.
Jürgen

Antwort 4 von Glow

Ja, Du kannst Dich in Excel "einloggen".
Also: Du gehts in VBA unter Menüpunkt
"Extras", "Verweise" und wählst die
"MS Excel Object x.x Library" aus.

In deiner Prozedur kannst du jetzt folgende Variablen deklarieren:
z.B.:
Public ex As New Excel.Application (Neue Excelanwendung starten)
Public wb As Excel.Workbook
(Excel-Arbeitsmappe deklarieren)
Public sh As Excel.Worksheet
(Excel-Arbeitsblatt deklarieren)

Set wb = ex.Workbooks.Add oder
set wb= ex.workbook.open("Dateiname")
Set sh = wb.ActiveSheet
(aktuelles Arbeitsblatt zuweisen)
ex.Visible = True
(Excel sichtbar)

Zellengrößen kannst Du z.B. so verändern:
sh.Range("A1").Width
sh.Range("A1").Height

So kannst Du auf alle Excelfunktionen zugreifen, musste einfach ausprobieren.

Ciao
Matze