Дату в строку загоняем и формат меняем как хотим :)

[darksun]

Что-то я свой макрос развиваю и развиваю Как начал, так и понесло. Чем дальше, тем больше мне вся эта технология нравится

С сохранением разобрались, только я каждый день сохраняю новый файл с именем blablabla_290605.xls , где "290605", это, как нетрудно догадаться, текущая дата

Заюзал FormatDateTime(Date, vbShortDate), получается 29.06.2005, что для имени файла сгодится, но хотелось бы покороеч. Итого хочу загнать в строку первый, второй, четвертый, пятый, девятый и десятый символы той строки, что выдает вышеприведенная функция.

И забыл, как мне обратиться к N'ному символу строки.


P.S> Если у кого есть более красиво решение задачи - милости просим!!

[Vitaly1]

И забыл, как мне обратиться к N'ному символу строки

Mid(Строка, номер_символа_в_строке, количество_символов)

[Gloom]

Код: Выделить всё

Format(Date,"blablabla_DDMMYY.xl\s")

[darksun]

Vitaly1, Спасибо!! Именно то, что я искал!!

[darksun]

Код: Выделить всё

ActiveWorkbook.SaveAs Filename:="D:\USERS\QWERTY\Прайсы\NetLab_" & Format(Date, "DDMMYY"), _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False


Всё гениальное оказалось совсем просто ))

Спасибо всем, кто принял участие!!