2

У меня есть несколько файлов электронных таблиц Open Office (назовем их исходными файлами), каждый из которых содержит финансовую информацию о нашем конкретном офисе. У меня также есть сводная электронная таблица, которая считывает некоторые ключевые данные об офисах и проводит некоторый анализ. Для анализа я также хотел бы знать, насколько устарели отдельные исходные файлы, когда в последний раз офисы обновляли свои данные. Есть ли способ получить доступ к свойствам файловой системы "Время последнего изменения" и / или "Время создания" исходных файлов из Open Office и импортировать дату в указанную ячейку?

Альтернативные решения тоже в порядке, пока я получаю дату последнего изменения исходных файлов в ячейках сводной таблицы.

2 ответа2

0

Я продолжаю видеть вопросы о получении последней даты изменения файла в ячейке Calc без хороших ответов. Ниже приведен код, который я использую. Добавьте это как макрос в свою электронную таблицу.

Function CalcDoc_Modify_Date()
Dim sTemp
' work with DocInfo
With ThisComponent.DocumentProperties.ModificationDate
   ' set return format
   ' force month and day to two digits
   sTemp = _
   Format( .Month, "0#" ) & "/" & _
   Format( .Day, "0#" ) & "/" & _
   .Year & " " & _
   Format( .Hours, "0#" ) & ":" & _
   Format( .Minutes, "0#" ) 
   End With
' assign func return value
CalcDoc_Modify_Date = sTemp
End Function 

В вашей электронной таблице введите = CALCDOC_MODIFY_DATE() в ячейку, чтобы вызвать эту функцию.

0

Самая близкая вещь, которую я нашел для libreoffice - это функция NOW() . В Интернете есть много ответов, связанных с Excel, которые требуют визуального базового. Смотри например

http://www.sumproduct.com/thought/creating-a-timestamp

Надеюсь ты (и я!) когда-нибудь получу хороший ответ, но я думаю, что через 9 месяцев нам придется прожить немного дольше ...

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .