DDE not updated

[hazabaral]

I am trying to get value from application "RRHUT", but when I press the button for macro I get updated value, I want to get continous update from the "RRHUT" application.
Any suggestion to change the macro ?


Sub UPDATE
Dim oSheet
oSheet = ThisComponent.Sheets(0)
Dim oCel1

Dim nDDEChannel as Integer
Dim S as String

Dim q_name1 as String
Dim q_name2 as String

q_name1 = oSheet.getCellByPosition(2,.string
q_name2 = oSheet.getCellByPosition(2,9).string

nDDEChannel=DDEInitiate("RRHUT", q_name1)
oCel1 = oSheet.getCellByPosition(2,1)
S=DDERequest(nDDEChannel,q_name2)
oCel1.setValue(S)

End Sub