Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1208to1212
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

com add in für excel xp/2010

com add in für excel xp/2010
Dennis
hallo forum,
ein programmierer hatte mir damals für excel xp ein com-add-in programmiert, welches ein makro alle X sekunden automatisch ausführt, da die "ontime"-methode ja recht schwierig zu handhaben ist. dieses com-add-in ist allerdings nicht mehr kompatibel zu excel 2010.
bevor ich jetzt einen programmierer suche, der mir so ein add-in schreiben kann, wollte ich mal hier fragen, ob und welche möglichkeiten es gibt, ein makro z.b. alle 2/5/10/30 sekunden stabil ausführen zu lassen.
das excelsheet bekommt durch verknüpfungen ständig neue daten. das makro wertet sie aus und speichert sie in einer tabelle.
vielen dank!

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: com add in für excel xp/2010
29.03.2011 18:38:10
Hajo_Zi
Hallo Dennis,
onTime hast Du schon abgelehnt, was anderes fällt mir da auch nicht ein.

API-Einsatz
29.03.2011 18:46:00
ransi
HAllo Dennis
Dies ist einfach:
(Versteh sogar ich)
Declare Sub Sleep Lib "kernel32.dll" ( _
    ByVal dwMilliseconds As Long)

Oder hiermit wirds dann richtig spannend:
Private Declare Function GetAsyncKeyState Lib "user32" _
    (ByVal vKey As Long) As Integer

Private Declare Function SetTimer Lib "user32.dll" ( _
    ByVal hWnd As Long, _
    ByVal nIDEvent As Long, _
    ByVal uElapse As Long, _
    ByVal lpTimerFunc As Long) As Long

Private Declare Function KillTimer Lib "user32.dll" ( _
    ByVal hWnd As Long, _
    ByVal nIDEvent As Long) As Long



' Timer-Prozedur, welche im Abstand der festgelegten
' Millisekunden ein Ereignis sendet
Public Sub TimerProc(ByVal hWnd As Long, ByVal uMsg As Long, _
        ByVal wParam As Long, ByVal lParam As Long)

    
End Sub


' Startet den Timer
Public Function EnableTimer(ByVal msInterval As Long)
    If hEvent <> 0 Then Exit Function
    hEvent = SetTimer(0&, 0&, msInterval, AddressOf TimerProc)
End Function


Public Function DisableTimer()
    If hEvent = 0 Then Exit Function
    KillTimer 0&, hEvent
    hEvent = 0
End Function

Public Sub start()
    EnableTimer 200
End Sub


Public Sub stoppen()
    DisableTimer
End Sub

ransi
Anzeige
AW: API-Einsatz
29.03.2011 23:11:55
Dennis
hallo ransi,
wow! das sieht echt interessant aus... ich werde das morgen direkt ausprobieren! vielen dank!!!!

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige