не могу вызвать сторонне приложение из макроса с помощью shell.вот пример кода:Код:Sub Main Dim iNumber As Integer Shell("/usr/bin/iconv -f cp1251 -t utf8 /home/user/Desktop/smeta5164.rtf > /home/user/Desktop/smeta5164.rtf1",2) k=RecodeString (Chr(clng("84")), "ANSI", "windows-1251") GlobalScope.BasicLibraries.LoadLibrary(" Tools") ToggleWindow(False) Today = Date() oDocument = ThisComponent oSheets = oDocument.Sheets oFirstSheet = oSheetsExampleWorkWithAFileEnd Subиз коммандной строки все работает, что можно сделать?
|