| Вопрос: Банальное копирование. | Добавлено: 11.04.07 18:19 |
Автор вопроса:  Konstantin
|
| Доброго времени суток. Вопрос такой, есть базовый фаил в который заносится инф. в нем листов 20-30 нужно создать новую книгу и скопировать в нее от 2-х до 4-х листов из первого файла. Подскажите какая должна быть процедура???? Заранее спасибо. |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  ADSemenov.ru Вопросов: 5 Ответов: 276 |
Web-сайт: Профиль | | #1 | Добавлено: 11.04.07 18:54 |
| ____ Наверное, если разговор идёт об Excel-книгах, надо запустить запись макроса, сделать все необходимые Вам действия и посмотреть на получившийся код. | ||
|
Номер ответа: 2 Автор ответа:  Konstantin Вопросов: 7 Ответов: 12 |
Профиль | | #2 | Добавлено: 12.04.07 09:46 |
| Это бло первое что я сделал, только проблема в том что при создании книги Excel дает ей имя "Книга1","Книга2" и т.д., а последующее копирование идет жеско в книгу которая прописана, и при повторении процедуры открывается книга с последующим номером и копирование не работает. | ||
|
Номер ответа: 3 Автор ответа: ADSemenov.ruВопросов: 5 Ответов: 276 |
Web-сайт: Профиль | | #3 | Добавлено: 12.04.07 11:12 |
| ____ Напишите поподробней нужный Вам порядок действий и в каком месте записанный макрос Вас не устраивает. | ||
|
Номер ответа: 4 Автор ответа: KonstantinВопросов: 7 Ответов: 12 |
Профиль | | #4 | Добавлено: 12.04.07 15:26 |
Sheets("анкета для ОАРК Поручителя 2" .Select
Sheets("анкета1" .Copy
Windows("  12).xls".Activate
Sheets("анкета1" .Select
Sheets("анкета1" .Copy Before:=Workbooks("Книга1".Sheets(1)
Windows(" 12).xls".Activate
Sheets("анкета1" .Select
Sheets("анкета1" .Copy Before:=Workbooks("Книга1".Sheets(1)
Range("F288" .Select
ActiveWindow.SmallScroll Down:=-9 Range("B249:G249" .Select
Selection.Copy Application.CutCopyMode = False Range("B249:G249" .Select
ActiveCell.FormulaR1C1 = "фио" Range("G264" .Select
ChDir "C:\Documents and Settings\\123" ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\Gordienko_KA\My Documents\автомотизатор\123\фио.xls" _ , FileFormat:=xlExcel9795, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWindow.SmallScroll Down:=-3 ActiveWindow.Close проблема в ссылках на "книгу1" должнобыть виксированное название берущееся из файла (12) из ячейки B1 |
||
|
Номер ответа: 5 Автор ответа: ADSemenov.ruВопросов: 5 Ответов: 276 |
Web-сайт: Профиль | | #5 | Добавлено: 12.04.07 19:13 |
|
____ А вот у меня при записи макроса почему-то есть такой фрагмент: Workbooks.Add
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\ADSemenov\Мои документы\имя.xls", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ____ Сюда, по-моему, просто вставить имя какое вам нужно и копируйте в неё. Ну и закрыть книгу по окончании с сохранением. |
||
|
Номер ответа: 6 Автор ответа: KonstantinВопросов: 7 Ответов: 12 |
Профиль | | #6 | Добавлено: 13.04.07 10:04 |
| Сейчас попробую спасибо за помощь! | ||
Страница: 1 |