PDA

Vollständige Version anzeigen : Gefilterten Report nach Excel exportieren?


--=Franky=--
24.01.2008, 13:46
Hallo zusammen,

Ich erhalte die Meldungen

Laufzeitfehler 13
Typen unverträglich

im unten fett dargestellten Bereich.
Vielleicht kann mir jemand mitteilen, wo ich wie umformatieren muss.
Hatte schon einige Dinge versucht, aber jedesmal andere Fehler produziert, mal falsche Klammersetzung um einen Begriff und andere :rolleyes:

Ich hoffe, dass es mal wieder nur eine Kleinigkeit ist ;)


Private Sub Nichtabgeholte_Excel_Click()

Dim Pfad As String
Dim AktDBPfad As String

AktDBPfad = Left(CurrentDb.Name, (Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name))))
Pfad = DateiSpeichern(AktDBPfad, "Datei speichern")

If Not IsDate(Me!von) Or Not IsDate(Me!bis) Then
MsgBox "Bitte Datenfelder ausfüllen"
Else
DoCmd.OutputTo acoutreport, "Rpt_Master_01", acFormatXLS, Pfad, _
"[eingdat]between " & _
Format(Me!von, "\#yyyy\-mm\-dd\ hh:nn#") & " and " & _
Format(Me!bis, "\#yyyy\-mm\-dd\ hh:nn#") And "not isdate[ausgdat]" And "[videonull] = False"
' DoCmd.RunCommand acCmdFitToWindow
' DoCmd.RunCommand acCmdZoom100

MsgBox Pfad

End If


End Sub

Bracki
24.01.2008, 13:56
Hallo

muß das nicht eigentlich "acoutputreport" heisen?

--=Franky=--
24.01.2008, 15:59
Uups, aber nein, daran lag es nicht. Fehler bleibt bei "Typen unverträglich"

Hatte es schon zwischendurch mit

...
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, , _
"qry_xls_NoDbl", Pfad, _
...

versucht, das war aber leider auch nicht von Erfolg gekrönt.

Arne Dieckmann
24.01.2008, 16:15
Wie wär's wenn du die VBA-Onlinehilfe konsultierst? OutPutTo unterstützt keine Kriterien - an der Stelle wird der Parameter "AutoStart" erwartet. Wenn's denn ginge, müsste der String eher so aussehen:
DoCmd.OutputTo acOutputReport, "Rpt_Master_01", acFormatXLS, Pfad, _
"[eingdat] between " & _
Format(Me!von, "\#yyyy\-mm\-dd\ hh:nn#") & " And " & _
Format(Me!bis, "\#yyyy\-mm\-dd\ hh:nn#") & " And not IsDate[ausgdat] And [videonull] = False"


Denkbar wäre, die Datenherkunft (eine gespeicherte Abfrage) des Berichts zur Laufzeit zu ändern und dann OutPutTo bis zum Pfad zu füttern.