VPF::Копирование пары листов на другую пару листов.

Валк

Дата 7.2.2007, 13:29 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 98
Регистрация: 25.5.2006

Репутация: нет
Всего: нет

Задача:
Есть лист1 книги1 и лист2 книги1. Эти листы надо скопировать в другую книгу. Первый лист - "один в один", второй - "только значения".
Написал макрос:

Код


Set Wb_Jornal = ThisWorkbook                                            ' Определяем переменную книги журнала
Set Sh_Jornal = Wb_Jornal.Sheets(1)                                     ' Определяем переменную листа журнала
Set Sh_Blank_Act = Wb_Jornal.Sheets(5)                                  ' Определяем переменную листа шаблона
Set Wb_Act = Workbooks.Add                                              ' Определяем книгу акта
Set Sh_Act = Wb_Act.Sheets(1)                                           ' Определяем лист акта
    Sh_Act.Name = "Акт"                                                 ' Задаём имя листу акта
Wb_Act.Sheets.Add                                                       ' Создаём временный лист
Set Sh_TMP = Wb_Act.Sheets(2)                                           ' Определяем временный лист

Sh_Blank_Act.Cells.Copy                                                 ' Копирование листа акта
Sh_Act.PasteSpecial                                                     ' Вставляем шаблон в лист книги акта
Sh_Jornal.Cells.Copy                                                    ' Копируем лист журнала
Sh_TMP.PasteSpecial                                                     ' Вставляем лист журнала во временный лист

где - лист1 книги1 - Sh_Blank_Act, лист2 книги1 - Sh_Jornal.
Так у меня оба листа копируются строго в лист Sh_Act.

Парни, что я делаю не так?

Genyaa

Дата 7.2.2007, 14:52 (ссылка)

(нет голосов)

Загрузка ...

Усердный

Профиль
Группа: Участник
Сообщений: 154
Регистрация: 25.9.2006
Где: Москва

Репутация: 2
Всего: 11

Мне кажется, ошибка здесь:

Код


Wb_Act.Sheets.Add                             
Set Sh_TMP = Wb_Act.Sheets(2)

Cделав добавление листа (без параметров), лист добавился в начало книги и стал Item=1 (нумерация Item идет по порядку следования ярлыков в книге слева на право), а лист акта стал Item=2.
Как следствие в и Sh_TMP и Sh_Act содержат ссылки на один и тот же объект - лист Акта.

Может быть так будет лучше?:

Код


Set Sh_TMP = Wb_Act.Sheets.Add

--------------------

Всякое решение плодит новые проблемы.

Валк

Дата 7.2.2007, 15:25 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 98
Регистрация: 25.5.2006

Репутация: нет
Всего: нет

Genyaa
Спасибо за разъяснение и толковое решение проблемы.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »