DDE проблема
 

скрипт при первом запуске берет данные из приложения , при втором запуске выскакивает ошибка -0 внешние приложение не может выполнять операцию DDE . и останавливается на строке returnList = DDERequest(ints,"PLC_PRG.A") . В чем тута косяк ?Код:Sub ConnectDim ints As IntegerDim returnListDim Doc As ObjectDim Sheet As ObjectDim Cell As Object'MsgBox ("KFKFK",1)ints = DDEInitiate("CODESYS", "E:\nASHE111.pro")returnList = DDERequest(ints,"PLC_PRG.A")Doc = StarDesktop.CurrentComponentSheet = Doc.Sheets(0)Cell = Sheet.getCellByPosition(0, 0)Cell.String = CStr(returnList)DDETerminate intsEnd Sub