вывод с квери в ексель

[Алёна]

делаю вывод в ексель по запросу, подскажите чего напутала строчки съезжаюту меня, первая и последняя меняются местами, и в послдней пусто:

qobyav.First;

   For i := 1 To qobyav.RecordCount Do

       Begin
       tip:=qobyav.FieldByName('tip').AsInteger;
         if tip=7 then stoim:=450
         else
         if tip=5 then stoim:=500
         else
         if tip=3 then stoim:=700;
           if qobyav.FieldByName('prog_b').AsString=qobyav.FieldByName('prog_e').AsString
         then
         tarif:='День'
         else tarif:='Неделя';
         app.Range['A1:D1'].Interior.Color:=RGB(255,249,187);
         app.Range['A1'].ColumnWidth := 15;
         app.Range['B1'].ColumnWidth := 20;
         app.Range['C1'].ColumnWidth := 20;
         app.Range['D1'].ColumnWidth := 20;
         app.Range['E1'].ColumnWidth := 10;
         app.Range['F1'].ColumnWidth := 20;
         app.Range['G1'].ColumnWidth := 20;
         app.Range['A1:G20'].Borders.LineStyle:=1;
         app.Range['A1:G2'].Font.Bold:=true;
         app.Cells[1,1]:='АОН '+s;
         app.Cells[1,2]:=sDateEdit1.Date;
         app.Cells[1,3]:='Общее кол-во:';
         app.Cells[1,4]:=qobyav.RecordCount;
         app.Cells[2,1]:='№ контракта';
         app.Cells[2,2]:='№ телефона1';
         app.Cells[2,3]:='№ телефона2';
         app.Cells[2,4]:='Тип';
         app.Cells[2,5]:='Кол-во слов';
         app.Cells[2,6]:='Тариф';
         app.Cells[2,7]:='Оплата';
         app.Cells[i+2,1]:=qobyav.FieldByName('ink').AsString;
         app.Cells[i+1,2]:=qobyav.FieldByName('koor1').AsString;
         app.Cells[i+1,3]:=qobyav.FieldByName('koor2').AsString;
         app.Cells[i+1,7]:='тип1';
         app.Cells[i+1,5]:=qobyav.FieldByName('slov').AsString;
         app.Cells[i+1,7]:='оплачено';
         app.Cells[i+1,6]:=tarif;

         qobyav.Next;

       End;

[Hugo121]

ИМХО i+1 надо всюду заменить на i+2.

[Алёна]

Hugo121, спасибо! так точно! только еще проблемка, мож кто знает как все это чтобы пахало в опен офисе? понимаю вопрос не в тему, но назрела необходимость...

[R Dmitry]

Сообщение от Алёна

Hugo121, спасибо! так точно! только еще проблемка, мож кто знает как все это чтобы пахало в опен офисе? понимаю вопрос не в тему, но назрела необходимость...

на сто процентов не уверен (нет опен офис под рукой), но он с ADO не дружит

[Алёна]

Сообщение от R Dmitry

на сто процентов не уверен (нет опен офис под рукой), но он с ADO не дружит

вот блин, а может тогда в текстовик? только не представляю как

[Stilet]

А как задача в своем так сказать соку звучит?

[Алёна]

Сообщение от Stilet

А как задача в своем так сказать соку звучит?

вывести данные с квери) а в общем отчетик небольшой можно в блокнот, но не знаю как сделать разделители...