Delphi and Excel

← →
Talla2k © (2003-10-28 12:56) [0]

В буфере есть некоторая таблица.Через OLE делаю конект к Excel.Вопрос : подскажите функцию вставки из буфера.Заранее спасибо!!!

← →
Малиновский Владимир (2003-10-28 13:29) [1]

И как это понимать: "в буфере есть некоторая таблица"?
Массив, что ли?

← →
Nikolay M. © (2003-10-28 14:25) [2]

ActiveSheet.Paste не пробовал? Ох, вставляет... :)))

← →
Малиновский Владимир (2003-10-28 14:34) [3]

Используем серверы автоматизации:
uses ... Excel2000, OleServer;
...
var

exApp: TExcelApplication;
exWB: TExcelWorkbook;
exWS: TExcelWorksheet;
DIexRange: ExcelRange;
tmpArr : array of array of Variant;
...
begin
... // Подключаемся
exApp.Connect;
exApp.Application.EnableEvents := false; // Ускоряем
exApp.SheetsInNewWorkbook[0] := 1;
exApp.Workbooks.Add(EmptyParam{xlWBATWorksheet},0);
exWB.ConnectTo(exApp.ActiveWorkbook);
exWS.ConnectTo(exWB.Sheets[1] as _Worksheet);
...
SetLength(tmpArr, 22,33);// Например
...
// Заполнили как-нибудь tmpArr
for i := 0 to 21 do
for j:= 0 to 31 do
tmpArr[i,j] := i*j;
...
DIexRange := exWS.Range[exWS.Cells.Item[1,1],
exWS.Cells.Item[22,33]];

DIexRange.Value := tmpArr;

// И все!
..
exApp.Visible[0] := True; // Ну, что получилось

← →
nstur (2003-10-28 14:50) [4]

Чтобы не повторяться зайди http://nstur.narod.ru/Delphi/index.html

Delphi and Excel Найти похожие ветки