Формирование документа и сохранение на рабочем столе

Здравствуйте, уважаемые форумчане !!!Прошу помочь доработать макрос: имеется таблица (на одном листе книги) и шаблон документа (на другом листе), при заполнении таблицы заполняется шаблон, необходимо сохранить документ отдельным файлом на рабочем столе по следующей маске «ФИО текущая дата.xls» так, чтобы были значения вместо формул в ячейках, сохранились параметры печати и не было ограничений при копировании (если более 255 символов в ячейке при копировании самого листа выдает ошибку), (ФИО содержится в ячейке C5 таблицы), пробовал разные варианты записи макроса.Sub ДОКУМЕНТ() ' ' ДОКУМЕНТ Макрос ' Макрос записан 23.06.2012 (Виктор) ' ' Сочетание клавиш: Ctrl+я ' Cells.Select Selection.Copy Workbooks.Add Cells.Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Cells.Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Range("C5").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "Иванов Иван Иванович" Range("C9").Select ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\Виктор\Рабочий стол\Иванов Иван Иванович 23.06.2012.xls"_ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False End SubПодскажите, пожалуйста, универсальный способ сохранения "C:\Documents and Settings\" & CreateObject("WScript.Network").Use rName & "\ CreateObject("WScript.Shell").Speci alFolders("Desktop")\" & _ ФИО & "_" & Format(Now, "yymmdd") & ".xls" _Заранее спасибо !!!
2 ответа

Sub SaveList()
S = [C5] & Format(Date, "DDMMYYYY") & ".xls"
ActiveSheet.Copy
ActiveWorkbook.SaveAs S
End Sub
оно?


Спасибо огромное !!!