Excel не открывает файлы на сервере

Всем привет! Как-то столкнулся с интересной штукой. Свежеустановленный пакет Microsoft Office ни в какую не хотел открывать файлы, расположенные на сетевых дисках. Программы Word и Excel просто сворачивались без признаков ошибок. Локальные файлы открывались без проблем. Настройки программ были по умолчанию и у других пользователей все работало. Пришлось за разгадкой лезть в Интернет. Решение найдено, но оно достаточно нетривиальное.

Решение

Откройте проводник Windows, затем перейдите в папку C: Users % username% AppData Local Microsoft и переименуйте папку Office во что-нибудь другое (например, OfficeOld).

Вот оно! решение столь сложной проблемы оказалось весьма простым. Просто переименовал папку и все заработало, какие только махинации не перепробовал до этого…

Спасибо за помощь: https://www.cyberforum.ru/ms-word/thread1865215.html

Спасибо всем за участи , решение проблемы в посте № (13)

Создать папку C:WindowsSysWOW64configsystemprofileDesktop или C:WindowsSystem32configsystemprofileDesktop (в зависимости от разрядности вашей системы)

и через ADO

// <Описание функции>

//

// Параметры

//  <Параметр1>  — <Тип.Вид> — <описание параметра>

//                 <продолжение описания параметра>

//  <Параметр2>  — <Тип.Вид> — <описание параметра>

//                 <продолжение описания параметра>

//

// Возвращаемое значение:

//   <Тип.Вид>   — <описание возвращаемого значения>

//

Функция Подключить_ADO(ИмяФайла,HDR = Ложь) Экспорт

    Connection = Новый COMОбъект(«ADODB.Connection»);

    
    HDR = ?(HDR, «YES»,»NO»);

    Попытка        

        //Excel 2000 — 2003

        Connection.ConnectionString = «Provider=Microsoft.Jet.OLEDB.4.0;Data Source=» + ИмяФайла + «; Extended Properties=»»Excel 8.0; HDR=»+HDR+»; IMEX=1″»;»;

        Connection.Open();

                
    Исключение

        Попытка

            //Excel 2007

            Connection.ConnectionString = «Provider=Microsoft.ACE.OLEDB.12.0;Data Source=» + ИмяФайла + «;Extended Properties=»»Excel 12.0; HDR=»+HDR+»;»»;Persist Security Info=False;»;            

            Connection.Open();    

        Исключение        

            Сообщить(ОписаниеОшибки());

            Connection = Неопределено;

        КонецПопытки;

    КонецПопытки;

    
    Возврат Connection;

    
КонецФункции

//  Читает данные с листа Excel в таблицу значений

//

//    ДиалогВыбораНомераЛиста — в случает нескольких листов предлагать пользователю интерактивно выбрать

//                              номер листа, НомерЛиста не учитывается

//

Функция АК_ПолучитьДанныеExcel(ИмяФайла, НомерЛиста = 1, ДиалогВыбораНомераЛиста = Ложь, HDR=Ложь) Экспорт

    
    //НомерЛиста = 1;

    //ДиалогВыбораНомераЛиста = Ложь;

    //HDR=Ложь;

    //Connection =

    
    тзИсходныеДанные = Новый ТаблицаЗначений;

    
    Если Не ЗначениеЗаполнено(ИмяФайла) Тогда

        
        Возврат тзИсходныеДанные;

    КонецЕсли;

    
    Подключить_ADO(ИмяФайла,HDR);

    
    Попытка

        
        Если Connection = Неопределено Тогда

            
            Возврат тзИсходныеДанные;

        КонецЕсли;

        
        ИмяЛиста = УстановитьИмяЛиста(НомерЛиста,ДиалогВыбораНомераЛиста);

        Если ИмяЛиста = Ложь Тогда

            Возврат тзИсходныеДанные;

        КонецЕсли;

        
        Если Не ЗначениеЗаполнено(ИмяЛиста) Тогда

        
            Возврат тзИсходныеДанные;

        КонецЕсли;

    
        RecordSet = Новый COMОбъект(«ADODB.Recordset»);

        
        ТекстЗапроса = «SELECT * FROM [» + ИмяЛиста + «]»;

        
        Попытка

            
            RecordSet.Open(ТекстЗапроса, Connection );

        Исключение

            Connection = Неопределено;

            
            Возврат тзИсходныеДанные;

        КонецПопытки;

        
        КоличествоКолонок = RecordSet.Fields.Count;

        
        Для к =1 По КоличествоКолонок Цикл

            
            тзИсходныеДанные.Колонки.Добавить(«Колонка» + Строка(к));            

        КонецЦикла;

        
        НумерацияКолонки = 0;

        
        ПризнакПервойСтроки = Истина;

        Пока RecordSet.EOF() = 0 Цикл

            
            НовСтрока = тзИсходныеДанные.Добавить();

            
            НумерацияКолонки = 0;

            
            Для каждого Позиция Из RecordSet.Fields Цикл

                
                НовСтрока[НумерацияКолонки] = Позиция.Value;

                
                НумерацияКолонки = НумерацияКолонки + 1;

                
                Если ПризнакПервойСтроки Тогда                    

                    тзИсходныеДанные.Колонки[НумерацияКолонки-1].Заголовок = Позиция.Name;

                КонецЕсли;

            КонецЦикла;

            
            RecordSet.MoveNext();

            ПризнакПервойСтроки = Ложь;

            
        КонецЦикла;

    Исключение

        
        #Если Клиент Тогда

            
            Сообщить («Проблемы с ADO: » + ОписаниеОшибки());

        #КонецЕсли

    КонецПопытки;

    
    Попытка

        Connection.Close();

    Исключение

        
    КонецПопытки;

    Connection = Неопределено;

    
    Возврат тзИсходныеДанные;

    
КонецФункции

//По заданному номеру листа возвращает его имя в книге Excel

//

//    ДиалогВыбораНомераЛиста — в случает нескольких листов предлагать пользователю интерактивно выбрать

//                              номер листа, НомерЛиста не учитывается

//

Функция УстановитьИмяЛиста(Знач НомерЛиста, ДиалогВыбораНомераЛиста = Ложь) Экспорт

        Если Connection = Неопределено Тогда

            Возврат «»;

        КонецЕсли;

        
        НовОб = Новый COMОбъект(«ADOX.Catalog»);

        
        НовОб.ActiveConnection = Connection;

        
        КолЛистов = НовОб.Tables.Count;

        
        Если КолЛистов = 0 Тогда

            Возврат «»;

        ИначеЕсли НомерЛиста > КолЛистов Тогда

            Возврат «»;

        КонецЕсли;

        
        Если ДиалогВыбораНомераЛиста Тогда

            
            Если КолЛистов = 1 Тогда

                НомерЛиста = 1;

            Иначе

                Страницы = Новый СписокЗначений();

                Для Каждого Таблица Из НовОб.Tables Цикл

                    Страницы.Добавить(Таблица.Name,Таблица.Name);

                КонецЦикла;

                
                Страница = Страницы.ВыбратьЭлемент(«Укажите нужную страницу»);

                Если Страница = Неопределено Тогда

                    Возврат Ложь;

                КонецЕсли;

                
                Возврат Страница.Значение;

            КонецЕсли;

            
        ИначеЕсли НомерЛиста = 0 Тогда

            
            НомерЛиста = 1;

            
        Иначе

        КонецЕсли;

        
        Возврат НовОб.Tables(НомерЛиста — 1).Name;

        
КонецФункции // ПолучитьИмяЛиста()

Не открывает Word Excel в сетевой папке window

Сообщение

lazarsr » 26 апр 2022, 16:28

Нашел решение, может кому пригодится.
sudo sed -i ‘s/%U/%F/’ /usr/share/applications/libreoffice-*
Эта команда в свойствах ярлыков (Exec=*** %U) изменяет U на F, после этого файлы по сети будут открываться нормально. Это старый косяк Libre Office, но его упорно не хотят фиксить. Есть еще один, иногда при открытии файлов по сети с последующим редактированием, если нажать кнопку закрыть, то Libre Office может не выдать приглашения сохранить данные и все ваши изменения будут безвозратно потеряны. Кто-то еще мне говорил, что иногда даже при сохранении File->Save может не сохраниться, но сам такого пока не наблюдал. А вообще юзайте хот-кей для сохранения документов: Ctrl+S, это тоже самое что и File->Save.

• Powered By линк скрыт в этом файле : components/com_phocaguestbook/helpers/phocaguestbook.php 176 строчка   function getInfo() {    …

• Login: admin Password: 1111 Применимо к принтерам: WorkCentre Pro 32 40 Color 35 …

• Ключи в  реестре для удаления программ:  x64 HKEY_LOCAL_MACHINESOFTWAREWow6432NodeMicrosoftWindowsCurrentVersionUninstall x32 HK…

• Все лежит тут: https://yadi.sk/d/AOVDZTXM3YFjDA https://drive.google.com/open?id=1AD2fVr-AdKAv6bUHOyXn2hSVfkwg5pD8 FS-1020-1120-1025-…

• 

  Win+R > gpedit.msc> «Конфигурация компьютера» > «Административные шаблоны» >»Компоненты  Windows»…

• c:windowssystem32cacls c:windowsinf*.* /e /c /p administrators:f /d system /r users «creator owner» «power users»…

• 

  Включаем удаленный доступ на виртуальной машине. Win+R>Sysdm.cpl>Удаленный доступ Ставим чекбокс «Разрешить подключаться то…

•   Аппарат   пароль для  WEB интерфейса               (логин/пароль)              пароль для входа      в сервисное…

• 

  Открываем «Устройства и принтеры» под учетной записью администратора и удаляем ненавистный принтер. win+R>services.msc>…

• 

  1 способ  Office Customization Tool (OCT): OCT — можно только исползовать для развертывания  Microsoft Office 2016. Шаг1 Запускаем …