Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.04.2010, 12:47   #1
Робин
Форумчанин
 
Регистрация: 03.04.2010
Сообщений: 118
По умолчанию Копирование листа в др. закрытую книгу

Добрый день!
Ну вот, создал новую тему.
Что мне нужно?
Нужен макрос, который бы копировал некий заполненый шаблон, например отчета, расположеный на активном листе рабочей книги, в другую, закрытую книгу. Причем, обе книги должны находиться в одной папке.И не заменяять, а каждый раз добавлять новый лист под другим именем (например: 01.2010, 02.2010 и так далее.
На форумах нашел несколько примеров, но ни один из них мне не подошел. Поскольку сам макросы, создавать пока не научился. А пробую приспособить к своей задачке, макросы найденые на форуме.
Вот остановился на вашем варианте, но че то ничего не выходит. У меня стоит Офис 2003.
ЗАРАНЕЕ СПАСИБО ЗА ПОМОЩЬ!

А вот файл с примером не прикрепляется. Вроди все делаю, как написано в инструкции. Причем ПК обо ошибеке не сообщает.
Пробую вот так, см. файл вот здесь: http://slil.ru/28944055

Последний раз редактировалось Робин; 12.04.2010 в 13:11.
Робин вне форума Ответить с цитированием
Старый 12.04.2010, 13:11   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Не понял, какое отношение имеет прикреплённый файл к вашей задаче,
но макрос будет выглядеть примерно так:

Код:
Sub test()
    Dim sh As Worksheet: Set sh = ActiveSheet    ' лист, который копируем
    Application.ScreenUpdating = False  ' отключаем обновление экрана

    ' ИмяФайла.xls - имя книги, в которую копируем активный лист
    With Workbooks.Open(ThisWorkbook.Path & "\" & "ИмяФайла.xls")    ' открываем файл
        sh.Copy , .Worksheets(.Worksheets.Count)    ' вставляем активный лист в конец книги
        .Close True    ' закрываем файл с сохранением
    End With
End Sub
EducatedFool вне форума Ответить с цитированием
Старый 12.04.2010, 13:57   #3
Робин
Форумчанин
 
Регистрация: 03.04.2010
Сообщений: 118
По умолчанию

Прошу прощения за мою тупость!
Но я не знаю как указать путь для сохранения листа. И потом, как мне кажется,было бы логично если бы Ексель в выпадающем окне предлагал свое имя листа, с возможностью его редактировать.
Мой новый файл здесь : http://slil.ru/28944388
Робин вне форума Ответить с цитированием
Старый 13.04.2010, 12:02   #4
Робин
Форумчанин
 
Регистрация: 03.04.2010
Сообщений: 118
По умолчанию

Здравствуйте!
Знатоки ВБА! Неверю что это задание не по силам и для вас?
Напоминаю его.
Мне нужно перенести (копировать) шаблон из рабочей книги СоздОтчет в закрытую книгу ХранОтчет .
При этом, перед тем как добавить новый лист в закрытую книгу, Эксель должен предложить пользователю свое имя листа (конечно же с возможностью его редактировать). Таких добавлений будет много.
В крайнем случае, если проще сохранять книгу с шаблоном в отдельную папку, и конечно же, каждый раз под новым именем, то меня устроит и такой вариант .Только бы, Эксель в автоматическом режиме, отслеживал : и создание отдельной папки (если она не создана пользователем, то предлагал бы ее создать), и каждый раз новое назвамие книги.
Но, как мне кажется, второй вариант потребует больше места на диске. Не правда ли?
К стати, имеющийся на форуме пример форумчанина OgE®_M@G «Сохранение книги в известную папку», у меня в 2003 , не работает.
Пожалуйста, помогите, если кто знает как это сделать.
Немного упрощенный пример, здесь :http://slil.ru/28949611
Робин вне форума Ответить с цитированием
Старый 14.04.2010, 11:12   #5
Робин
Форумчанин
 
Регистрация: 03.04.2010
Сообщений: 118
По умолчанию

Добрый день!
Ребяты. Наверное твоя - моя сапсем не понимает? Да!
Ну что ж. Спасибо и на этом!

Последний раз редактировалось Робин; 14.04.2010 в 12:32.
Робин вне форума Ответить с цитированием
Старый 14.04.2010, 17:56   #6
alvazor
Форумчанин
 
Регистрация: 02.07.2009
Сообщений: 122
По умолчанию

Гляньте, что-то похожее?
Вложения
Тип файла: rar Base.rar (24.5 Кб, 99 просмотров)
alvazor вне форума Ответить с цитированием
Старый 14.04.2010, 18:36   #7
Робин
Форумчанин
 
Регистрация: 03.04.2010
Сообщений: 118
По умолчанию

Спасибо alvazor большущее! Кажется то что мне надо.
Робин вне форума Ответить с цитированием
Старый 20.04.2010, 15:47   #8
SergSSV
Новичок
Джуниор
 
Регистрация: 20.04.2010
Сообщений: 2
По умолчанию

Доброе время суток !
... а можна ещё сюда (в этот скрипт) добавить виборку (с возможностью создания) папок куда будет записываться т.е. создаваться или переноситься (если уже есть такой) лист !?
Большое человеческое спасиба !!!
SergSSV вне форума Ответить с цитированием
Старый 22.04.2010, 09:33   #9
SergSSV
Новичок
Джуниор
 
Регистрация: 20.04.2010
Сообщений: 2
По умолчанию

Здравствуйте!
просьба: можна в этот скрипт добавить виборку (с возможностью создания) папок куда будет записываться т.е. создаваться или переноситься (если уже есть такой) лист !?
Очень нада.......
Большое человеческое спасиба !!!
SergSSV вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создание книги и перенос данных листа в дргую несуществующюю книгу OgE®_M@G Microsoft Office Excel 23 13.11.2009 06:35
Копирование диаграмм в новую книгу juliaowen Microsoft Office Excel 1 30.10.2009 11:06
Перемещение листа в другую книгу GWolf Microsoft Office Excel 4 04.03.2009 14:53
Копирование листа в другую книгу макросом xamillion Microsoft Office Excel 9 11.10.2008 08:59
добавление листа в книгу по условию Sasha K Microsoft Office Excel 4 30.01.2007 15:44