Добрый день.Хочу поздравить всех с наступающим Новым Годом..и поблагодарить всех кто мне вчера помог в моей проблемме...Если не трудно ещё одна задача.Есть макрос:  
Dim sName as string  
if Range("A1") > 0 then  
Workbooks.Open "C:\Temp\Шаблон1":sName = "Шаблон1"  
ElseIf Range("A2") > 0 then  
Workbooks.Open "C:\Temp\Шаблон2":sName = "Шаблон2"  
Else  
Workbooks.Open "C:\Temp\Шаблон":sName = "Шаблон"  
end if  
 
Workbooks(sName & ".xls").Activate  
ChDir "C:\Уведомления\Документы"  
Const FilterList = "Книга Microsoft Office Exel(*.xls),*.xls"  
По условию откраваются разные документы..после внесения данных открытый документ сохраняеться..но в указанную папку..А как сделать чтобы если открыт шаблон1 то он сохранялся бы в папку Документы1.....если открыт шаблон2 то в папку Документы2 ...и.т.д...что бы имя открытого файла было бы именем для папки в которую он будет сохранён.

Добрый день уважаемые специалисты...  
Надеюсь что Вы мне поможете..  
Как сделать так что бы макрос открывал файл из указанной папки но при условии..  
Если А1>0 то открывается файл с именем "шаблон1", если А2>0 то открываеться файл с именем "шаблон 2"а в остальных случаях должен открыватся файл с именем "шаблон".  
Вот такая задачка...Заранее благодарю всех кто откликнется на мою просьбу и хоть чем поможет мне...

подскажите, пож-та, как можно восстановить не сохраненную информацию в экселе (случайно закрыла программу)