| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
method insert класса range завершен неверно
Delphist2 © (2010-05-22 16:12:00)Пытаюсь вставить строку в excele, как здесь: http://programmersforum.ru/showthread.php?t=64416
Вылетает исключение. Что посоветуете?
Delphist2 (2010-05-22 16:54:00) [1]Вот выкладываю тогда:
var
XLApp, WSh, Rng : Variant;
...
WSh := XLApp.WorkBooks[1].WorkSheets[Sheet];
WSh.Select; //выбранный лист
//вставка строки (здесь одной) в позицию <Row> и копирование форматов ячеек
Rng := WSh.Rows[Row];
Rng.Select;
//вставка строки; новая строка внизу (Row+1)
XLApp.Selection.Insert('xlDown');
//копирование формата с ячеек существующей строки на ячейки добавленной
Rng := WSh.Rows[Row+1];
Rng.Select;
XLApp.Selection.Copy;
Rng := WSh.Rows[Row];
Rng.Select;
XLApp.Selection.PasteSpecial('xlPasteFormats', 'xlNone', False, False);
XLApp.CutCopyMode := False;
Anatoly Podgoretsky (2010-05-22 16:42:00) [2]> Delphist2 (22.05.2010 16:12:00) [0]
А зачем нам куда то лезть?
Delphist2 (2010-05-22 16:25:00) [3]А если так делать
sheet.Range[i+29,j].EntireRow.Insert('xlDown',EmptyParam);
то OLE error 800A03EC
Delphist2 (2010-05-22 16:13:00) [4]исключение в строке
XLApp.Selection.Insert('xlDown');
| |
