Нужны пару макросов :)

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Anderson
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 23.01.2006 (Пн) 18:38

Нужны пару макросов :)

Сообщение Anderson » 23.01.2006 (Пн) 19:06

Доброго времени суток!

Что необходимо:
первое
Перевод из даты вида 23.01.06 или 23 января 2006
в вид 200601 (год полностью и месяц. Без числа)
Может это можно сделать средствами Excel? :)

второе
Сохранение файла в указанную папку (например C:\doc\2006\01),
с именем из указанной ячейки.
Желательно при нажатии какой-то кнопки в Excele, если возможно.

И совсем замечательно будет, если сохранение будет происходить по пути из первого макроса,
т.е. если дата 200601, значит путь 2006\01\,
а если дата 200603, то в папку 2006\03\
Папки созданы будут заранее, если это имеет значение.

СУВЖ Anderson

GAGArin
Неистовый флудер
Неистовый флудер
 
Сообщения: 1777
Зарегистрирован: 23.12.2002 (Пн) 12:46
Откуда: я тут взялся, не знаю...

Сообщение GAGArin » 23.01.2006 (Пн) 22:30

По первому могу намекнуть, что есть функции "день" и "год" ) Переводи их в строки и складывай )

Add Ах да, функция "месяц" тоже должна быть :lol: Вобщем не изобретай велосипед, делай средствами экселя.

Anderson
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 23.01.2006 (Пн) 18:38

Нашел

Сообщение Anderson » 24.01.2006 (Вт) 13:35

Я тут на вашем форуме нашел почти то, что мне нужно.
Вот только этот макрос сохраняет в мои док-ты.
Где нужно прописать путь для сохранения?

Если я правильно понял, то тебе нужно прицепить это к кнопке на листе (в ячейке А1 будет имя сохраняемого файла. Если нужно, то пропиши путь для сохранения):

Sub MySaveName()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs [a1]
Application.DisplayAlerts = True
End Sub

Сергей


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

uzer_@
Обычный пользователь
Обычный пользователь
 
Сообщения: 57
Зарегистрирован: 16.08.2005 (Вт) 16:44
Откуда: Санкт-Петербург

Сообщение uzer_@ » 24.01.2006 (Вт) 13:42

перед а1


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 36

    TopList  
cron