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

Вниз

Подскажите, как из программы передать данные в 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.



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

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

Наверх




Память: 0.47 MB
Время: 0.007 c
7-9310
Leviathan
2001-11-26 17:17
2002.03.04
Два вопроса... :)


3-9076
Demon ltd
2002-02-06 23:58
2002.03.04
Показ в данных выборочно из таблицы


1-9157
Мефодий
2002-02-13 12:54
2002.03.04
Загрузка всех юнитов проекта


1-9239
Андре
2002-02-15 19:22
2002.03.04
The Bat !


3-9074
Drik
2002-02-04 20:29
2002.03.04
QReport & печать на принтер