com add in für excel xp/2010

Forumthread: 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

AW: com add in für excel xp/2010

Hajo_Zi
API-Einsatz

ransi
AW: API-Einsatz

Dennis

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

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!!!!

Beliebteste Forumthreads (12 Monate)

Forumthread: com add in für excel xp/2010

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

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread