Powerbuilder Excel Setremote Error

Hi,

This is my code;

long handle, i, exsat = 3, sbul

integer varmis

sayfa1 = create OLEObject

VARMIS = sayfa1.ConnectToNewObject ('excel.sheet')

IF VARMIS <> 0 THEN

  messagebox("Dikkat","excel not found")

else

  messagebox("Bilgi","excel found")

END IF

sayfa1.application.visible = True

Sayfa1.Application.ActiveWindow.WindowState = 2

handle = OpenChannel("Excel", "Sheet1", HANDLE(w_test))

if handle <> -1 then

  messagebox("Bilgi","Sheet1 connection is open")

  SetRemote("R2C1", "value-1", handle)

  SetRemote("R2C2", "value-2", handle)

  SetRemote("R2C3", "value-3", handle)

end if

Sayfa1.Application.Cells.Select

Sayfa1.Application.Cells.Font.Name = "Arial Tur"

Sayfa1.Application.Cells.Font.Size = 8

Sayfa1.Application.ActiveCell.Select

CloseChannel(handle, Handle(w_test))

Code is not working one computer, windows10-office 2010 installed. Code working until this line,

handle = OpenChannel("Excel", "Sheet1", HANDLE(w_test))

and waiting, not responding.

Thanks