Дата создания и редактирования книги - Microsoft Office Excel

tae1980 · 14.11.2010, 22:36

Нужно определить дату создания и дату последнего изменения в книги.
Дату последнего изменения узнать не возможно, по это приравняем её к дате последнего сохранения (что ни одно это же). Поиск по инету позволил найти следующее решение:

Код:

    ДатаСоздания = word(wb.BuiltinDocumentProperties(11).Value, 1)
    ДатаИзменения = word(wb.BuiltinDocumentProperties(12).Value, 1)

где wb - объкт книга переданная в процедуру через аргумент.
По этой схеме "ДатаИзменения" содержит правильное число последнего сохранения, а вот "ДатаСоздания" всегда содержит дату 24.12.2008.
Как правильно определять дату создания книги?

motorway · 15.11.2010, 00:47

Насчет даты последнего изменения - можно в книге Эксела сделать макрос, который при изменении ячейки будет в файл записывать дату текущую. А потом можно смотреть по этому файлу...

tae1980 · 15.11.2010, 08:31

Цитата:

Сообщение от motorway

Насчет даты последнего изменения - можно в книге Эксела сделать макрос, который при изменении ячейки будет в файл записывать дату текущую. А потом можно смотреть по этому файлу...

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

tae1980 · 15.11.2010, 19:54

Цитата:

Сообщение от tae1980

Как правильно определять дату создания книги?

Логически размышляя можно прийти к выводу, что дату создания файла нужно искать в свойствах (общие) файла. Но как получить доступ к ним?

tae1980 · 15.11.2010, 21:39

В свойствах книга на вкладке "общие" есть правильная дата создания книги под именем "Создан:". Там на вкладке "Статистика" есть еще один пункт "Создан:", но уже с неправильной датой. Эта команда возвращает дату с вкладки "Статистика". Как получить дату создания файла из вкладки "Общие"?

Код:

ActiveWorkbook.BuiltinDocumentProperties("Creation Date").Value

tae1980 · 17.11.2010, 00:00

Вопрос снимется, нашел решение которое меня устраивает.
Пришлось обращаться к свойствам файла, а не книги.

Код:

    Объект(ОбъектДатаОткрытия) = word(FileDateTime(path), 1)

tae1980 · 22.11.2010, 23:51

Цитата:

Сообщение от tae1980

Вопрос снимется, нашел решение которое меня устраивает.
Пришлось обращаться к свойствам файла, а не книги.

Код:

    Объект(ОбъектДатаОткрытия) = word(FileDateTime(path), 1)

Как показала практика, данная команда не всегда возвращает то что нужно... :((((
Так что вопрос снова открыт. Как узнать дату СОЗДАНИЯ файла/книги?

14.11.2010, 22:36	#1
tae1980 Форумчанин Регистрация: 02.02.2009 Сообщений: 844	Дата создания и редактирования книги Нужно определить дату создания и дату последнего изменения в книги. Дату последнего изменения узнать не возможно, по это приравняем её к дате последнего сохранения (что ни одно это же). Поиск по инету позволил найти следующее решение: Код: `ДатаСоздания = word(wb.BuiltinDocumentProperties(11).Value, 1) ДатаИзменения = word(wb.BuiltinDocumentProperties(12).Value, 1)` где wb - объкт книга переданная в процедуру через аргумент. По этой схеме "ДатаИзменения" содержит правильное число последнего сохранения, а вот "ДатаСоздания" всегда содержит дату 24.12.2008. Как правильно определять дату создания книги? С уважением, Алексей. Последний раз редактировалось tae1980; 14.11.2010 в 22:38.

15.11.2010, 00:47	#2
motorway Участник клуба Регистрация: 28.06.2009 Сообщений: 1,950	Насчет даты последнего изменения - можно в книге Эксела сделать макрос, который при изменении ячейки будет в файл записывать дату текущую. А потом можно смотреть по этому файлу... Скрипты PHP, VBA. Skype:ktmtramway Расписание электричек Быстрый проверенный хостинг.

15.11.2010, 21:39	#5
tae1980 Форумчанин Регистрация: 02.02.2009 Сообщений: 844	В свойствах книга на вкладке "общие" есть правильная дата создания книги под именем "Создан:". Там на вкладке "Статистика" есть еще один пункт "Создан:", но уже с неправильной датой. Эта команда возвращает дату с вкладки "Статистика". Как получить дату создания файла из вкладки "Общие"? Код: `ActiveWorkbook.BuiltinDocumentProperties("Creation Date").Value` С уважением, Алексей.

17.11.2010, 00:00	#6
tae1980 Форумчанин Регистрация: 02.02.2009 Сообщений: 844	Вопрос снимется, нашел решение которое меня устраивает. Пришлось обращаться к свойствам файла, а не книги. Код: `Объект(ОбъектДатаОткрытия) = word(FileDateTime(path), 1)` С уважением, Алексей.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Дата и время редактирования строки!	PapaHedgehog	Microsoft Office Excel	2	28.10.2009 20:49
Дата актуальности книги	Vbonivur	Microsoft Office Excel	2	10.08.2009 04:58
В FileListBox1 дата последнего редактирования файла	lexaltd	Компоненты Delphi	2	06.08.2008 20:57
Дата создания каталога	eoln	Win Api	1	14.07.2008 10:54
Дата создания файла	Шеллер Алексей	Общие вопросы Delphi	2	03.03.2007 12:32