Сохранение книги с именем, представляющим собой "имя" и следующий за текущим месяц / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Сохранение книги с именем, представляющим собой "имя" и следующий за текущим месяц

15 сообщений из 15, страница 1 из 1

Сохранение книги с именем, представляющим собой "имя" и следующий за текущим месяц

#37367991

AS_1973

Гость

Здравствуйте, прошу помощи.
Имеется стандартный макрос (листинг):

'Сохранение книги с именем, представляющим собой текущую дату
Sub SaveAsDate()
Dim strDate As String
' Получение текущей даты и представление ее в формате "ддммгг"
strDate = Format(Now(), "ddmmyy")
' Сохранение книги в текущую папку под новым именем
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & strDate
End Sub

Требуется, чтобы книга сохранялась следующим образом:
"Имя" + следующий месяц года.
Пример.
Сейчас месяц июль, готовится график смен на август. Следовательно, при запуске макроса, должен сохранится файл с именем: "График смен на август 2011" (где "График смен на" - фиксированное имя, а "август 2011" - получающееся в зависимости от текущего месяца (в августе - это будет сентябрь, в декабре - январь 2012 и т.д.)).

Заранее спасибо!

...

Рейтинг:

0 / 0

26.07.2011, 18:44

| Ответить | Цитировать | Написать

Сохранение книги с именем, представляющим собой "имя" и следующий за текущим месяц

#37367996

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

AS_1973,

Код: plaintext

strDate = Format(DateAdd("m",  1 , Now()), "mm yyyy")

...

Рейтинг:

0 / 0

26.07.2011, 18:48

| Ответить | Цитировать | Написать

Сохранение книги с именем, представляющим собой "имя" и следующий за текущим месяц

#37367997

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

сорри

Код: plaintext

strDate = Format(DateAdd("m",  1 , Now()), "mmm yyyy")

[/quote]

...

Рейтинг:

0 / 0

26.07.2011, 18:48

| Ответить | Цитировать | Написать

Сохранение книги с именем, представляющим собой "имя" и следующий за текущим месяц

#37368004

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

AS_1973,

Код: plaintext

Текущий_месяц_прописью = Split(Format(Date, "dd mmmm yyyy"))( 1 )

Если что напильником

...

Рейтинг:

0 / 0

26.07.2011, 18:53

| Ответить | Цитировать | Написать

Сохранение книги с именем, представляющим собой "имя" и следующий за текущим месяц

#37368013

AS_1973

Гость

Shocker.Proсорри

Код: plaintext

strDate = Format(DateAdd("m",  1 , Now()), "mmm yyyy")

Спасибо, огромное.
Еще бы перед датой имя "График смен на" сохранялось.
И, я правильно понял, что в декабре 2011 файл сохранится как январь 2012 ?

...

Рейтинг:

0 / 0

26.07.2011, 18:58

| Ответить | Цитировать | Написать

Сохранение книги с именем, представляющим собой "имя" и следующий за текущим месяц

#37368014

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Ципихович ЭндрюAS_1973,

Код: plaintext

Текущий_месяц_прописью = Split(Format(Date, "dd mmmm yyyy"))( 1 )

Если что напильником

напильником тебя надо проткнуть. Нафига тут Split (только не отвечай пожалуйста, знаю я твой ответ)

сорри еще раз, полное название месяца - четыре буквы

Код: plaintext

strDate = Format(DateAdd("m",  1 , Now()), "mmmm yyyy")

...

Рейтинг:

0 / 0

26.07.2011, 18:58

| Ответить | Цитировать | Написать

Сохранение книги с именем, представляющим собой "имя" и следующий за текущим месяц

#37368016

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

AS_1973И, я правильно понял, что в декабре 2011 файл сохранится как январь 2012 ? Да.

...

Рейтинг:

0 / 0

26.07.2011, 18:59

| Ответить | Цитировать | Написать

Сохранение книги с именем, представляющим собой "имя" и следующий за текущим месяц

#37368017

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

Shocker.Pro, уже если как в ТЗ то
strDate = LCase(Format(DateAdd("m", 1, Now()), "mmmm yyyy"))
август, а не Август
Напильник это широкое понятие, приглашение к разговору
Часто бывает, спрашиваешь одно узнаёшь другое, разве нет

...

Рейтинг:

0 / 0

26.07.2011, 19:00

| Ответить | Цитировать | Написать

Сохранение книги с именем, представляющим собой "имя" и следующий за текущим месяц

#37368018

AS_1973

Гость

Ципихович ЭндрюAS_1973,

Код: plaintext

Текущий_месяц_прописью = Split(Format(Date, "dd mmmm yyyy"))( 1 )

Если что напильником
Извиняюсь, не совсем понял, что имеется ввиду?

...

Рейтинг:

0 / 0

26.07.2011, 19:00

| Ответить | Цитировать | Написать

Сохранение книги с именем, представляющим собой "имя" и следующий за текущим месяц

#37368019

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

AS_1973Извиняюсь, не совсем понял, что имеется ввиду? Не обращай внимания, его никто не понимает, проблема с выражением мысли

...

Рейтинг:

0 / 0

26.07.2011, 19:02

| Ответить | Цитировать | Написать

Сохранение книги с именем, представляющим собой "имя" и следующий за текущим месяц

#37368030

AS_1973

Гость

AS_1973Еще бы перед датой, - имя "График смен на", сохранялось.

...

Рейтинг:

0 / 0

26.07.2011, 19:09

| Ответить | Цитировать | Написать

Сохранение книги с именем, представляющим собой "имя" и следующий за текущим месяц

#37368033

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

AS_1973Ципихович ЭндрюAS_1973,

Код: plaintext

Текущий_месяц_прописью = Split(Format(Date, "dd mmmm yyyy"))( 1 )

Если что напильником
Извиняюсь, не совсем понял, что имеется ввиду?

Часто бывает, спрашиваешь одно узнаёшь другое, разве нет

вариантов много, какой Вам понравится только Вы знаете, зачем такое название у топика, а именно: Сохранение книги с именем
Вам ведь надо было:как высчитать месяц следующий за текущим месяцем в формате, например "август 2011"

Если Вам всё понятно, то как бы Вы решили в формате "августа 2011", если не знаете, опять спрашивать будете, вот для этого и нужен был мой ответ

...

Рейтинг:

0 / 0

26.07.2011, 19:14

| Ответить | Цитировать | Написать

Сохранение книги с именем, представляющим собой "имя" и следующий за текущим месяц

#37368036

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

AS_1973AS_1973Еще бы перед датой, - имя "График смен на", сохранялось.

Вот и подтверждение

...

Рейтинг:

0 / 0

26.07.2011, 19:15

| Ответить | Цитировать | Написать

Сохранение книги с именем, представляющим собой "имя" и следующий за текущим месяц

#37368040

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

Код: plaintext

ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & "ТО что ВАМ надо, график смен например " & strDate

...

Рейтинг:

0 / 0

26.07.2011, 19:17

| Ответить | Цитировать | Написать

Сохранение книги с именем, представляющим собой "имя" и следующий за текущим месяц

#37368045

AS_1973

Гость

Shocker.Pro
Ципихович Эндрю

Спасибо вам большое, всё получилось!

...

Рейтинг:

0 / 0

26.07.2011, 19:28

| Ответить | Цитировать | Написать

15 сообщений из 15, страница 1 из 1

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&gotonew=1&tid=2158540]:	0ms
get settings:	7ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	105ms
get topic data:	10ms
get first new msg:	6ms
get forum data:	2ms
get page messages:	49ms
get tp. blocked users:	1ms
others:	340ms

total:	539ms