VPF::выгрузка в эксель) - Форум программистов

alexander1111

Дата 12.4.2011, 22:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 5.3.2011

Репутация: нет
Всего: нет

доброй ночи)

есть скрипт который таблицу с бд перегоняет в excel.

Код



 var
 XL, XArr: Variant;
 i: Integer;
 j: Integer;
begin
 XArr:=VarArrayCreate([1,ADOTAble1.FieldCount],varVariant);
 XL:=CreateOLEObject('Excel.Application');
 XL.WorkBooks.add;
 XL.visible:=true;

 j := 1;
 ADOTAble1.First;
 while not ADOTAble1.Eof do
  begin
   i:=1;
   while i<=ADOTAble1.FieldCount do
    begin
     XArr[i] := ADOTAble1.Fields[i-1].Value;
     i := i+1;
    end;
   XL.Range['A'+IntToStr(j),
   CHR(64+ADOTAble1.FieldCount)+IntToStr(j)].Value := XArr;
   ADOTAble1.Next;
   j:=j+1;
  end;
 XL.Range['A1',CHR(64+ADOTAble1.FieldCount)+IntToStr(j)].select;

 XL.Selection.Font.Name:='Arial cur';
 XL.Selection.Font.Size:=10;
 XL.selection.Columns.AutoFit;
 XL.Range['A1','A1'].select;
end;

1.как сделать чтоб он выводил и шапку самой таблицы?
2. В БД посл столбец "Состояние" имеет тип (bit). В экселе отображается как "Истина" - "Ложь".. Как сделать чтоб за место "Истинf" - в ячейка была зеленой , а за место "Ложь" - красной?

DenisTv

Дата 13.4.2011, 14:00 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 64
Регистрация: 3.11.2005

Репутация: нет
Всего: нет

1. Что значит "шапку таблицы"?
2. Например так
XL.ActiveWorkbook.Sheets.Item['Лист1'].Range['A1'].Interior.Color:=clBlack;

или SetRangeColor('1','A1:B10',255); если надо диапазон.

Данкинг

Дата 13.4.2011, 14:17 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 5
Всего: 130

Названия полей вывести, вероятно, - вот и шапка.

--------------------

There's nothing left but silent epitaphs.

DenisTv

Дата 13.4.2011, 14:27 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 64
Регистрация: 3.11.2005

Репутация: нет
Всего: нет

Тогда до основного вывода пробежаться по колонкам, выдернуть названия в XArr

Код


i:=1;
while i<=ADOTAble1.FieldCount do
    begin
     XArr[i] := AdoTable.Fields[i].Text;
     inc(i);
    end;

и вывести в нужное место (например сверху).

Это сообщение отредактировал(а) DenisTv - 13.4.2011, 14:27

alexander1111

Дата 13.4.2011, 15:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 5.3.2011

Репутация: нет
Всего: нет

спасибо всем за внимание)
насчет 2го вопроса, мне скинули код

Код


 Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="ИСТИНА"
    Selection.FormatConditions(1).Font.ColorIndex = 3
    Selection.FormatConditions(1).Interior.ColorIndex = 3
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="ЛОЖЬ"
    Selection.FormatConditions(2).Font.ColorIndex = 10
    Selection.FormatConditions(2).Interior.ColorIndex = 10

как его вклинить можно без ошибок??

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »