Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Пакет Microsoft Office

  Все выпуски  

RusFAQ.ru: Пакет Microsoft Office


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный платный хостинг на базе Windows 2008

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

Лысков Игорь Витальевич
Статус: Младший модератор
Рейтинг: 244
∙ повысить рейтинг >>
ValeryN
Статус: Академик
Рейтинг: 180
∙ повысить рейтинг >>
Windessy
Статус: Студент
Рейтинг: 131
∙ повысить рейтинг >>

∙ / КОМПЬЮТЕРЫ И ПО / Помощь пользователю ПО / Пакет Microsoft Office

Выпуск № 795 от 03.06.2009, 12:05
Администратор рассылки: Ерёмин А.А., Советник
В рассылке: подписчиков - 528, экспертов - 291
В номере: вопросов - 1, ответов - 2

Нам очень важно Ваше мнение об этом выпуске рассылки. Вы можете оценить этот выпуск по пятибалльной шкале, пройдя по ссылке:
оценить выпуск >>

Вопрос № 168491: Здравствуйте Еxcel 2007 макросы. Нужно, чтобы выполнялся макрос вставки текущей даты. Но чтобы при открытии документа через несколько дней, дата стояла та, когда он был создан. Формат дд-мм-гггг. Как написать макрос знаю, но не пойму...



Вопрос № 168491:

Здравствуйте
Еxcel 2007 макросы.

Нужно, чтобы выполнялся макрос вставки текущей даты. Но чтобы при открытии документа через несколько дней, дата стояла та, когда он был создан. Формат дд-мм-гггг.

Как написать макрос знаю, но не пойму какую команду использовать. ТДАТА и СЕГОДНЯ вставляют текущую дату, но при открытии документа через несколько дней, дата изменяеться, а должна быть "статичной".

Отправлен: 29.05.2009, 10:54
Вопрос задал: Симашкевич Руслан, Студент
Всего ответов: 2
Страница вопроса >>


Отвечает 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 (Россия) | Еще номера >>
  • Отправить WebMoney:
  • Вам помогли? Пожалуйста, поблагодарите эксперта за это!


    Отвечает M@gi$†e®, Студент :
    Здравствуйте, Симашкевич Руслан.

    Проще всего написать макрос и присвоить его кнопке. Тогда переходите в нужную ячейку, кликаете на кнопку, и получаете статичную дату. Макрос (если одну строчку кода можно так назвать ) в приложении

    Приложение:

    -----
    Aquila non Capta Muscas - Орёл не ловит мух

    Ответ отправил: M@gi$†e®, Студент
    Ответ отправлен: 30.05.2009, 02:13

    Оценка ответа: 5
    Комментарий к оценке:
    Огромное спасибо.
    Для полного счастья добавил строчку Selection.NumberFormat = "dd,mm,yyyy"

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 250043 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
  • Вам помогли? Пожалуйста, поблагодарите эксперта за это!



    Нам очень важно Ваше мнение об этом выпуске рассылки. Вы можете оценить этот выпуск по пятибалльной шкале, пройдя по ссылке:
    оценить выпуск >>

    подать вопрос экспертам этой рассылки >>

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)

    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров >>

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.


    © 2001-2009, Портал RFpro.ru, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2009.6.0 beta от 24.05.2009

    В избранное