Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Probleme mit Excel.Appliaction
Autor: Pone
Datum: 18.11.07 18:26
Hallo, also ich habe das Problem nun gefunden. Ich habe mehrere Applicationen von Excel offen, wenn ich nunr eine Offen habe und in der verschiedene Workbooks offen habe, dann funktioniert es. Nun aber möchte ich eine Fehlermeldug ausgeben, wenn mehrere Applicationen offen sind, nur wie. Ich habe da mal etwas zusammen geschrieben, aber es funktioniert nicht. Ich möchte nämlich die Applicationen zählen und wenn mehr als eine offen ist dann Fehler ausgeben. Nunr er macht überhaupt nichts. CODE: Private Declare Function GetDesktopWindow Lib "User32" () _ As Long Private Declare Function GetWindow Lib "User32" _ (ByVal hWnd As Long, ByVal wCmd As Long) As Long Private Declare Function GetWindowText Lib "User32" _ Alias "GetWindowTextA" _ (ByVal hWnd As Long, ByVal lpString As String, _ ByVal cch As Long) As Long Private Declare Function GetClassName Lib "User32" _ Alias "GetClassNameA" _ (ByVal hWnd As Long, ByVal lpClassName As String, _ ByVal nMaxCount As Long) As Long Private Const GW_CHILD = 5 Private Const GW_HWNDNEXT = 2 Public Function CountAppsByClass(ByVal strClass As String) Dim hWnd As Long, tbuf As String, RetVal As Long Dim I As Long, Cnt As Long hWnd = GetDesktopWindow() hWnd = GetWindow(hWnd, GW_CHILD) I = 0 Cnt = 0 Do While hWnd <> 0 And I < 1000 tbuf = String(255, 0) RetVal = GetClassName(hWnd, tbuf, Len(tbuf)) If Mid(tbuf, 1, RetVal) = strClass Then Cnt = Cnt + 1 hWnd = GetWindow(hWnd, GW_HWNDNEXT) I = I + 1 Loop CountAppsByClass = Cnt End Function Aufruf der Funktion: If CountAppsByClass("XLMain") > 1 Then MsgBox "Fehler!" End If

Probleme mit Excel.Appliaction	1.428	Pone	14.11.07 10:34
Re: Probleme mit Excel.Appliaction	871	wb-soft	14.11.07 11:05
Re: Probleme mit Excel.Appliaction	892	Pone	14.11.07 11:17
Re: Probleme mit Excel.Appliaction	894	wb-soft	14.11.07 11:27
Re: Probleme mit Excel.Appliaction	965	effeff	14.11.07 12:04
Re: Probleme mit Excel.Appliaction	860	effeff	14.11.07 12:05
Re: Probleme mit Excel.Appliaction	860	Pone	14.11.07 12:54
Re: Probleme mit Excel.Appliaction	1.036	me36835	14.11.07 15:19
Re: Probleme mit Excel.Appliaction	956	Pone	14.11.07 16:10
Re: Probleme mit Excel.Appliaction	866	me36835	14.11.07 17:48
Re: Probleme mit Excel.Appliaction	881	Pone	15.11.07 09:49
Re: Probleme mit Excel.Appliaction	830	me36835	15.11.07 12:04
Re: Probleme mit Excel.Appliaction	997	Pone	15.11.07 12:53
Re: Probleme mit Excel.Appliaction	883	wb-soft	15.11.07 13:36
Re: Probleme mit Excel.Appliaction	871	Pone	15.11.07 14:45
Re: Probleme mit Excel.Appliaction	879	wb-soft	15.11.07 15:25
Re: Probleme mit Excel.Appliaction	855	Pone	15.11.07 15:33
Re: Probleme mit Excel.Appliaction	817	me36835	15.11.07 18:07
Re: Probleme mit Excel.Appliaction	898	Pone	16.11.07 08:54
Re: Probleme mit Excel.Appliaction	961	Pone	18.11.07 18:26

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen