Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
макрос спечати с сохранением копии листа в папке
 
#1
13.12.2012 12:15:47
Здравствуйте.  
Условия: книга состоит из нескольких листов, предположим это "лист1" и "лист2". На Первом листе заполняются ячейки формы, а на другом введенные данные впечатываются в шаблон документа. Помогите прописать код макроса кнопки печати на первом листе так, чтобы последовательно выполнялись следующие действия:  
1. быстрая печать "лист2" (при этом "лист1" всегда должен оставаться активным.  
2. создание папки в той же директории где расположен документ с именем "отчет"  
3. создание подпапки в папке "отчет" с именем системного времени  
3. создание в последней папке копии "лист2" с именем, какое прописано в ячейке А1 на "лист1"  
 
Важно чтобы все эти процессы протекали незаметно, "лист1" всегда оставался активным, а отчеты создавались на заднем плане. Так же важный момент  - если в папке уже есть объект с таким именем, новому файлу должен присваиваться порядковый номер копии такого имени.
 
 
 
#2
13.12.2012 12:41:23
Столы заказов:  
- Фриланс - http://www.planetaexcel.ru/contacts.php  
- Фриланс - http://www.excel-vba.ru/zakazy-na-razrabotku-programmy-makrosa-i-pr/  
- Фриланс - http://excelvba.ru/order/send  
- Фриланс - http://www.programmersforum.ru/forumdisplay.php?s=&daysprune=-1&f=29  
- Фриланс - http://www.cyberforum.ru/freelance/
 
 
 
#3
13.12.2012 13:26:35
кто нибудь готов сделать на безвозмездной основе, или хотя бы выложить похожий макрос, я уж сам под себя доработаю
 
 
 
#4
13.12.2012 13:36:43
{quote}{login=}{date=13.12.2012 01:26}{thema=}{post}... хотя бы выложить похожий макрос, я уж сам под себя доработаю{/post}{/quote}Запишите все операции макрорекордером - вот и будет основа для доработки.
 
 
 
#5
13.12.2012 13:36:49
При таком подходе с вашей стороны - бесплатно никто делать не будет.  
 
Почему?  
1) куча условий (больше похоже на техзадание)  
2) нет примера файла (нам больше заняться что ли нечем, чтобы воссоздавать ваш файл, в надежде угадать структуру таблиц...)  
3) никакой конкретики (даже если вам напишут какой-то похожий макрос, с вероятностью 95% вы его не сможете адаптировать под свою задачу)  
4) не видно никаких наработок с вашей стороны (попыток сделать хоть что-то самостоятельно)
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#6
13.12.2012 14:56:47
я не силен в кодах, но элементарные макросы записал, так например печать у меня проходит, очистка ячеек и тп, но вод команды для создания папок, копирования листов книги и присвоения им имен я не знаю.  
на данный момент у меня прописаны элементарные задачи:  
Sub ïå÷àòü_çàÿâ()  
'  
' ïå÷àòü_çàÿâ Ìàêðîñ  
'  
 
'  
   Sheets("ÇÀßÂ").PrintOut Copies:=1, Collate:=True  
End Sub  
Sub ïå÷àòü_àêò()  
'  
' ïå÷àòü_àêò Ìàêðîñ  
'  
 
'  
   Sheets("ÀÊÒ").PrintOut Copies:=1, Collate:=True  
End Sub  
Sub ïå÷àòü_áîíóñû()  
'  
' ïå÷àòü_àêò Ìàêðîñ  
'  
 
'  
   Sheets("Áîíóñû").PrintOut Copies:=1, Collate:=True  
End Sub  
Sub î÷èñòêà()  
'  
' î÷èñòêà Ìàêðîñ  
'  
 
'  
   Range( _  
       "A2:A15,A17:A22,A23:C23,E6:E11,E13:E14,E16,D17:E17,E18:E19,D21:E21,E22,G2:H9,H11:H14" _  
       ).Select  
   Selection.ClearContents  
   Range("A2").Select  
End Sub
 
 
 
#7
13.12.2012 14:58:43
упс, корявинько вставилось...
 
 
 
#8
13.12.2012 15:00:30
При копировании кода из редактора следите за раскладкой клавиатуры - должна быть RU. Если код большой - выкладывайте его в .txt файле.  
Копирование листа и присвоение ему имени тоже нормально записывается рекордером.
 
 
 
#9
13.12.2012 15:09:17
это да, а вот создание папки записать не получилось
 
 
 
#10
13.12.2012 15:14:07
Поиск по форуму работает:  http://yandex.ru/sitesearch?text=%F1%EE%E7%E4%E0%F2%FC+%EF%E0%EF%EA%F3&searchid=84804&web=0
 
 
 
Страницы: 1
Читают тему
Наверх