|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Ошибка при выводе БД в Excel
Добрый вечер!
Подскажите, пожалуйста, при выводе БД в Excel, выходит ошибка "Член группы не найден". Вот сам код Код:
procedure TForm14.Excel1Click(Sender: TObject); var XLApp, Sheet, Colum:Variant; index,i:Integer; begin XLApp:= CreateOleObject('Excel.Application'); XLApp.Visible:=true; XLApp.Workbooks.Add(-4167); XLApp.Workbooks[1].WorkSheets[1].Name:='Отчет'; Colum:=XLApp.Workbooks[1].WorkSheets('Отчет').Columns; Colum.Colums[1].ColumWidth:=20; Colum.Colums[2].ColumWidth:=20; Colum.Colums[3].ColumWidth:=20; Colum.Colums[4].ColumWidth:=20; Colum.Colums[5].ColumWidth:=20; Colum:=XLApp.Workbooks [1].Worksheets('Отчет').Rows; Colum.Rows[2].Font.Bold:=true; Colum.Rows[1].Font.Bold:=true; Colum.Rows[1].Font.Color:=clBlue; Colum.Rows[1].Font.Size:=14; Sheet:=XLApp.Workbooks[1].Worksheets ('Отчет'); Sheet.Cells[1,2]:='Бланк 1 БД'; Sheet.Cells[2,1]:='ФИО'; Sheet.Cells[2,2]:='ДатаРождения'; Sheet.Cells[2,3]:='ДатаОсмотра'; Sheet.Cells[2,4]:='Заключение'; index:=3; DataModule1.BookTable2.First; for i:=0 to DataModule1.BookTable2.RecordCount-1 do begin Sheet.Cells[index,1]:=DataModule1.BookTable2.Fields.Fields[1].AsString; Sheet.Cells[index,2]:=DataModule1.BookTable2. Fields.Fields[2].AsString; Sheet.Cells[index,3]:=DataModule1.BookTable2. Fields.Fields [3].AsString; Sheet.Cells [index,4]:=DataModule1.BookTable2.Fields. Fields [5] .AsString; Sheet.Cells [index,5]:=FormatDateTime( 'dddddd', DataModule1.BookTable2.Fields.Fields [6].AsDateTime); Inc(index); DataModule1.BookTable2.Next; end; end; end. lmikle: пользукмся тегами. первое предупреждение, оно же последнее. Последний раз редактировалось lmikle, 14.05.2015 в 02:54. |
#2
|
|||
|
|||
думаю формат ячейки тебе не нужен
Код:
Sheet.Cells [index,5]:=FormatDateTime( 'dddddd', DataModule1.BookTable2.Fields.Fields [6].AsDateTime); |