Hallo,

kann mir jemand helfen diesen Code richtig zum Laufen zu bekommen? Es ist eine Abfrage die prüft, ob eine bestimmte Exceldatei schon geöffnet ist. Ist das der Fall, soll ein Makro in dieser Mappe aufgerufen werden. Das klappt soweit auch ganz gut, aber leider nur wenn die Mappe geschlossen ist. Ist sie geöffnet, öffnet er die Mappe erneut und arbeitet nicht mit der bereits geöffneten Mappe weiter.



on error resume next
set oXL = GetObject("Excel.Application")


if oXL = nothing then
Set oXL = CreateObject("Excel.Application")
End if
if not oXl.Application.Workbooks.isOpen("C:\Mappe1_.xls") then
set wbk = oXL.Application.Workbooks.Open("C:\Mappe1_.xls")
else
wbk = oXl.Application.Workbooks("C:\Mappe1_.xls").Activate

end if
oxl.Visible = true
oxl.Run "Main"


Bin dankbar für jede Hilfe
Gruß Jens