Вывод отчета из Delphi в Excel через ADOQuery

@Fitonishe · Регистрация: 13.06.2018

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

Ребятки, помогите пожалуйста, может я тупой просто, но нужно вывести отчет из Delphi в Excel из запроса в ADOQuery
Запрос SQL

T-SQL

1
2

SELECT Спецификация_расходов.[ИД_Спецификации], Спецификация_расходов.Обозначение_расходов, Спецификация_расходов.Количество, Спецификация_расходов.Сумма, Спецификация_расходов.ИД_Расхода, Спецификация_расходов.ИД_Вида,Расходы.Дата
FROM Спецификация_расходов INNER JOIN Расходы on(Спецификация_расходов.ИД_Расхода=Расходы.ИД_Расхода)

Проверял в самом MSSQL, там все выводит хорошо, но в делфи выводит не до конца, а если быть точным, то пропускает столбец один и дальше съезжает уже по значениям.
Код с выводом

Delphi

var
Index: Integer;
Excel,Sheet: Variant;
begin
  Excel := CreateOleObject('Excel.Application');
  Excel.Application.EnableEvents := false;
  Excel.Workbooks.Open(GetCurrentDir() + '\Тесты.xlsx');
  Excel.Visible := true;
  Sheet:=Excel.WorkBooks[1].WorkSheets['Отчет'];
  Excel.Range['A5']:='№';
  Excel.Range['B5']:='Наименование закупки';
  Excel.Range['C5']:='Сумма';
  Excel.Range['E5']:='Количество';
  Excel.Range['F5']:='Номер расхода';
  Excel.Range['G5']:='Номер вида расходов';
  Excel.Range['H5']:='Дата закупки';
  Excel.Range['C1']:=dbeNumber.Text;
  Excel.Range['A18']:='Сотрудник: ' + dblLN.Text + '  ' +dblFN.Text + '  ' + dblPat.Text;
  Index:=6;//строчка, с которой начинается заполнение
   with DM.Query do begin //первая строчка в таблице
   repeat
   DM.Query.First;
   Sheet.Cells[Index,1]:= DM.Query.Fields.Fields[0].AsString;
   Sheet.Cells[Index,2]:= DM.Query.Fields.Fields[1].AsString;
   Sheet.Cells[Index,3]:= DM.Query.Fields.Fields[2].AsString;
   Sheet.Cells[Index,4]:= DM.Query.Fields.Fields[3].AsString;
   Sheet.Cells[Index,5]:= DM.Query.Fields.Fields[4].AsString;
   Sheet.Cells[Index,6]:= DM.Query.Fields.Fields[5].AsString;
   Sheet.Cells[Index,7]:= DM.Query.Fields.Fields[6].AsString;
   Inc(Index);//следующая строка в таблице
   DM.Query.Next;
   until eof
  Excel.Application.Quit;
end;

Плюс скрины как выводятся данные в SQL и Excel

@krapotkin · 14.06.2018, 14:32

ну, если посмотреть внимательно, то можно найти колонку D

@krapotkin 5860 / 4588 / 1448 Регистрация: 14.04.2014 Сообщений: 20,357 Записей в блоге: 20
	14.06.2018, 14:32	2
	ну, если посмотреть внимательно, то можно найти колонку D 1