дата и время последнего изменение файла

Пользователь

Сообщений: 16 Регистрация: 11.07.2013

03.12.2013 10:48:27

Всем привет!
Подскажите, пожалуйста, как можно вывести день и время последнего изменения файла (запуска кнопки change view, см. вложение). Т.е. нажимаешь кнопку load file и загружаешь текстовый файл в приложении. Нажимаешь кнопку change view и дата и время изменения отображается на листе fact stock в ячейках G7 (дата) и I7(время).
Если не затруднит, то можете подсказать, почему макрос для кнопки clear list не очищает первую строчку?

Прикрепленные файлы

files.zip (71.13 КБ)

ber$erk

Пользователь

Сообщений: 2735 Регистрация: 25.12.2012

03.12.2013 12:32:50

>>> как можно вывести день и время последнего изменения файла

Между

Код
Set fso = CreateObject("scripting.filesystemobject") Set ts = fso.OpenTextFile(Filename$, 1, True): txt$ = ts.ReadAll: ts.Close

вставьте

Код

    Set ts = fso.GetFile(Filename$)
    Worksheets("fact stock").[G7] = CDate(Int(ts.DateLastModified))
    Worksheets("fact stock").[I7] = CDate(ts.DateLastModified - Int(ts.DateLastModified))
    ts.Close: Set ts = Nothing

>>> почему макрос для кнопки clear list не очищает первую строчку
уберите лишнее

Код
.Offset(1)

из

Код
ActiveSheet.UsedRange.Offset(1).ClearContents

Учимся сами и помогаем другим...

vitality Пользователь Сообщений: 16 Регистрация: 11.07.2013	#3 03.12.2013 14:29:25 ber$erk, ок, спасибо большое!