Getobject lässt Excel "aussteigen"
03.10.2006 11:13:19
Reinhard
Excel steigt aus wenn folgender Code läuft. Alle Minute kommt
"Microssoft Excel wartet auf die beendigung einer OLE-Aktion in einer anderen Anwendung", ansonsten nur Sanduhr. Abbruch nicht möglich, nur Exceltask abschiessen durch "Sofort beenden" (WinXP) klappt.
Ich habe aber nur Winamp, OE, FireFox und Zonealarm sichtbar laufen.
Was kann ihc tun?
Sub tt()
Dim App
Set App = GetObject("", "InternetExplorer.Application")
If App = Nothing Then Set App = CreateObject("InternetExplorer.Application")
App.Visible = True
End Sub
Gruß
Reinhard
Anzeige