запись из БД в EXEL

← →
Сергей И (2006-04-17 16:11) [0]

Подскажите что я делаю не так
begin
Result := False;
XLApp := CreateOleObject("Excel.Application");
try
XLApp.Visible := False;
XLApp.Workbooks.Add(xlWBatWorkSheet);
Sheet := XLApp.Workbooks[1].WorkSheets[1];
Sheet.Name := "Otchet";
for row := 0 to form1.DBGrid1.DataSource.DataSet.RecordCount-1 do
begin
i:=1;
for col := 1 to 5 do //12 - êîëè÷åñòâî ñòîëáöîâ
begin
Sheet.Cells[row + 1, col + 1] :=form1.DBGrid1.Fields[col].AsString ; // ýòî åñëè âñå ÿ÷åéêè ñòðèíã
inc(i);
form1.DBGrid1.DataSource.DataSet.Next;
end;end;
try
XLApp.Workbooks[1].SaveAs(path+FileName);
Result := True;
except end;
finally
if not VarIsEmpty(XLApp) then
begin
XLApp.DisplayAlerts := False;
XLApp.Quit;
XLAPP := Unassigned;
Sheet := Unassigned;
end;
end;
end;

когда я пытаюсь выполнить данную процедуру у мення возникает ошибка

← →
Savek (2006-04-17 16:45) [1]

Какая ошибка?
В какой строке?

← →
Сергей И (2006-04-17 16:59) [2]

Sheet.Cells[row + 1, col + 1] :=form1.DBGrid1.Fields[col].AsString ; вот в этой

попробуй
Sheet.Cells[row + 1, col + 1].Value :=form1.DBGrid1.Fields[col].AsString ;

запись из БД в EXEL Найти похожие ветки