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

запись из БД в 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 ; вот в этой

---

← →
mr.il ©   (2006-04-18 06:12) [3]

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

---

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

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



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