Makro von Personal.xlsb ausführen
ich habe ein Makro geschrieben das in der Personal.xlsb liegt und von einem weiteren Makro in einer Excel tabelle ausgeführt werden soll
Ich habe über die Makro aufzeichnen Funktion ein einfaches Makro angelegt das in ein paar Spaltenbreiten anpasst einige Felder färbt und 3 Einträge verändert.
Dieses habe ich "formatierung" genannt.
Wenn ich nun die Datei "ActiveDirectoryExport.xlsx" und das Makro manuell öffne und das Makro ausführe funktioniert es auch wunderbar. Nun möchte ich es aber als Teil eines größeren Programms ausführen.
Dazu habe ich diese VBS geschrieben
Code-----------------------------------
Set oExcel = WScript.CreateObject("Excel.Application")
On Error Resume Next
With oExcel
.Visible = FALSE
Application.DisplayAlerts = False
Set oDoc = .Workbooks.Open("c:\ADDGE\ActiveDirectoryExport.xlsx")
.Run "PERSONAL.XLSB!formatierung"
oDoc.Save
oDoc.Close
.Quit
End With
CodeEnde----------------------------------
Wenn ich diese per Doppelklick oder auch über eine Batch ausführe passiert gar nichts. Es erscheint als auch keine Fehlermeldung
Wenn ich .Visible auf TRUE setze sehe ich wie die Datei aufgeht und sich gleich wieder schließt.
Könnt ihr mir weiterhelfen?
Edit: wenn ich den Close und den Quit befehl wegnehme sehe ich das nach öffnen einfach garnichts passiert
Dieses habe ich "formatierung" genannt.
Wenn ich nun die Datei "ActiveDirectoryExport.xlsx" und das Makro manuell öffne und das Makro ausführe funktioniert es auch wunderbar. Nun möchte ich es aber als Teil eines größeren Programms ausführen.
Dazu habe ich diese VBS geschrieben
Code-----------------------------------
Set oExcel = WScript.CreateObject("Excel.Application")
On Error Resume Next
With oExcel
.Visible = FALSE
Application.DisplayAlerts = False
Set oDoc = .Workbooks.Open("c:\ADDGE\ActiveDirectoryExport.xlsx")
.Run "PERSONAL.XLSB!formatierung"
oDoc.Save
oDoc.Close
.Quit
End With
CodeEnde----------------------------------
Wenn ich diese per Doppelklick oder auch über eine Batch ausführe passiert gar nichts. Es erscheint als auch keine Fehlermeldung
Wenn ich .Visible auf TRUE setze sehe ich wie die Datei aufgeht und sich gleich wieder schließt.
Könnt ihr mir weiterhelfen?
Edit: wenn ich den Close und den Quit befehl wegnehme sehe ich das nach öffnen einfach garnichts passiert
Please also mark the comments that contributed to the solution of the article
Content-Key: 205856
Url: https://administrator.de/contentid/205856
Printed on: April 18, 2024 at 08:04 o'clock
3 Comments
Latest comment
Dann bitte Beitrag als gelöst markieren, Danke !
How can I mark a post as solved?
How can I mark a post as solved?