Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как узнать дату создания файла Excel? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как узнать дату создания файла Excel? (Макросы/Sub)
Как узнать дату создания файла Excel?
Timber_Wolf Дата: Среда, 25.01.2017, 08:52 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 2 ±
Замечаний: 0% ±

Excel 2010
Добрый день господа.
Собственно вопрос уместился в шапке. =)
Но есть маленькое но. Файл при этом не отрыт и открывать не надо.
Идет построение списка файлов в каталоге вот этим макросом (честно взятым от куда не помню)
[vba]
Код

sh=3

strDirPath = "C:\Тест\" 'Папка поиска
strMaskSearch = "*.xls*" 'Маска поиска

'Получаем первый файл соответствующий шаблону
strFileName = Dir(strDirPath & strMaskSearch)

Do While strFileName <> "" 'До тех пор пока файлы "не закончатся"
    
     ....
    ...... Мои какие то действия
        
    ActiveWorkbook.Sheets("Список").Range("D" & sh) = "Сюда надо дату создания файла не открывая его"
    
   sh=sh+1
    
    strFileName = Dir 'Следующий файл
Loop
[/vba]
 
Ответить
СообщениеДобрый день господа.
Собственно вопрос уместился в шапке. =)
Но есть маленькое но. Файл при этом не отрыт и открывать не надо.
Идет построение списка файлов в каталоге вот этим макросом (честно взятым от куда не помню)
[vba]
Код

sh=3

strDirPath = "C:\Тест\" 'Папка поиска
strMaskSearch = "*.xls*" 'Маска поиска

'Получаем первый файл соответствующий шаблону
strFileName = Dir(strDirPath & strMaskSearch)

Do While strFileName <> "" 'До тех пор пока файлы "не закончатся"
    
     ....
    ...... Мои какие то действия
        
    ActiveWorkbook.Sheets("Список").Range("D" & sh) = "Сюда надо дату создания файла не открывая его"
    
   sh=sh+1
    
    strFileName = Dir 'Следующий файл
Loop
[/vba]
Автор - Timber_Wolf
Дата добавления - 25.01.2017 в 08:52
Timber_Wolf Дата: Среда, 25.01.2017, 09:03 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 2 ±
Замечаний: 0% ±

Excel 2010
Утро сказывается... =)) Не проснулся я. =) Решение найдено.
Вернее понял почему найденное решение в инете не заработало у меня =)))
Если кому надо ответ на моем примере:

[vba]
Код
ActiveWorkbook.Sheets("Список").Range("D" & sh) = FileDateTime(strDirPath & strFileName)
[/vba]

Я банально пробовал использовать только strFileName а не полный пусть. +) В результате чего у меня не работало... =))
Тему можно закрыть, удалить и т.д. =))
Всем спасибо за внимание =)))
 
Ответить
СообщениеУтро сказывается... =)) Не проснулся я. =) Решение найдено.
Вернее понял почему найденное решение в инете не заработало у меня =)))
Если кому надо ответ на моем примере:

[vba]
Код
ActiveWorkbook.Sheets("Список").Range("D" & sh) = FileDateTime(strDirPath & strFileName)
[/vba]

Я банально пробовал использовать только strFileName а не полный пусть. +) В результате чего у меня не работало... =))
Тему можно закрыть, удалить и т.д. =))
Всем спасибо за внимание =)))
Автор - Timber_Wolf
Дата добавления - 25.01.2017 в 09:03
Alex_ST Дата: Среда, 25.01.2017, 14:28 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3213
Репутация: 609 ±
Замечаний: 0% ±

2003
ЗДЕСЬ посмотрите.


С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
СообщениеЗДЕСЬ посмотрите.
Автор - Alex_ST
Дата добавления - 25.01.2017 в 14:28
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как узнать дату создания файла Excel? (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!