Выпуск № 795 от 03.06.2009, 12:05
Администратор рассылки: Ерёмин А.А., Советник
В рассылке: подписчиков - 528, экспертов - 291
В номере: вопросов - 1, ответов - 2
Нам очень важно Ваше мнение об этом выпуске рассылки. Вы можете оценить этот выпуск по пятибалльной шкале, пройдя по ссылке: оценить выпуск >>
Вопрос № 168491: Здравствуйте Еxcel 2007 макросы. Нужно, чтобы выполнялся макрос вставки текущей даты. Но чтобы при открытии документа через несколько дней, дата стояла та, когда он был создан. Формат дд-мм-гггг. Как написать макрос знаю, но не пойму...
Вопрос № 168491:
Здравствуйте Еxcel 2007 макросы.
Нужно, чтобы выполнялся макрос вставки текущей даты. Но чтобы при открытии документа через несколько дней, дата стояла та, когда он был создан. Формат дд-мм-гггг.
Как написать макрос знаю, но не пойму какую команду использовать. ТДАТА и СЕГОДНЯ вставляют текущую дату, но при открытии документа через несколько дней, дата изменяеться, а должна быть "статичной".
Отвечает Megaloman, Практикант :
Здравствуйте, Симашкевич Руслан. Я совершенно не знаком с Excel 2007, но, думаю, идея моего решения, проверенного в Excel 2003, может быть реализована и Вами. Итак, найдём полное имя Вашего экселовского файла (это единственное, что присуще Excel, надеюсь, что-то аналогичное должно быть в Excel 2007), а далее обращаемся к файловой системе и время создания берём из свойств файла. Вот код:
Код:
FPath = ActiveWorkbook.FullName ' Находим полное имя файла активной раб книги
Set FSO = CreateObject("Scripting.FileSystemObject") ' Обращаемся к объекту FileSystemObject Windows Script Host Set FFile = FSO.GetFile(FPath) CreatedTime = FFile.DateCreated ' Находим дат
у создания файла
Range("A1") = FPath ' Для отладки - помещаем в ячейку полное имя файла Range("A2") = CreatedTime ' Для отладки - помещаем в ячейку время создания файла
----- Нет времени на медленные танцы
Ответ отправил: Megaloman, Практикант
Ответ отправлен: 29.05.2009, 19:01
Оценка ответа: 5 Комментарий к оценке: Спасибо за помощь.
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 250032
на номер 1151 (Россия) |
Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Проще всего написать макрос и присвоить его кнопке. Тогда переходите в нужную ячейку, кликаете на кнопку, и получаете статичную дату. Макрос (если одну строчку кода можно так назвать ) в приложении
Приложение:
----- Aquila non Capta Muscas - Орёл не ловит мух
Ответ отправил: M@gi$†e®, Студент
Ответ отправлен: 30.05.2009, 02:13
Оценка ответа: 5 Комментарий к оценке: Огромное спасибо. Для полного счастья добавил строчку Selection.NumberFormat = "dd,mm,yyyy"
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 250043
на номер 1151 (Россия) |
Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Нам очень важно Ваше мнение об этом выпуске рассылки. Вы можете оценить этот выпуск по пятибалльной шкале, пройдя по ссылке: оценить выпуск >>
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.