Как изменить файл Excel макросом без измения даты создания

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как изменить файл Excel макросом без измения даты создания (Макросы/Sub)

Timber_Wolf

Дата: Понедельник, 30.01.2017, 11:15 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 107

Репутация: 2 ±

Замечаний: 0% ±

Excel 2010

Суть вопроса в заголовке.
Как пояснение: Есть куча расчетов в разных файлах. Статистика сводится по дате создания файла. Куча расчетов в 16-ом году. Именнованный диапазон для итогового значения введен только в 17-ом году.
Можно ли макросом назначить именнованный диапазон в файле не изменив его даты создания (это критично)?
Ну или после редактирования файла присвоить программно старую дату создания?

Структура всегда одна:

1 Расчет
2 Расчет
3 Расчет
.....
n Расчет
итог:(1234) - это всегда отдельная ячейка от найденного слова "Итог: " смещение в право на клетку - присвоить ей именованный диапазон "Расчет" ну или любое название

Ответить

_Boroda_

Дата: Понедельник, 30.01.2017, 11:20 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

А дата создания и не должна измениться. Должны измениться дата изменения и дата открытия.

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Timber_Wolf

Дата: Понедельник, 30.01.2017, 12:02 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 107

Репутация: 2 ±

Замечаний: 0% ±

Excel 2010

_Boroda_, Может я не правильно тогда беру ее? Потому что пару файлов я изменил и дата изменилась... Я беру так: [vba]

Код

DateValue(FileDateTime(путь & имя файла))

[/vba]

Ответить

_Boroda_

Дата: Понедельник, 30.01.2017, 12:10 | Сообщение № 4

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Вы берете дату изменения
http://www.excelworld.ru/forum/10-11958-1#102522

Ответить

bmv98rus

Дата: Понедельник, 30.01.2017, 12:13 | Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4107

Репутация: 768 ±

Замечаний: 0% ±

Excel 2013/2016

Timber_Wolf,
https://msdn.microsoft.com/ru-ru....5).aspx Returns a Variant (Date) that indicates the date and time when a file was created or last modified.
Лучше наверно через FileSystemObject тут это подойдет и не к excel фйлам.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Сообщение отредактировал bmv98rus - Понедельник, 30.01.2017, 12:15

Ответить

Timber_Wolf

Дата: Понедельник, 30.01.2017, 12:21 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 107

Репутация: 2 ±

Замечаний: 0% ±

Excel 2010

_Boroda_, Ты как всегда красавчик... =))) Вот только бы сразу ответы прямые давал, не так надо а так... =))) Но по ссылке нашел ответ =))) +1 в карму
Вот что у меня получается.
[vba]

Код

ActiveWorkbook.Sheets("Список").Range("E" & sh) = CreateObject("Scripting.FileSystemObject").GetFile(strDirPath & strFileName).DateCreated

[/vba]

bmv98rus, Спс Борода уже разъяснил =))

Ответить

Timber_Wolf

Дата: Понедельник, 30.01.2017, 12:22 | Сообщение № 7

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 107

Репутация: 2 ±

Замечаний: 0% ±

Excel 2010

Блин. А тему опять новую создавать? Про обработку всех файлов макросом с присвоением диапазонов? =)))

Ответить

Страница 1 из 1
1