Office: Code läuft auf anderen PC und im Netzwerk nicht fehlerfrei

Ein freundliches Hallo an Alle,

ich habe eine Excel 2013 Datenbank erstellt, die durch Userformen befüllt wird. Soweit klappt alles super, auch dank vieler Hilfen aus dem Forum hier.
Alle meine Kollegen sollen ebenfalls mit dieser Datenbank arbeiten, Kundendaten erfassen, Verträge drucken usw.

Nun habe ich folgendes Problem festgestellt und finde keine Lösung dafür:

Code:

Bei mir auf dem Computer werden alle Word-Dokumente richtig im Vordergrund geöffnet. Bei den Mitarbeitern werden sie im Hintergrund geöffnet mit Laufzeitfehler 5 und im Debugger wird

Call AppActivate(Title:="TVertrag.docm - Word")

als Fehler ausgewiesen. Z ist unser Netzlaufwerk. Freigegeben ist alles und das Trust Center ist auch eingestellt (Word und Excel). Unsere Computer sind von der Hard- und Software alle gleich.

Selbst wenn ich die Datenbank auf allen PC's auf den Desktop lege, der Code ist dann angepasst, bleibt dieser Fehler erhalten. Nur an meinem wird alles richtig ausgeführt (auch vom Netzwerk aus), da gibt es keinerlei Probleme. Ich bin echt ratlos. Was kann ich da verändern, dass es auch von anderen Computern bzw. vom Netzwerk aus läuft?

Vielen Dank im Voraus für jegliche Hilfestellung und Ratschläge.

beste Grüße Foulcrow

:)

 

Moin!

Der Title:= bei AppActivate() ist die Caption der Anwendung (Titelleiste).
Dies ist nicht zwingend der Dateiname incl. Dateiendung.
Wenn einige Nutzer im Explorer (also im Betriebssystem)
unter Ansicht, Optionen
die Anzeige der Dateiendung unterdrücken,
dürfte AppActivate() in besagten Fehler laufen.

Teste folglich mal ohne Dateiendung und ohne die überflüssige Application:
Code:

Gruß Ralf

 

Hallo Ralf,

super, deine Antwort war perfekt. Kleine Ursache, große Wirkung. Ich habe in den Ordneroptionen die Dateiendungen anzeigen lassen und es läuft perfekt.

Ein dickes Danke an dich.

beste Grüße Foulcrow

 

Hallo,

Du versuchst auf mehrere Arten, Word bzw. das Dokumentenfenster hochzuziehen. Bist Du sicher, dass Du das alles so brauchst? Je nach Anwendungszweck kann man in vielen Fällen auf Visible, WindowState, Activate und AppActivate verzichten. Diese Kombination riecht für mich ein wenig nach Overkill.

WindowState sollte man lt. OH erst nach Activate einsetzen und einen von drei Parameter angeben, aber nicht -4143.

Bei AppActivate kannst Du den Fenstertitel angeben. Bei meinen Word 2010 endet das mit "- Microsoft Word" während mein Word 2013 nur "- Word" enthält. Lass den Rest nach dem eigentlichen Dateinamen weg, wie Ralf auch schon schrieb.

 

Danke fürs Lob!
Aber dennoch:
Du gehst imo falsch vor, denn die anderen User können das Verhalten jederzeit wieder rückgängig machen!
Richtig ist, die User machen zu lassen und mein Code-Snippet zu verwenden.
Die Begründung liefert die MS-Hilfe:

Einziges Manko:
Wenn es unter den aktiven Anwendungen ein TVertrag.txt und ein TVertrag.docm gibt, wird russisch Roulette gespielt.

Gruß Ralf

 

Vielleicht sollte man so vorgehen, siehe das zweite Beispiel

PS Was man wissen muss
The class names for the three main Office applications are as follows:

Microsoft Access — OMain
Microsoft Excel — XLMAIN
Microsoft Word — OpusApp
und dann
Code:

 

Danke für eure Rückmeldungen,

da ich wenig Erfahrung mit VBA habe, habe ich mir den Code bei Google gesucht. Das war der einzige Code, der bei mir so einigermaßen funktionierte.

Mit WordApp.WindowState = -4143 habe ich das Vollbild hinbekommen, die 1 hat nicht funktioniert.
Und mit Call AppActivate(Title:="TVertrag.docm - Word") wurde das Dokument im Vordergrund ausgeführt. Das habe ich nachträglich eingefügt, weil Word im Hintergrund geöffnet wurde.

Habe jetzt meinen Code wie von Ralf beschrieben geändert, so dass die Ordneroptionen außen vor sind.

Nochmals vielen Dank an euch Helfer.

beste Grüße Foulcrow

 

laufen alle PC mit dem selben Betriebssystem?

 

Hallo Faultier,

alle PC sind 100% identisch in Hard- und in Software.

beste Grüße Foulcrow

 

Um WindowsState zu verwenden, musst das Fenster erst aktiv sein.
Bei mir läuft folgendes ohne Probleme
Code:

 

Hallo Storax,

ich habe knapp 20 Verträge in der datenbank hinterlegt, einige von denen öffne ich mit deiner Variante und die Anderen mit der von Ralf. So kann ich das von meinen Kollegen mal ausführlich testen lassen.
Danke nochmals.

Eine Frage noch:
.WindowState = 1 'wdWindowStateMaximize
Was bedeutet das genau? Gilt das jetzt nur für Word oder generell für's Maximieren?
Ich habe da noch ein kleines Problem mit dem Maximieren meiner Userform. Die habe ich zwar auf Bildschirmgröße bekommen, doch bei kleineren Bildschirmen als meiner wird die Userform nicht komplett angezeigt, die Größe wird nicht dem Bildschirm angepasst. Ich gehe davon aus, dass auch hierbei mein Code fehlerhaft ist.
Code:

Habe in der Userform Eigenschaft Height und Width mit 628 und 1200 vorgegeben. Liegt es eventuell daran? Muss das mal ausprobieren.
Falls du mir hierfür noch einen Tipp geben könntest? Oder soll ich ein neues Thema dafür erstellen?

beste Grüße Foulcrow

 

Das bezieht sich auf Word

Das bezieht sich auf Excel (nicht auf die userform)

So könnte man eine Userform "maximieren"
Code:

EDIT und google liefert natürlich