| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

запись из БД в EXEL [D7, Paradox]

Сергей И ©   (2006-04-17 16:11:00) 

Подскажите что я делаю не так
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;

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

---

mr.il   (2006-04-18 06:12:00) [1]

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

---

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

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

---

Savek   (2006-04-17 16:45:00) [3]

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

---

Наверх