Форум: "Основная";
Текущий архив: 2004.02.25;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.034 c