Acc2007: Bericht nach Excel exportieren mit DoCmd.OutputTo
Thomas Oberdörfer
Habe folgendes Problemchen:
Ich möchte Berichte per DoCmd.OutputTo nach Excel exportieren, was ja
mit SP2 wieder funktionieren soll. Export nach HTML, RTF, SNP oder TXT
funktioniert problemlos, beim Export nach Excel kommt:
Fehler 2587: Microsoft Access kann den Ausgabevorgang nicht
abschließen.
Ich habe auch definitiv das SP2 drauf, das Zielverzeichnis für den
Export existiert auch, wie gesagt funktioniert es ja mit den anderen
Formaten.
Hat jemand ne Idee??? Schonmal Danke für Eure Gedanken... ;o)
Viele Grüsse
Thomas
Thomas Möller
Thomas Oberd�rfer schrieb:
> Ich m�chte Berichte per DoCmd.OutputTo nach Excel exportieren, was ja
> mit SP2 wieder funktionieren soll. Export nach HTML, RTF, SNP oder TXT
> funktioniert problemlos, beim Export nach Excel kommt:
>
> Fehler 2587: Microsoft Access kann den Ausgabevorgang nicht
> abschlie�en.
>
> Ich habe auch definitiv das SP2 drauf, das Zielverzeichnis f�r den
> Export existiert auch, wie gesagt funktioniert es ja mit den anderen
> Formaten.
bei mir funktioniert es mit SP2 wie es soll.
Poste doch mal bitte Deinen konkreten Code. Vielleicht ergibt sich
daraus ein Hinweis.
CU
--
Thomas
Homepage: www.Team-Moeller.de
Thomas Oberdörfer
Hier der Code. Ist nichts Weltbewegendes, eigentlich ein einfaches
OutputTo, deswegen ja meine Nachfrage.
U.g. Funktion wird von ALLEN Export-Buttons in meinem PrintPreview-
Ribbon aufgerufen. Lediglich der Übergabeparameter intFormat steuert
das Ausgabeformat. Die Funktion TrimAll() entfernt alle Leerzeichen.
<pre>
Public Function SF_BerichtSpeichernAls(ByVal intFormat As
eSYS_EXPORTFORMAT)
On Error GoTo Err_SF_BerichtSpeichernAls
Dim strOutputformat As String
Dim strFileName As String
Dim strPath As String
Dim strReportName As String
strPath="c:\"
strReportName = Screen.ActiveReport.Name
strFileName = TrimAll(Screen.ActiveReport.Caption, True) & "_" &
Format(Date(), "yyyy-mm-dd")
Select Case intFormat
Case eEXPORT_HTML
strOutputformat = "HTML(*.html)"
strFileName = strFileName & ".htm"
Case eEXPORT_RTF
strOutputformat = "RichTextFormat(*.rtf)"
strFileName = strFileName & ".rtf"
Case eEXPORT_SNAPSHOT
strOutputformat = "SnapshotFormat(*.snp)"
strFileName = strFileName & ".snp"
Case eEXPORT_EXCEL
'strOutputformat = "MicrosoftExcel(*.xls)"
strOutputformat = "Excel97-Excel2003Workbook(*.xls)"
strFileName = strFileName & ".xls"
Case eEXPORT_TEXT
strOutputformat = "MS-DOSText(*.txt)"
strFileName = strFileName & ".txt"
End Select
If strFileName <> "" Then
strFileName = strPath & strFileName
End If
If Dir(strPath, vbDirectory) <> "" And strFileName <> "" Then
' Bericht ausgeben
DoCmd.OutputTo acOutputReport, strReportName, strOutputformat,
strFileName, True
Else
p_strMsg = "Die folgende Datei kann nicht erstellt werden, da
der Pfad oder der Dateiname ungültig ist:"
MsgBox p_strMsg & vbCrLf & strFileName, vbExclamation,
APP.Title
End If
Exit_SF_BerichtSpeichernAls:
Exit Function
Err_SF_BerichtSpeichernAls:
With Fehler
.Nummer = Err.Number
.Beschreibung = Err.Description
.FunctionName = MODULENAME & ".SF_BerichtSpeichernAls"
Select Case .Nummer
Case 2501 '-> Aktion wurde abgebrochen
Resume Exit_SF_BerichtSpeichernAls
Case Else
.Meldung
Resume Exit_SF_BerichtSpeichernAls
Resume
End Select
End With
End Function
</pre>
Ich denke mal, an der Codierung liegt es nicht. Zumal ich gesehen
habe, dass es noch mehr User gibt, die ähnlich Probleme z.B. mit dem
PDF-Output haben...
Any ideas??? ;o)
Gruss
Thomas
Thomas Oberdörfer
Hoffe trotzdem, dass der Code lesbar ist... ;o)
Noch ne Bemerkung: Der Export funktioniert mit allen Formaten AUSSER
EXCEL!!! Das ist ja das Kuriose daran...
J�rgen Volke
************************************************************
Hier der Code. Ist nichts Weltbewegendes, eigentlich ein einfaches
OutputTo, deswegen ja meine Nachfrage.
U.g. Funktion wird von ALLEN Export-Buttons in meinem PrintPreview-
Ribbon aufgerufen. Lediglich der �bergabeparameter intFormat steuert
<pre>
der Pfad oder der Dateiname ung�ltig ist:"
MsgBox p_strMsg & vbCrLf & strFileName, vbExclamation,
APP.Title
End If
Exit_SF_BerichtSpeichernAls:
Exit Function
Err_SF_BerichtSpeichernAls:
With Fehler
.Nummer = Err.Number
.Beschreibung = Err.Description
.FunctionName = MODULENAME & ".SF_BerichtSpeichernAls"
Select Case .Nummer
Case 2501 '-> Aktion wurde abgebrochen
Resume Exit_SF_BerichtSpeichernAls
Case Else
.Meldung
Resume Exit_SF_BerichtSpeichernAls
Resume
End Select
End With
End Function
</pre>
Ich denke mal, an der Codierung liegt es nicht. Zumal ich gesehen
habe, dass es noch mehr User gibt, die �hnlich Probleme z.B. mit dem
PDF-Output haben...
Any ideas??? ;o)
****************************************************************
wieso benutzt du in strOutputFormat nicht die Konstanten, wie in der Hilfe
beschrieben??
HTH J�rgen
Thomas Oberdörfer
Ähm, wie meinen??? Das sind die Konstanten, die mir der konvertierte
Makro liefert!!! Sorry, Programmierer sind eben faul... ;o)
Okay, die Konstanten sind etwas anders, habe ich aber gerade auch
probiert, selber Fehler, funktioniert nicht. Also das wars dann wohl
auch nicht... :o(
Gruss
Thomas
Karl Donaubauer
> �hm, wie meinen??? Das sind die Konstanten, die mir der konvertierte
Was genau hast du getestet? Mit welchem Code?
acFormatXLS
direkt in der OutPutTo-Zeile?
Als String hingegen w�re das:
strOutputformat = "MicrosoftExcel (*.xls)"
--
HTH
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ: http://www.donkarl.com + Anmeldung und Info zur
Access-Entwickler-Konferenz (AEK12), Oktober 2009, N�rnberg
Thomas Oberdörfer
Sowohl als auch. Habe beide Konstanten Format-Strings getestet, sowohl
als Variable übergeben, als auch direkt im DoCmd.OutputTo. Beides
funktioniert für Excel NICHT, für alle anderen Formate schon. Schade,
aber irgendwie scheint dann der Excel-Export wohl doch nicht wirklich
zu funktionieren, oder???
Gruss
Thomas
Thomas Oberdörfer
per Access-Funktion über den Seitenansicht-Ribbon exportieren lässt -
selbiges Spiel in Grün! Der Bericht basiert einfach nur auf einer
Tabelle, kein Code im Report etc. Verwendet wird die Access-eigene
Exportfunktion. Geht auch nicht. SP2 ist definitiv installiert! Hat
jemand ne Idee???
Gruss
Thomas
Jens Schilling
Thomas Oberd�rfer wrote:
> Sowohl als auch. Habe beide Konstanten Format-Strings getestet, sowohl
> als Variable �bergeben, als auch direkt im DoCmd.OutputTo. Beides
> funktioniert f�r Excel NICHT, f�r alle anderen Formate schon. Schade,
> aber irgendwie scheint dann der Excel-Export wohl doch nicht wirklich
> zu funktionieren, oder???
Sowohl in Deiner Code-Zeile ( 'strOutputformat = "MicrosoftExcel(*.xls)"),
als auch in Karls Vorschlag scheint mir eine Leerzeichen in der
String-Variante zu fehlen.
Karl schrieb: strOutputformat = "MicrosoftExcel (*.xls)"
Ich habe aus dem Objekt-Katalog folgendes kopiert:
"Microsoft Excel (*.xls)"
Schau doch mal, ob es einen Unterschied macht....
--
Gruss
Jens
12. AEK - 10./11.10. + 31.10/1.11.2009, N�rnberg
http://www.donkarl.com/AEK
Thomas Oberdörfer
Bitte auch genau lesen, was ich probiert habe und was geht bzw. nicht
geht! Nochmal zusammenfassend: Ich habe sowohl die eingebauten
Konstanten probiert mit acFormatXLS, als auch die beiden möglichen
String-Varianten! Macht absolut keinen Unterschied, der Fehler kommt
immer und immer wieder... ;o)
Und wie bereits eben geschrieben, der Fehler tritt auch auf, wenn ich
OHNE VBA einen Bericht über den Access-eigenen Ribbon exportieren
will! Darauf habe ich ja keinen Einfluss. SP2 ist installiert, habs
gerade nochmal geprüft.
Schade, dass es ansacheinend (mal wieder) bei einigen funktioniert,
bei einigen aber auch nicht... :o(
Gruss
Thomas
Jens Schilling
Thomas Oberd�rfer wrote:
> Bitte auch genau lesen, was ich probiert habe
Hmmm - ich dachte, ich h�tte diese beiden Varianten bei Dir gelesen:
'strOutputformat = "MicrosoftExcel(*.xls)"
strOutputformat = "Excel97-Excel2003Workbook(*.xls)"
..... und selbst eine dritte Variante gepostet:
"Microsoft Excel (*.xls)"
Aber vielleichts liegts wirklich an meinen Augen, man wird ja nicht j�nger
;-)
Thomas Oberdörfer
In meinem angegeben Code steht das von Dir geschriebene. Aber danach
hatte ja schon jemand den Vorschlag mit den eingebauten Konstanten
gemacht etc. Deswegen hatte ich das ja auch schon probiert... ;o)
Trotzdem liegt es wohl eher an der allgemeinen Excel-Export-
Funktionalität von Acc2007 als ein meiner Funktion, denn wie schon
zweimal erwähnt, geht es ja auch generell nicht, einen Bericht zu
exportieren. Öffne ich ne Abfrage oder ne Tabelle und exportiere die
nach Excel, geht das auch, nur eben der Report will nicht.
Komisch... :o(
Gruss
Thomas
Jens Schilling
Thomas Oberd�rfer wrote:
> In meinem angegeben Code steht das von Dir geschriebene.
Wir reden anscheinend aneinander vorbei; ich schrieb:
Zitat:
-----
Sowohl in Deiner Code-Zeile ( 'strOutputformat = "MicrosoftExcel(*.xls)"),
als auch in Karls Vorschlag scheint mir eine Leerzeichen in der
String-Variante zu fehlen.
Zitat Ende:
-----------
"MicrosoftExcel(*.xls)" <> "Microsoft Excel (*.xls)"
Da ich aber nur geringe Hoffnung habe, dass dieses Leerzeichen tats�chlich
die Ursache ist, k�nnen wir es nun dabei belassen.
Thomas Oberdörfer
Leerzeichen versucht, bringt beide Male nix. Der Fehler bleibt
bestehen. Denke mal, nun sind alle Klarheiten diesen Punkt betreffend
beseitigt... ;o)
Gruss
Thomas
Jens Schilling
OK - das sind sie; den Versuch denke ich war's trotzdem wert, an anderern
Stellen ( Snapshot kommt mir in den Sinn ) gibt es mitunter Probleme mit den
Konstanten.
Thomas Oberdörfer
SNP zum Beispiel funktioniert mit allen String-Varianten und der VBA-
Konstanten. Wie gesagt, alle anderen Formate auch, nur eben Excel
nicht... *wein*
Jens Schilling
Thomas Oberd�rfer wrote:
> Hmm, okay, das kann ich so nicht best�tigen. Das von Dir angesprochene
> SNP zum Beispiel funktioniert mit allen String-Varianten und der VBA-
> Konstanten. Wie gesagt, alle anderen Formate auch, nur eben Excel
> nicht... *wein*
Ich hab' zwar nicht lange gesucht, aber hier zum Beispiel kannst Du
nachlesen was ich meinte:
http://groups.google.de/group/microsoft.public.de.access/browse_thread/thread/d39ba8a0dc6e253a
Thomas Oberdörfer
genannten Varianten... ;o)
Karl Donaubauer
> Noch ein Hinweis: Habe gerade getestet, ob sich ein Bericht einfach
> - selbiges Spiel in Gr�n! Der Bericht basiert einfach nur auf einer
> Tabelle, kein Code im Report etc. Verwendet wird die Access-eigene
> Exportfunktion. Geht auch nicht. SP2 ist definitiv installiert!
> Hat jemand ne Idee???
In den Kommentaren zum SP2-Blog
http://blogs.msdn.com/access/archive/2009/04/24/access-2007-sp2-due-to-ship-april-28th.aspx#9580853
schrieb jemand:
**********
>In new sp2 export report in excel don't work
Ok I resolve my problem
uninstall with oarpman.exe my previous upgrade from windows update
and re-install with office2007sp2-kb953195-fullfile-it-it and now all works!
********
Das ist vielleicht einen Test wert.
Thomas Oberdörfer
Okay, das werde ich dann mal ausprobieren und berichten, obs
funktioniert hat. Merci für den Hinweis... ;o)
Viele Grüsse
Thomas
Thomas Oberdörfer
nun wie gewünscht auch nach Excel exportieren... *freu*
Warum ich jedoch erst das SP2 deinstallieren muss und dann nochmal neu
drauf, weiss der Geier...
Gruss
Thomas