Экспорт в Word и Excel

@Анастасия94 · Регистрация: 25.11.2011

Author24 — интернет-сервис помощи студентам

Можно ли при экспорте в Ворд или Ексель данных из набора данных (который в делфи) создать заголовки таблиц?

@elluminate · 09.06.2013, 19:18

вот например в Excel. Только здесь заголовки берутся из DBGrid. Так сделал потому что в источнике данных английские наименования полей, а в гриде можно самому задать

Delphi

.........
Procedure SendtoExcel(ShFile: String; Querys: TADOQuery);
Var
   ExcelApp, Workbook, Range, Cell1, Cell2,Cell3, ArrayData: Variant;
   BeginCol, BeginRow, j: integer;
   RowCount, ColCount: Integer;
Begin
try
 Querys.Open;
 BeginCol := 1;
 BeginRow := 1;
 RowCount := Querys.RecordCount+1;
 ColCount := Querys.FieldDefs.Count;
 
 ExcelApp := CreateOleObject('Excel.Application');
 
 ExcelApp.Application.EnableEvents:= false;
 
 Workbook := ExcelApp.WorkBooks.Add;
 
 WorkBook.SaveAs(ShFile);
 
 ArrayData := VarArrayCreate([1, RowCount, 1, ColCount], varVariant);
 
   Querys.DisableControls;
   Querys.First;
 
  For J := 0 To Querys.FieldDefs.Count-1 Do //вот то что тебе интересно
    ArrayData[1, J+1]:=Exp_Otch.DBGrid1.Columns[J].FieldName;
........

@Анастасия94 10 / 2 / 0 Регистрация: 25.11.2011 Сообщений: 71
		1
	Экспорт в Word и Excel 09.06.2013, 19:13. Показов 1743. Ответов 1 Метки нет (Все метки) Можно ли при экспорте в Ворд или Ексель данных из набора данных (который в делфи) создать заголовки таблиц? 0

	09.06.2013, 19:18

Опции темы

Экспорт в Word и Excel

Решение