|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
07.11.2008, 11:13 | #11 |
Пользователь
Регистрация: 16.05.2008
Сообщений: 73
|
Sub t
Код:
Нужно выудить имя файла - подозреваю через ActiveWorkbook.Name, а затем вставить в нужную ячейку дату из имени файла "Скидки конкурентов 17.10.08", но в виде "17 октября". Как это можно реализовать? |
07.11.2008, 11:14 | #12 |
Пользователь
Регистрация: 16.05.2008
Сообщений: 73
|
Код:
Нужно выудить имя файла - подозреваю через ActiveWorkbook.Name, а затем вставить в нужную ячейку дату из имени файла "Скидки конкурентов 17.10.08", но в виде "17 октября". Как это можно реализовать? |
07.11.2008, 15:57 | #13 | ||
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
Цитата:
Код:
[f5] = GetDateFromFileName(ActiveWorkbook. Name) |
||
07.11.2008, 17:18 | #14 |
Пользователь
Регистрация: 16.05.2008
Сообщений: 73
|
СПАСИБО!!! Встречный вопрос, а если мы извлекаем дату не из активного документа, как тогда изменится код...
Последний раз редактировалось Bu$ter; 07.11.2008 в 17:24. |
07.11.2008, 17:28 | #15 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
если из того, в котором выполняется код (этот документ может быть неактивен), то замените activeworkbook на thisworkbook если же из-какого-то другого документа, то должно быть известно имя этого файла. В таком случае подставляем это имя в качестве аргумента функции: [f5] = GetDateFromFileName("Скидки конкурентов 17.10.08.xls") |
|
07.11.2008, 17:41 | #16 |
Пользователь
Регистрация: 16.05.2008
Сообщений: 73
|
Спасибо, разобрался...
|
07.11.2008, 17:50 | #17 |
Пользователь
Регистрация: 16.05.2008
Сообщений: 73
|
И еще один встречный вопрос:
После выполнения макроса имеем ячейку типа "17 октября" а как разделить ее на 2 - в первой октябрь, а во второй 17? |
07.11.2008, 18:04 | #18 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
Но можно и разделить. Например, так: Код:
Код:
|
|
11.11.2008, 18:08 | #19 |
Пользователь
Регистрация: 16.05.2008
Сообщений: 73
|
Все отлично работает, небольшое встречный вопрос -
Код:
Вопрос - как изменить код, чтобы название месяца было с прописной буквы? Спасибо |
11.11.2008, 19:04 | #20 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
[c58] =IIf(IsDate( ), LCase(Format(CDate(), "mmmm")), "")
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Выбор директории | Kashp | Общие вопросы Delphi | 6 | 06.05.2009 06:29 |
Система обновлений | Johnson | Общие вопросы Delphi | 8 | 25.10.2008 20:39 |
Выбор специальности | VollmonD | Свободное общение | 6 | 02.04.2008 13:18 |
Выбор установочника | Simply-Art | Софт | 3 | 15.02.2008 12:53 |