Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 29.07.2015, 16:39
starcon starcon вне форума
Новичок
 
Регистрация: 15.03.2014
Сообщения: 84
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Экспорт в Эксель

Добрый день всем.

Не могу разобраться , как вывести в эксель не все столбцы.
Мне нужно выводить в эксель все столцы , кроме последнего.
Вот код
Код:
procedure TForm11.Button7Click(Sender: TObject);
var
i,j,index: Integer;
ExcelApp,sheet: Variant;
begin
 ExcelApp := CreateOleObject('Excel.Application');
 ExcelApp.Visible := False;
 ExcelApp.WorkBooks.Add(-4167);
 ExcelApp.WorkBooks[1].WorkSheets[1].name := 'Архив';
 sheet:=ExcelApp.WorkBooks[1].WorkSheets['Архив'];
 index:=2;
 DBGridEh1.DataSource.DataSet.First;
      for i:=1 to  DBGridEh1.DataSource.DataSet.RecordCount do
      begin
      for j:=1 to DBGridEh1.FieldCount do
      sheet.cells[index,j]:=DBGridEh1.fields[j-1].asstring;
      inc(index);
      DBGridEh1.DataSource.DataSet.Next;
      end;
 ExcelApp.Visible := true;
  end;
Как из экспорта исключить последний столб?.
Разобрался как первый не экспотрировать.

Спасибо
Ответить с цитированием
  #2  
Старый 29.07.2015, 18:43
starcon starcon вне форума
Новичок
 
Регистрация: 15.03.2014
Сообщения: 84
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Разобрался сам.
Вот может кому пригодится
Код:
DBGridEh1.DataSource.DataSet.First;
      for i:=0 to  DBGridEh1.DataSource.DataSet.RecordCount-1 do
      begin
      sheet.cells[index,1]:=DBGridEh1.DataSource.DataSet.Fields.Fields[0].AsString;
      sheet.cells[index,2]:=DBGridEh1.DataSource.DataSet.Fields.Fields[1].AsString;
      sheet.cells[index,3]:=DBGridEh1.DataSource.DataSet.Fields.Fields[2].AsString;
      sheet.cells[index,4]:=DBGridEh1.DataSource.DataSet.Fields.Fields[3].AsString;
      sheet.cells[index,5]:=DBGridEh1.DataSource.DataSet.Fields.Fields[4].AsString;
Ответить с цитированием
  #3  
Старый 29.07.2015, 19:31
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,004
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Маньяк...
... а в цикле указать DBGridEh1.FieldCount-1 не судьба была?
Ответить с цитированием
  #4  
Старый 30.07.2015, 10:45
starcon starcon вне форума
Новичок
 
Регистрация: 15.03.2014
Сообщения: 84
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Спасибо
Можно было.
Но мне ещё нужно забрать кроме последней колонки и 8-ю колонку.
Так что мой пример , меня устроил.
Ответить с цитированием
  #5  
Старый 30.07.2015, 17:54
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,004
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Все-равно, маньяк
Можно сделать массив индексов и ходит по нему...
Ответить с цитированием
  #6  
Старый 30.07.2015, 20:31
starcon starcon вне форума
Новичок
 
Регистрация: 15.03.2014
Сообщения: 84
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Подскажите ,как уже в Экселе , нарисовать границы.
Именно в заполненных строках?
Ответить с цитированием
  #7  
Старый 30.07.2015, 22:50
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,004
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Вот так это делает сам Excel:
Код:
    Range("D7:J18").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
Через позднее связываение прямо так же и пишешь.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 12:52.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter