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

Вниз

PasteSpecial в Excele.   Найти похожие ветки 

 
Alex*   (2004-02-12 09:32) [0]

Мастера подскажите как в Excel сделать вставку скопированного фрагмента. Перепробовал кучу вариантов в результате вылетает ошибка «Метод PasteSpecial из класса Range завершен неверно». Код следующий:

procedure TForm1.Button6Click(Sender: TObject);
var
IBookPrice : TexcelApplication;
begin
if not Assigned(IBookPrice) then
begin
try
IBookPrice := TExcelApplication.Create(Self);
IBookPrice.ConnectKind := ckNewInstance;
IBookPrice.Connect;
if IBookPrice.WindowState[0] = TOLEEnum(xlMinimized) then
IBookPrice.WindowState[0] := TOLEEnum(xlNormal);
IBookPrice.ScreenUpdating[0] := true;
IBookPrice.Visible[0]:=true;
IBookPrice.Workbooks.Add("C:\price.xls", 0);

………………………………

IBookPrice.Worksheets.Application.Columns.Range_["G:G", EmptyParam].ColumnWidth := 0;
IBookPrice.Worksheets.Application.Range["G5:G14", EmptyParam].Cut(EmptyParam);
// IBookPrice.Worksheets.Application.Range["F5", EmptyParam].PasteSpecial(EmptyParam,EmptyParam,EmptyParam,EmptyParam);
OLEVariant(IBookPrice.Worksheets.Application.Range["F5:F14", EmptyParam]).PasteSpecial;
finally
IBookPrice := NIL;
end;
end;
end;

Подскажите как справится с этой проблемой.


 
Alex*   (2004-02-12 10:40) [1]

Вопрос снимается. Ответ нашел
Заменить строку:
IBookPrice.Worksheets.Application.Range["F5", EmptyParam]. PasteSpecial(EmptyParam,EmptyParam,EmptyParam,EmptyParam);
на
IBookPrice.Worksheets.Application.Range["F5", EmptyParam]. Insert(EmptyParam);</CODE>



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

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

Наверх




Память: 0.46 MB
Время: 0.049 c
3-79665
Sliften
2004-01-30 20:10
2004.02.25
SQL запрос Как обрубить в строке все после первого пробела


14-80236
MDFE
2004-02-02 08:44
2004.02.25
Просмотрщик дайджестов


1-79834
karburator
2004-02-10 11:05
2004.02.25
Как узнать путь к программе из запущенного ею потока?


9-79529
Jenaxx
2003-08-09 12:19
2004.02.25
Я скачал из Samples исходник Quest это типа рпг какой то а она...


14-80190
Manulo
2004-01-30 18:53
2004.02.25
Женский калькулятор