Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

20 Апрель 2019, 23:30 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Здесь можно поблагодарить участников форума Улыбка
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Работа с общим файлом в OpenOffice и Excel  (Прочитано 5847 раз)
0 Пользователей и 1 Гость смотрят эту тему.
nvictoria
Новичок
*
Offline Offline

Сообщений: 3


« Стартовое сообщение: 18 Октябрь 2010, 07:28 »

После перевода сервера с  Linux на Windows (была Новел Нетвере, перешли на виндоуз сервер). Файл  Excel  на общем ресурсе открывает один пользователь, если его отрывают в OpenOffice  (calc) открывает второй пользователь в  уведомлении отсутствует имя , кем открыт файл  (неизвестный пользователь). А нужно именно имя. Что нужно сделать?

Записан
prof-alex
Форумчанин
***
Offline Offline

Пол: Мужской
Сообщений: 354


« Ответ #1: 18 Октябрь 2010, 09:15 »

Обоим пользоваться одним офисным пакетом, либо Excel либо Calc.

Netware никогда линуксом не была, но я сомневаюсь, что при её использовании вы могли получать уведомление в calc о том кто заблокировал файл из excel.
Записан


«Студентов, ранее изучавших Бейсик, практически невозможно обучить хорошему программированию. Как потенциальные программисты они подверглись необратимой умственной деградации» Э. Дейкстра
nvictoria
Новичок
*
Offline Offline

Сообщений: 3


« Ответ #2: 18 Октябрь 2010, 11:33 »

спасибо ответ " Обоим пользоваться одним офисным пакетом, либо Excel либо Calc" замечательный, но мне не подходит...
Воспользовалась информацией Re: Файл уже используеться Excel 2003
от « Ответ #2 : 18 Октябрь 2008, 19:22:24 »

Private Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Workbook_Open()
  Dim UN As String, txtFile As String
  UN = String(100, 0) ' "предзаполняем" строку (для API)
  GetUserName UN, 100 'получаем имя
  txtFile = ThisWorkbook.Path & "\" & ThisWorkbook.Name & "_log.txt" 'путь к файлу
  If ActiveWorkbook.ReadOnly Then 'только чтение?
    Open txtFile For Input As #1
      MsgBox Input(LOF(1), #1) 'отображаем кем посл. раз открыто
    Close #1
  Else 'если доступен:
    Open txtFile For Output As #1 'открываем текстовик для записи
    Print #1, Replace(UN, Chr(0), ""), Now, "(посл. доступ)" 'записываем имя
    Close #1 'закрываем
  End If
End Sub

В данном случае текстовый файл создастся в этой же папке, где и xls-файл, но можно использовать любую папку, исправив путь к файлу (txtFile).


Примечание: Код следует поместить в модуль книги (ЭтаКнига).
----
В Excel работает, а в Open при сохранении файла выдает ошибку

[вложение удалено Администратором]
Записан
prof-alex
Форумчанин
***
Offline Offline

Пол: Мужской
Сообщений: 354


« Ответ #3: 18 Октябрь 2010, 11:57 »

В Excel работает, а в Open при сохранении файла выдает ошибку
И не должен, у ООо свой вариант Basic. Разрулить такое крайне сложно, проще всем поставить ООо, благо бесплатен, и убедить использовать его при совместном редактировании документов.

Хотя самым верным решением будет уход от совместноредактируемых документов в сторону СУБД.
Записан


«Студентов, ранее изучавших Бейсик, практически невозможно обучить хорошему программированию. Как потенциальные программисты они подверглись необратимой умственной деградации» Э. Дейкстра
nvictoria
Новичок
*
Offline Offline

Сообщений: 3


« Ответ #4: 18 Октябрь 2010, 13:15 »

Спасибо! Попробую.
Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!