Domino 9 und frühere Versionen > Entwicklung

Agent stoppen

<< < (2/2)

Thunder:
Danke für die Antworten:
Das hatten wir vorher probiert.Das ging aber nicht vernünftig, weil für eine Berechnung mehrere Minuten benötigt werden. Die Berechnung unter Excel ist unheimlich Komplex-es werden noch diverse Add-Ins benötigt  usw. Deswegen die Abfrage - dann wird ein Flag gesetzt und die folgenden Berechnungen in eine Warteschlange gestellt.
Könnte man hier evt. einen  Befehl einbauen (bin doch leider nicht so Script-firm  :-\)

Hier der Code für das Excel-beenden.

Option Public
Use "EXCELLIB"  

(Declarations)
Public Type INPUT_TYPE
   dwType As Long
   xi(0 To 23) As Integer
End Type

(Initialize)
Sub Initialize
   Print "Excel wird beendet"
   Dim oleExcel As Variant
   
   On Error Resume Next
   Set oleExcel = getobject(, "Excel.Application")
   
   If Isobject(oleExcel) Then
      On Error Goto 0
      Excel_Quit(oleExcel)
   Else
      Print "Kein Excel geöffnet -> Agent beendet"
   End If
   
End Sub
Public Type KEYBDINPUT
   wVk As Integer
   wScan As Integer
   dwFlags As Long
   time As Long
   dwExtraInfo As Long
End Type

Declare Function SendInput Lib "user32.dll" (Byval nInputs As Long, pInputs As INPUT_TYPE, Byval cbSize As Long) As Long

Navigation

[0] Themen-Index

[*] Vorherige Sete