Фиксирование времени открытия файла - Microsoft Office Excel

eda · 05.02.2009, 09:11

Здравствуйте. Подскажите, пожалуйста, как зафиксировать время открытия Excel-файла?

SAS888 · 05.02.2009, 09:22

А куда помещать зафиксированное время?

EducatedFool · 05.02.2009, 09:23

Макрос Workbook_Open срабатывает каждый раз при открытии книги. Внутри его и помещаем команду записи текущего времени:

(описано 3 способа записи - сами выберите подходящий)

Код:

Private Sub Workbook_Open()
    ThisWorkbook.BuiltinDocumentProperties("Comments") = Now ' пишем в свойства документа
    [a1] = Now ' пишем в ячейку
    SaveSetting "MyProgram", "Options", "Дата открытия файла", Now ' пишем в реестр
End Sub

eda · 05.02.2009, 10:08

Большое спасибо!

eda · 05.02.2009, 11:44

Скажите, а как проверить из надстройки, открыта ли книга?

SAS888 · 05.02.2009, 11:52

Сама надстройка всегда открыта. А если нужно проверить открыта ли книга (хоть из надстройки, хоть нет), то можно так:

Код:

On Error Resume Next
    Set Wb = Workbooks("test.xls")
    If Err = 0 Then MsgBox "Книга открыта" Else MsgBox "Книга не открыта"
    On Error GoTo 0

05.02.2009, 09:11	#1
eda Пользователь Регистрация: 14.08.2008 Сообщений: 78	Фиксирование времени открытия файла Здравствуйте. Подскажите, пожалуйста, как зафиксировать время открытия Excel-файла?

05.02.2009, 09:22	#2
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	А куда помещать зафиксированное время? Чем шире угол зрения, тем он тупее.

05.02.2009, 09:23	#3
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,858	Макрос Workbook_Open срабатывает каждый раз при открытии книги. Внутри его и помещаем команду записи текущего времени: (описано 3 способа записи - сами выберите подходящий) Код: `Private Sub Workbook_Open() ThisWorkbook.BuiltinDocumentProperties("Comments") = Now ' пишем в свойства документа [a1] = Now ' пишем в ячейку SaveSetting "MyProgram", "Options", "Дата открытия файла", Now ' пишем в реестр End Sub` __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

05.02.2009, 11:52	#6
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Сама надстройка всегда открыта. А если нужно проверить открыта ли книга (хоть из надстройки, хоть нет), то можно так: Код: `On Error Resume Next Set Wb = Workbooks("test.xls") If Err = 0 Then MsgBox "Книга открыта" Else MsgBox "Книга не открыта" On Error GoTo 0` Чем шире угол зрения, тем он тупее.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Опредиление типа медиа-файла,времени его звучания	Anatol_rus	Мультимедиа в Delphi	2	13.11.2008 22:41
Ошибка открытия файла Word 2007	Владим	Microsoft Office Word	0	07.10.2008 14:22
Фиксирование действий в файле	asale	Microsoft Office Excel	7	17.08.2008 09:06
при открытии большого файла должно появляться окно с ProgressBar и показывать ход открытия	Михаил Юрьевич	Общие вопросы Delphi	3	28.05.2008 23:33
Фиксирование нескольких ячеек	lusui	HTML и CSS	4	22.01.2008 17:54

05.02.2009, 10:08	#4
eda Пользователь Регистрация: 14.08.2008 Сообщений: 78	Большое спасибо!

05.02.2009, 11:44	#5
eda Пользователь Регистрация: 14.08.2008 Сообщений: 78	Скажите, а как проверить из надстройки, открыта ли книга?