Hallo <strong style=
"color: rgb(0, 0, 0); font-family: Arial, Helvetica, sans-serif;"
>Gast54825,
</strong>vielen Dank. Ich habe Deinen Code in eine separate VBS-Datei geschrieben. Ich habe die Datei AutoMonitoring geöffnet und
rufe die VBS-Datei auf. Es erscheint dann immer ein Fehler in der Zeile in der das Makro aufgerufen wird.
Die Datei AutoMonitoring und die VBS-Datei liegen im gleichen Verzeichnis. Da der Pfad ein Leerzeichen beinhaltet habe ich gedacht,
alles müßte in Anführungszeichen. Da das Makro
"Datein_prüfen"
in Module1 liegt, habe ich versucht auch dies zu berücksichtigen.
Hast Du noch eine Idee?
Option
Explicit
Call
My_Test
Private
Sub
My_Test()
Dim
xlApp, xlBook
Set
xlApp = GetObject(,
"Excel.Application"
)
Set
xlBook = xlApp.ActiveWorkbook
Call
xlApp.Run (xlBook.Name&
"!Dateien_prüfen"
)
Set
xlBook =
Nothing
Set
xlApp =
Nothing
End
Sub