|
Hallo zusammen,
ich habe ein Makro das über mehrere Stunden läuft, daher würde ich das gerne jeden Tag starten bevor ich nach Hause gehe und den PC dann nach Beendigung automatisch herunterfahren lassen.
Ich habe einige Erwähnungen gefunden, dass das wohl mit VBA in Excel auch möglich ist, dass ich das einfach an das Ende meines Makros packen würde.
Allerdings waren das entweder Vorschläge für ältere Systeme, 32-Bit Systeme oder einen Neustart und es war mir nicht möglich das entsprechend anzupassen.
Vielleicht kann mir dabei ja jemand helfen?
Dim objWMI As Object, objItem As Object
Set objWMI = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery( _
"SELECT * FROM Win32_OperatingSystem WHERE Primary=true")
For Each objItem In objWMI
Call objItem.Reboot
Next
Das ist eins der Beispiele, die ich gefunden habe, vielleicht kann man das ja entsprechend anpassen?
Ich nutze Windows 10 und Excel 2016
|