Копирование с сохранением форматирования средствами VBA

Пользователь

Сообщений: 3 Регистрация: 01.01.1970

22.07.2009 15:56:50

Здравствуйте.
Исходные: Есть файл xls с таблицей, имеющей сложную структуру.
Задача: Перенести средствами vba (не excel)диапазон ячеек в новый документ с сохранением структуры таблицы. (Новый документ подразумевает новая книга).
В Excel есть функция специальной вставки, которая переносит только формат таблицы (ширины столбцов), можно ли средствами vba реализовать также?

Юрий М Модератор Сообщений: 60983 Регистрация: 14.09.2012 Контакты см. в профиле	#2 22.07.2009 16:03:57 Команда Copy скопирует всё (и форматы). Если при Спец. вставке использовать нужные опции поочередно - можно добиться такого же результата.

coenobit

Пользователь

Сообщений: 3 Регистрация: 01.01.1970

22.07.2009 16:13:10

{quote}{login=Юрий М}{date=22.07.2009 04:03}{thema=}{post}Команда Copy скопирует всё (и форматы). Если при Спец. вставке использовать нужные опции поочередно - можно добиться такого же результата.{/post}{/quote}

Команда Copy не копирует ширину солбцов, пока решил следующим образом

Workbooks.Open Filename:="temp.xls" //открытие файла
Workbooks("temp.xls").Worksheets("tl").Activate // перенос фокуса
Workbooks("temp.xls").Worksheets("tl").Range("A1:AO18").Select
Selection.Copy
Workbooks("templ.xls").Worksheets("tl").Activate
Workbooks("templ.xls").Worksheets("tl").Range("A1:AO18").Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths // перенос ширины столбцов
Workbooks("temp.xls").Worksheets("tl").Range("A1:AO18").Copy Workbooks("templ.xls").Worksheets("tl").Range("A1:AO18") //копирование диапазона

The_Prist Пользователь Сообщений: 15492 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	#4 22.07.2009 16:18:46 А так? Sheets("Лист1").Range("B2").Copy Sheets("Лист2").Range("B1").PasteSpecial Paste:=xlPasteColumnWidths Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

coenobit Пользователь Сообщений: 3 Регистрация: 01.01.1970	#5 22.07.2009 16:56:02 {quote}{login=The_Prist}{date=22.07.2009 04:18}{thema=}{post}А так? Sheets("Лист1").Range("B2").Copy Sheets("Лист2").Range("B1").PasteSpecial Paste:=xlPasteColumnWidths{/post}{/quote} Спасибо, код оптимизируется))Но опять таки, сначала как сверху, копируем только ширину столбцов, а потом все равно надо копировать значения с форматированием. Workbooks.Open Filename:="temp.xls" Workbooks("temp.xls").Worksheets("tl").Range(z).Copy Workbooks("templ.xls").Worksheets("tl").Range(z).PasteSpecial Paste:=xlPasteColumnWidths Workbooks("temp.xls").Worksheets("tl").Range(z).Copy Workbooks("templ.xls").Worksheets("tl").Range(z) Кстати попутно - баг с цветами)) когда вручную переносишь таблицу, то изменяются цвета полей)) был зеленый, стал фиолетовый((= почему? не напрягает, но все же))

Читают тему