Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

method insert класса range завершен неверно   Найти похожие ветки 

 
Delphist2   (2010-05-22 16:12) [0]

Пытаюсь вставить строку в excele, как здесь: http://programmersforum.ru/showthread.php?t=64416
Вылетает исключение. Что посоветуете?


 
Delphist2   (2010-05-22 16:13) [1]

исключение в строке
XLApp.Selection.Insert("xlDown");


 
Delphist2   (2010-05-22 16:25) [2]

А если так делать
sheet.Range[i+29,j].EntireRow.Insert("xlDown",EmptyParam);
то OLE error 800A03EC


 
Anatoly Podgoretsky ©   (2010-05-22 16:42) [3]

> Delphist2  (22.05.2010 16:12:00)  [0]

А зачем нам куда то лезть?


 
Delphist2   (2010-05-22 16:54) [4]

Вот выкладываю тогда:
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;



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.051 c
2-1266744427
Тима
2010-02-21 12:27
2010.08.27
передача массива в функцию


2-1267350234
Pavia
2010-02-28 12:43
2010.08.27
Отоброзить TStringList на экране.


8-1203001110
][aker
2008-02-14 17:58
2010.08.27
Проблемы с Tmediaplayer у начинающего лузера


15-1263742298
@!!ex
2010-01-17 18:31
2010.08.27
Петиция Delphi for Mac OS


15-1273012753
Игорь
2010-05-05 02:39
2010.08.27
madCodeHook