Дмитрий Логинов писал(а):В SaveAs надо добавить параметр Local.
Должно быть так:
ActiveWorkbook.SaveAs Filename:=filenamenew, FileFormat:=xlCSVMSDOS, CreateBackup:=False, Local:=True
И все будет хорошо
Дмитрий Логинов писал(а):Всегда пожалуйста
Кстати, а где именно вы сохранили макрос? Надеюсь, вам не приходиться его каждый раз вставлять в Excel перед выполнением?
Андрей Гуминов писал(а):А в каком виде Каскад создает отчет? Может в имени книги есть дата отчета?
Я так понял, год и месяц Вы указали в макросе, а день пишете руками в ячейку A1.
Павел Штатнов писал(а):Да-да, я как раз и хотел об этом спросить. Как его правильно сохранить?
t = Right(Worksheets("Лист1").Cells(1, 1).Value, 8)
newt = "_200706" & Left(t, 2)
t = Right(Worksheets("Лист1").Cells(1, 1).Value, 8)
newt = "_20" & Right(t, 2) & Left(Right(t, 5), 2) & Left(t, 2)
Павел Штатнов писал(а):3. Создаем кнопку на любой панели инструментов и назначаем ей макрос
4. Выгружаем Л7 нажимаем созданную кнопку и наслаждаемся...
Светлана Хорькова писал(а):Павел Штатнов писал(а):3. Создаем кнопку на любой панели инструментов и назначаем ей макрос
4. Выгружаем Л7 нажимаем созданную кнопку и наслаждаемся...
может Уважаемый "Полак" влючит этот макрос в свой макрос "Автопарк " и нам сразу станет легче , еще легче?
Светлана Хорькова писал(а):может Уважаемый "Полак" влючит этот макрос в свой макрос "Автопарк " и нам сразу станет легче , еще легче?
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5