|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.06.2012, 22:04 | #1 |
Регистрация: 23.06.2012
Сообщений: 4
|
Формирование документа и сохранение на рабочем столе
Здравствуйте, уважаемые форумчане !!!
Прошу помочь доработать макрос: имеется таблица (на одном листе книги) и шаблон документа (на другом листе), при заполнении таблицы заполняется шаблон, необходимо сохранить документ отдельным файлом на рабочем столе по следующей маске «ФИО текущая дата.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" _ Заранее спасибо !!! |
25.06.2012, 10:33 | #2 |
Старожил
Регистрация: 08.02.2012
Сообщений: 2,173
|
Код:
Правильно поставленная задача - три четверти решения.
|
28.06.2012, 18:22 | #3 |
Регистрация: 23.06.2012
Сообщений: 4
|
Спасибо огромное !!!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Рисование на рабочем столе... | Johnson | Общие вопросы Delphi | 7 | 13.07.2011 19:22 |
Сохранение файлов программы в папку на рабочем столе | Ирина Ушакова | Помощь студентам | 0 | 03.06.2011 13:12 |
ЧАТ на Рабочем столе! | Kachimov | Свободное общение | 7 | 11.08.2010 01:21 |
кнопка на рабочем столе | guffer | Общие вопросы Delphi | 3 | 08.07.2009 12:15 |
html на рабочем столе | >AdepT< | Win Api | 4 | 28.02.2007 20:06 |