Скачать: CL | DM;

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.979 c