Главная страница
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.07 c
15-1267312427
Когда-то_был_тут
2010-02-28 02:13
2010.08.27
Напомните писателя


15-1265377108
vovko26
2010-02-05 16:38
2010.08.27
С чего начать?


6-1217926149
dima_tepl
2008-08-05 12:49
2010.08.27
Работа с микроконтроллером по TCP/IP протоколу


2-1271829332
vegarulez
2010-04-21 09:55
2010.08.27
Как в KaZip`е корректно работать с русскими названиями файлов?


15-1272852692
Tirael
2010-05-03 06:11
2010.08.27
как скрыть лишние интерфейсы