Thema: Makro exportiert Bericht nach Word + Speicherort Desktop?


Seite durchsuchen:
Home


zurück zur Übersicht

Diskussionsgruppe: Datenbanken

Hallo,

ich habe folgende Frage:
ich habe einen Makro erstellt, der derezit einen Bericht nach WOrd exportiert und im *.rtf format unter einem Laufwerk abspeichert.

Nun möchte ich gerne folgendes:
die user, die auf den Bericht zugreifen und exportieren sollen jeweils eine kopie der *.rtf auf ihrem Desktop abgespeichert bekommen. Allerdings scheint mir das Problem, dass jeder User eben einen anderen Pfad zum Desktop hat. Darum dachte ich mir: probier doch mal:
C:\Documents and Settings\All Users\Desktop\name.rtf

Da bricht der Makro aber ab. Hat da jemánd von euch ne lösung? Vielleicht mit einer Abfrage, wo er speichern soll!?

Danke im voraus!

 Von: HAnsiio Datum: 21.03.2007, 16:33

alle Antworten zu dieser Frage


Antwort 1 von Arno_Nym vom 21.03.2007, 17:34
Hilft dir dieser Code-Schnipsel weiter?

Dim Profil, UserDesk As String
Profil = Environ("USERPROFILE")
UserDesk = Profil & "\Desktop\"
MsgBox "Pfad zum Desktop des Users: " & Chr(10) & UserDesk
End Sub

Tut natürlich erstmal nichts außer Zeigen des Prinzips...

Arno

Antwort 2 von HAnsiio vom 21.03.2007, 20:50
Danke, werde es testen und rumspielen und melde mich dann nochmal!

Antwort 3 von ManuelNielsen vom 24.10.2007, 00:50
Hallo!

Wie hast du den Bericht nach Word exportiert. Ich schaffe es (trotz umfangreicher Websuche) nicht vernünftig meinen Bericht der OLE-Objekte (Worddateien mit Bildern) nach Word zu exportieren.

Danke und Gruß
Michael

Antwort 4 von Teddy7 vom 25.10.2007, 09:57
Füge mal ein Befehlsfeld ein. Der Assistent bietet eine Speicherung des Berichts in eine Word-Datei an.

Der Code, der dabei generiert wird, sieht so aus:
Dim stDocName As String

stDocName = "repÜbersicht"
DoCmd.OutputTo acReport, stDocName

Wenn Du den Cursor auf OutputTo setzt und die F1-Taste betätigst kommst Du in die entsprechende Access-Hilfe und kannst nachsehen, was Du da sonst noch vorgeben kannst.
Gruß
Teddy

Antworten der Gruppe: Datenbanken
www.supportnet.de



Office 365 stellt vertraute Microsoft Office-Tools für die Zusammenarbeit und Produktivität über die Cloud bereit. So können alle ganz einfach von nahezu überall zusammenarbeiten und auf E-Mails, Webkonferenzen, Dokumente und Kalender zugreifen.

07121 07122 07123 07124 07125 07126 07127 07128