11
Vbs Dateien auf Windows 2012 Server lassen sich nicht ausführen!
Hallo,
auf einem Server starte ich über einen geplanten Task zu einem bestimmten Zeitpunkt eine vbs. Datei die wiederrum ein Excel startet!
Das Excel führt dann über ein Workbook_Open bestimmt Abfrage durch erstellt ein PDF und schliesst sich wieder!
Das klappt auf zwei anderen Servern mit der selben Windows Server Installation ohne Probleme! Nur bei einem Server startet das Excel ohne die Abfragen auszuführen und schliesst sich sofort wieder!
Die Dokumente laufen einwandfrei und ich gehe nun davon aus, dass es irgendwelche Servereinstellungen sind, die das korrekte ausführen über die vbs Datei verhindern!
Achja stosse ich auf dem Server das Excel-Dokument manuel an gehts auch!
Habt ihr ne Idee?
Gruß
auf einem Server starte ich über einen geplanten Task zu einem bestimmten Zeitpunkt eine vbs. Datei die wiederrum ein Excel startet!
Dim objExcel
Dim objWorkbook
Set objExcel = CreateObject("excel.application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Test.xlsm")
objExcel.Visible = True
objExcel.DisplayAlerts = False
objWorkbook.CloseDas Excel führt dann über ein Workbook_Open bestimmt Abfrage durch erstellt ein PDF und schliesst sich wieder!
Das klappt auf zwei anderen Servern mit der selben Windows Server Installation ohne Probleme! Nur bei einem Server startet das Excel ohne die Abfragen auszuführen und schliesst sich sofort wieder!
Die Dokumente laufen einwandfrei und ich gehe nun davon aus, dass es irgendwelche Servereinstellungen sind, die das korrekte ausführen über die vbs Datei verhindern!
Achja stosse ich auf dem Server das Excel-Dokument manuel an gehts auch!
Habt ihr ne Idee?
Gruß
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 314148
Url: https://administrator.de/contentid/314148
Printed on: April 23, 2024 at 08:04 o'clock
11 Comments
Latest comment
Hallo Snewi,
du solltest die Anweisung Application.DisplayAlerts = False vor die Öffnen-Anweisung setzen, da bereits beim Öffnen Dialogfelder die erfolgreiche automatische Ausführung verhindern können. Außerdem solltest du diese Anweisung am Ende wieder auf True zurücksetzen da diese permanent wirkt, also Anwender sonst hinterher überhaupt keine Dialoge mehr zu Gesicht bekommen!
Das "visible = True" bringt natürlich nur was wenn der Task mit den Credentials des gerade angemeldeten Users im Task ausgeführt wird. Excel solltest du ebenfalls hinter wieder schliessen, nicht nur das Workbook
Zusätzlich würde ich hier nicht auf das Open_Event setzen sondern das Makro direkt aus der VBS heraus explizit starten oder es besser gleich in die VBS integrieren. Denn dort kannst du alles machen was du innerhalb von Excel auch machen kannst.
Zusätzlich sollten die vertrauenswürdigen Speicherorte überprüft werden in der das Dokument liegt. Und poste doch bitte deine Einstellungen für den Task. Denke daran das Netzlaufwerke hier Sessionabhängig sind und man in Tasks generell besser auf UNC Angaben setzen sollte.
Grüße Uwe
du solltest die Anweisung Application.DisplayAlerts = False vor die Öffnen-Anweisung setzen, da bereits beim Öffnen Dialogfelder die erfolgreiche automatische Ausführung verhindern können. Außerdem solltest du diese Anweisung am Ende wieder auf True zurücksetzen da diese permanent wirkt, also Anwender sonst hinterher überhaupt keine Dialoge mehr zu Gesicht bekommen!
Das "visible = True" bringt natürlich nur was wenn der Task mit den Credentials des gerade angemeldeten Users im Task ausgeführt wird. Excel solltest du ebenfalls hinter wieder schliessen, nicht nur das Workbook
Zusätzlich würde ich hier nicht auf das Open_Event setzen sondern das Makro direkt aus der VBS heraus explizit starten oder es besser gleich in die VBS integrieren. Denn dort kannst du alles machen was du innerhalb von Excel auch machen kannst.
Zusätzlich sollten die vertrauenswürdigen Speicherorte überprüft werden in der das Dokument liegt. Und poste doch bitte deine Einstellungen für den Task. Denke daran das Netzlaufwerke hier Sessionabhängig sind und man in Tasks generell besser auf UNC Angaben setzen sollte.
Grüße Uwe
Hallo colinardo,
in meiner Arbeitsmappe steht das:
das klappt auch alles wunderbar nur bei diesem einen Server nicht! Kannst du mir eventuell sagen was ich mal versuchen könnte?
welchen Einstellungen für den Task möchtest du wissen? Der Task läuft, öffnet das Excel und schliesst es auch sofort wieder
Gruß
in meiner Arbeitsmappe steht das:
Sub Workbook_Open()
With Application
.ScreenUpdating = False
.DisplayAlerts = False
.EnableEvents = False
End With
Sheets(1).Cells(3, 3) = Format((Now - 1), "dd.mm.yyyy")
frm_ProgressBar.AutoOpen = True
frm_ProgressBar.Show
With Application
.ScreenUpdating = True
.DisplayAlerts = True
.EnableEvents = True
End With
End Subdas klappt auch alles wunderbar nur bei diesem einen Server nicht! Kannst du mir eventuell sagen was ich mal versuchen könnte?
welchen Einstellungen für den Task möchtest du wissen? Der Task läuft, öffnet das Excel und schliesst es auch sofort wieder
Gruß
Wird der Task mit einem Account ausgeführt der gerade angemeldet ist. D.h auf den Servern ist dauern jemand angemeldet ?? Denn die Dialoge wird kein Mensch sehen wenn es als Task ausgeführt wird und niemand angemeldet ist! Also sämtliche Dialoge weglassen und nur die tatsächlichen Aufgaben ausführen lassen.
Dialoge und Fenster sind nur sichtbar wenn man so einen Task mit dem selben Account ausführen lässt der gerade angemeldet ist, da nur diese in der selben GUI-Session laufen!
Wie ich geschrieben habe, diese eine Arbeit das Datum in eine Zelle einzutragen lässt sich doch ganz einfach in die VBS integrieren ... Lass das OpenEvent weg und schreibe es den Aufruf direkt in die VBS.
Btw. du speicherst dein Sheet ja gar nicht, kann also auch keine Änderung erkenntlich sein.
Dialoge und Fenster sind nur sichtbar wenn man so einen Task mit dem selben Account ausführen lässt der gerade angemeldet ist, da nur diese in der selben GUI-Session laufen!
Wie ich geschrieben habe, diese eine Arbeit das Datum in eine Zelle einzutragen lässt sich doch ganz einfach in die VBS integrieren ... Lass das OpenEvent weg und schreibe es den Aufruf direkt in die VBS.
Btw. du speicherst dein Sheet ja gar nicht, kann also auch keine Änderung erkenntlich sein.
hi,
kannst du mir sagen was ich in dem vbs dann schreiben muss?
verstehe einfach nicht, dass es so wie ich es jetzt mache ja überall geht nur auf einem Server eben nicht! auf den Servern ist nicht zwingend immer jemand angemeldet! Muss ich dann im Task benutzer angeben?
Ich brauche das nicht speichern! ich erstelle ein PDF und lege es lokal ab! Dann schliesst Excel sich und gut!
Gruß
kannst du mir sagen was ich in dem vbs dann schreiben muss?
verstehe einfach nicht, dass es so wie ich es jetzt mache ja überall geht nur auf einem Server eben nicht! auf den Servern ist nicht zwingend immer jemand angemeldet! Muss ich dann im Task benutzer angeben?
Ich brauche das nicht speichern! ich erstelle ein PDF und lege es lokal ab! Dann schliesst Excel sich und gut!
Gruß
Muss ich dann im Task benutzer angeben?
Ja. Dieser muss Zugriff auf das File und das Ziel der PDF haben. In deinem Code wird aber PDF technisch nichts dergleichen gemacht soweit du das hier gespostet hast.kannst du mir sagen was ich in dem vbs dann schreiben muss?
Dim objExcel, objWorkbook
Set objExcel = CreateObject("excel.application")
With objExcel
.Visible= True
.DisplayAlerts = False
.ScreenUpdating = False
.EnableEvents = False
With .Workbooks.Open("C:\test.xlsx")
.Worksheets(1).Range("C3").Value = DateAdd("d",-1,Date)
' sonst noch Dinge die du erledigen willst ...
.Close
End With
.DisplayAlerts = True
.ScreenUpdating = True
.EnableEvents = True
.Quit
End Withverstehe einfach nicht, dass es so wie ich es jetzt mache ja überall geht nur auf einem Server eben nicht!
hellsehen kann ich nicht wenn du so wenig Details zum Task und der Umgebung postest. Logge einfach alle Aktivitäten dann siehst du wo's hakt
Guten Morgen,
leider das gleiche in grün! Es passiert nix!
Kann ich das eventuell über eine bat. starten? Denn da macht er alles so wie ich es will!
rem Starten
START excel \\Pfad\Bericht.xlsm
nur wie bekomme ich das Excel wieder geschlossen?
Gruß
leider das gleiche in grün! Es passiert nix!
Kann ich das eventuell über eine bat. starten? Denn da macht er alles so wie ich es will!
rem Starten
START excel \\Pfad\Bericht.xlsm
nur wie bekomme ich das Excel wieder geschlossen?
Gruß
Super, auf diese Art Antwort habe ich schon gewartet , ich laufe hier gegen Windmühlen ...Wozu schreibe ich das oben eigentlich alles?? Natürlich musst du deine Routine die das PDF erstellt noch in den Code mit einbauen, das war ja nur das was ich von deinem Code hatte, da war nichts von irgendeiner PDF Export-Routine enthalten.
Wenn ich noch nicht mal weiß was genau alles passieren soll?!
Und jede Menge andere Möglichkeiten ...
Ohne deine Kisten und die Umgebung näher zu kennen, sehr schwer einzuschätzen was bei dir schief läuft. Sicherheitscenter gecheckt? (hatte ich oben auch schon alles gefragt, nur keine Antwort erhalten!)
Mit null exakten Fakten mit welchen Parametern/Accounts etc. dein Task ausgeführt wird und was sonst noch in deinem Excel-Sheet passiert kann ich hier nicht helfen, also bemühe dich doch bitte etwas mehr uns mit den Fakten zu versorgen anstatt zu schreiben "es passiert nix". DANKE.
, ich laufe hier gegen Windmühlen ...Wozu schreibe ich das oben eigentlich alles?? Natürlich musst du deine Routine die das PDF erstellt noch in den Code mit einbauen, das war ja nur das was ich von deinem Code hatte, da war nichts von irgendeiner PDF Export-Routine enthalten.Wenn ich noch nicht mal weiß was genau alles passieren soll?!
nur wie bekomme ich das Excel wieder geschlossen?
taskkill /?Und jede Menge andere Möglichkeiten ...
Ohne deine Kisten und die Umgebung näher zu kennen, sehr schwer einzuschätzen was bei dir schief läuft. Sicherheitscenter gecheckt? (hatte ich oben auch schon alles gefragt, nur keine Antwort erhalten!)
Mit null exakten Fakten mit welchen Parametern/Accounts etc. dein Task ausgeführt wird und was sonst noch in deinem Excel-Sheet passiert kann ich hier nicht helfen, also bemühe dich doch bitte etwas mehr uns mit den Fakten zu versorgen anstatt zu schreiben "es passiert nix". DANKE.
ich will das aber nicht alles über das vbs machen, da der Bericht auch manuell über Excel gestartet werden kann!
Also:
ich starte mein vbs und das wiederrum excel! Was Excel macht kann doch erstmal egal sein oder? Ich frage mich einfach, da das vbs auf diesem einen Server (Testserver) - es gibt einen gleichen Server (ProdServer) da läuft es - nicht läuft was ich zu tun habe damit auch hier das vbs läuft!
JA es wurden alle Sicherheitseinstellungen vom Admin mit der Prod-MAschine verglichen! Leider alle gleich
Da ich nicht der Server-Admin bin , kann ich dich leider nicht mit genauen Details versorgen!
Gruß
Also:
ich starte mein vbs und das wiederrum excel! Was Excel macht kann doch erstmal egal sein oder? Ich frage mich einfach, da das vbs auf diesem einen Server (Testserver) - es gibt einen gleichen Server (ProdServer) da läuft es - nicht läuft was ich zu tun habe damit auch hier das vbs läuft!
JA es wurden alle Sicherheitseinstellungen vom Admin mit der Prod-MAschine verglichen! Leider alle gleich
Da ich nicht der Server-Admin bin , kann ich dich leider nicht mit genauen Details versorgen!
Gruß
Dann erstellt doch bitte mal ein Test.xlsm in der du im OpenEvent eine einfache MsgBox ausgibst, erscheint diese nicht weist du schon das das Event nicht ausgeführt wird.
Ich vermute das du einmal das .EnableEvents nicht auf True zurückgesetzt hast und deswegen das OpenEvent seit dem nicht mehr ausgeführt wird. Diese Einstellung ist nämlich permanent, genauso wie das DisplayAlerts das du für den Test rausnehmen solltest damit Fehlermeldungen überhaupt erst angezeigt werden.
Also mal manuell in Excel sowohl DisplayAlerts als auch EnableEvents wieder auf True zurücksetzen und dann nochmal testen.
Ich vermute das du einmal das .EnableEvents nicht auf True zurückgesetzt hast und deswegen das OpenEvent seit dem nicht mehr ausgeführt wird. Diese Einstellung ist nämlich permanent, genauso wie das DisplayAlerts das du für den Test rausnehmen solltest damit Fehlermeldungen überhaupt erst angezeigt werden.
Also mal manuell in Excel sowohl DisplayAlerts als auch EnableEvents wieder auf True zurücksetzen und dann nochmal testen.
Also nochmal:
Das Problem liegt definitiv nicht beim Excel! HAbe jetzt mal eine neue TestDatei erstellt die beim Öffnen eine einfach MsgBox ausgibt! Mehr macht das Dokument nicht! Manuel funktioniert! Über die bat auch über vbs nicht!
gruß
Das Problem liegt definitiv nicht beim Excel! HAbe jetzt mal eine neue TestDatei erstellt die beim Öffnen eine einfach MsgBox ausgibt! Mehr macht das Dokument nicht! Manuel funktioniert! Über die bat auch über vbs nicht!
gruß
Auch über Display Alert raus keine Fehlermeldung!!!
