Office: Abschalten von Infomeldung in Excel

pistons · 22. Juli 2008

Hallo Zusammen,

ich habe eine kleine Frage zu einem Problem.
Ich habe für das Team, wo ich gerade arbeite eine Excel Anwendung in VBA geschrieben, die auf eine ARIS Anwendung zugreift, um somit ReportSkripte anzustoßen. Mein Problem ist, dass ich zwischen durch immer die Meldung "Microsoft Excel wartet auf die Beendigung einer OLE-Aktion in einer anderen Anwendung". Weiß vielleicht einer von euch, wie ich diese Meldung wegbekomme???

Vielen Dank!

:)

ZeC · 23. Juli 2008

Hi pistons!

Fehlermeldung in Excel kann man normal mit

Code:

Application.DisplayAlerts = True/False
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

unterbinden.

pistons · 23. Juli 2008

Vielen Dank! Aber das löst mein Problem leider noch nicht...ich habe das so wie du geschrieben hast schon versucht, aber bei der Fehlermeldung bringt sie mir leider nichts..
Hat noch jemand einen anderen Vorschlag??

User · 23. Juli 2008

Hallo Pistons,

startest du dieses ARIS mit dem Shell Befehl? Wenn ja, hätte ich da eine Lösung wo der VBA Code so lange wartet bis die fremde Applikation geschlossen wird.

pistons · 24. Juli 2008

HI,
nein ich starte es in dem ich es per CreateObject(ARIS.Application.6.2.) deklariere und dann die Methoden von ARIS verwende.
Aber könntest du mir trotzdem sagen, wie das mit Shell gehen würde, weil ich ja genau das möchte. Ich möchte, dass Excel ohne die Meldung einzuschalten, auf die Beendigung meines ARIS Skripts wartet.

Vielen Dank.

User · 24. Juli 2008

Hi,

ich glaube nicht das dir das was bringt, aber hier der Code:

Code:

'-----Siehe ganz unten den TestDesMakros !!-----
'
'Hintergrund:
'Mit dem Befehl Shell kann man externe Programme starten.
'Problematisch ist aber, dass das Excelmakro nicht wartet,
'bis das externe Programm seine Arbeit beendet hat. Das
'kann bei Schleifen problematisch werde. Der Einbau von
'künstlichen Warteschleifen kann mit diesen Makro
'unterbleiben, da es wartet, bis die externe Anwendung
'geschlossen wird.

Private Const PROCESS_QUERY_INFORMATION = &H400
Private Const STILL_ACTIVE = &H103

Private Declare Function GetExitCodeProcess Lib _
"kernel32" (ByVal hProcess As Long, _
lpExitCode As Long) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal _
dwMilliseconds As Long)

Private Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long

Public Sub StartenUndWarten(Programmname As String)
Dim hwndShell As Long, hwndProzess As Long
Dim lngLäuft As Long
hwndShell = Shell(Programmname, 1)
hwndProzess = OpenProcess(PROCESS_QUERY_INFORMATION, _
0&, hwndShell)
Do
GetExitCodeProcess hwndProzess, lngLäuft
'ev.
Sleep 100
DoEvents
Loop While lngLäuft = STILL_ACTIVE
End Sub

Private Sub TestDesMakros()
StartenUndWarten "notepad"
MsgBox "Notepad beendet - 1"
StartenUndWarten "notepad"
MsgBox "Notepad beendet - 2"
StartenUndWarten "notepad"
MsgBox "Notepad beendet - 3"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Abschalten von Infomeldung in Excel

Abschalten von Infomeldung in Excel

Abschalten von Infomeldung in Excel

Abschalten von Infomeldung in Excel

Abschalten von Infomeldung in Excel - Similar Threads - Abschalten Infomeldung Excel

Wie automatisches Datum abschalten ?

Fadenkreuz Add-In erstellen und ein-/abschalten

Stimme abschalten, die sagt "Mikrofon-Stummschaltung aus/ein"

Chat abschaltung in einem Kanal unterhalb eines Teams

Abschalten des Lautsprechers am Gerät während einer Teams-Besprechung bei gleichzeitiger ...

Weiteres E-Mail Konto mit Outlook Assistent anlegen fehlgeschlagen

Kopierter Text aus Outlook: Zeilenumbruch wird mitkopiert zu Wordpad, wie abschalten?