Главная страница
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.012 c
1-9164
Ковекс
2002-02-14 05:28
2002.03.04
листинг и получение информации о файле


1-9180
who
2002-02-14 10:05
2002.03.04
Передача параметров из exe в exe


1-9174
Demol
2002-02-13 17:29
2002.03.04
MicrosoftAgent


1-9177
Michael C
2002-02-14 11:24
2002.03.04
Поиск файлов


1-9188
Kozhanov
2002-02-14 11:16
2002.03.04
размеры курсора