Страница: 1 |
Страница: 1 |
Вопрос: Высота строк листов Excel
Добавлено: 14.08.06 15:17
Автор вопроса: aht
Добрый день.
Каким образом можно "скопировать" высоту строк с одного листа на все остальные? Циклом прогонять, я думаю бессмысленно, т.к. будет очень долго работать (около 5 листов по 200 строк).
Ответы
Всего ответов: 5
Номер ответа: 1
Автор ответа:
GSerg
Вопросов: 0
Ответов: 1876
Профиль | | #1
Добавлено: 14.08.06 16:56
Если высоты строк разные - только циклом.
Если нет - sheet2.range("1:200".rowheight=100
Номер ответа: 2
Автор ответа:
aht
Вопросов: 2
Ответов: 4
Профиль | | #2
Добавлено: 14.08.06 17:21
к сожалению, разные...
ок, а тогда ещё воппросик: можно ли "клонировать" целиком лист, т.е. с форматированием, данными, шириной столбцов, шириной строк, шириной полей (печать) и прочими параметрами печати? Первые три пункта хорошо копируются с помощью PasteSpecial, а вот всё остальное только через прямое присвоение "оригинал-копия"?
Номер ответа: 3
Автор ответа:
ADSemenov.ru
Вопросов: 5
Ответов: 276
Web-сайт:
Профиль | | #3
Добавлено: 14.08.06 23:33
____Есть ещё нюанс, который, может быть, не касается этого случая.
____ Если создавать новую книгу своим файлом на чужом компе, то при копировании ширины столбцов (любым способом) результат будет зависеть от размера шрифта по умолчанию в Excel на чужом компе. Возможно и с высотой строк может быть то же самое. Причина в том, что ширина столбцов задаётся в относительных единицах, привязанных к ширине шрифта по умолчанию в приложении.
____ Мне удалось привести всё в норму только через маштабирование пропорционально отношению размеров шрифтов.
Номер ответа: 4
Автор ответа:
GSerg
Вопросов: 0
Ответов: 1876
Профиль | | #4
Добавлено: 15.08.06 00:22
Да собственно, worksheet.copy
А F2 там понажимать от скуки - нет?..
Номер ответа: 5
Автор ответа:
aht
Вопросов: 2
Ответов: 4
Профиль | | #5
Добавлено: 15.08.06 09:12
дело в том, что я вызываю Excel через OLE и вот такая конструкция не прокатывала:
CALL METHOD OF sheets 'COPY'
EXPORTING #1 = 'Лист 1'.
но чудом сработала такая:
DATA t1 TYPE OLE2_OBJECT.
GET PROPERTY OF sheets 'COPY' = t1
exporting #1 = sheets.
целый час бился, пока на форуме случайно не наткнулся...