Подскажите, как из программы передать данные в Excel?

← →
lightix (2002-02-15 15:09) [0]

Нужно в конкретную ячейку файла запихнуть данные. Как это сделать?

← →
drpass (2002-02-15 15:26) [1]

var
ExcelApplication:variant;
WorkBook:variant;

ExcelApplication:=CreateOleObject("Excel.Application");
Workbook:=ExcelApplication.Workbooks.Add;

Workbook.Worksheets[1].Cells[4,2].Value:="Чего-то";

Workbook.Worksheets[1].Cells[4,2].Formula:="=A1*A3";

ExcelApplication.Quit;

← →
lightix (2002-02-15 15:42) [2]

Написал вот такое вот и выдает ошибку OLE. Где глюк искать?
while not OraQuery1.EOF do
begin
for j:=0 to OraQuery1.Fields.Count-1 do
begin
Sheet.Cells(i,j) := OraQuery1.Fields[j].asString;
end;
i:=i+1;
OraQuery1.Next;
end;
exl.Application.ActiveWorkBook.Saveas(fileName);
finally
exl.Application.Quit;
end;

← →
Иван Шихалев (2002-02-15 15:54) [3]

Delphi использует паскалевский синтаксис массивов. То есть вместо Sheet.Cells(i,j) := OraQuery1.Fields[j].asString, следует писать Sheet.Cells[i,j] := OraQuery1.Fields[j].asString. Правда с координатами ячеек не все так просто. Я предпочитаю использовать Sheet.Cells["A1"], где, естественно, A и 1 - могут быть произвольными координатами.

← →
lightix (2002-02-15 15:59) [4]

Поменял () на [] - все равно ошибку выдает.
А если написать в лоб Sheet.Cells[i,j] := "Test" то работает. Но как только в цикле запускаешь - глючит....

← →
Иван Шихалев (2002-02-15 16:20) [5]

Какой вехний предел для i? И как реагирует на такое: Sheet.Cells[i,j]. Value := OraQuery1.Fields[j].asString?

← →
Набережных С. (2002-02-15 17:55) [6]

Попробуй перед вставкой преобразовать в WideString.

Подскажите, как из программы передать данные в Excel? Найти похожие ветки