Hallo,

ich habe hier folgenden Code geschrieben. Er funktioniert nur teilweise. Und zwar prüft er ob die Mappe offen ist und öffnet sie falls sie nicht geöffnet ist. Aber wenn die Mappe offen ist greift er nicht auf die Mappe zu, sondern öffnet sie nochmal:


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