VPF::Экспорт в Excel - указание типа ячейки

MadCoder

Дата 20.3.2009, 16:01 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 478
Регистрация: 24.8.2007
Где: Москва

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

Здравствуйте!

Подскажите, как жестко указат тип ячейки, в которую я хочу вставить данные (вставляю текст '000001', а в Экселе получается число 1).

Вот мой код:

Код


procedure Export2Excel;
var
ExcelApp: Variant;
ExcelDoc: Variant;
ExcelSht: Variant;
R: Integer;
begin
try
// Создаем сервер автоматизации Excel
ExcelApp:=CreateOleObject('Excel.Application');
// Временно скрываем приложение Excel
ExcelApp.Visible:=False;
// Добавляем документ
ExcelDoc:=ExcelApp.Workbooks.Add;
// Добавляем рабочую страницу
ExcelSht:=ExcelDoc.WorkSheets.Add;
// Копируем информацию
// Выводим информацию в ячейку
ExcelSht.Cells[1, 1]:='Номер КД';
ExcelSht.Cells[1, 2]:='Область';
ExcelSht.Cells[1, 3]:='Район';
ExcelSht.Cells[1, 4]:='Индекс';
ExcelSht.Cells[1, 5]:='Насел. пункт';
ExcelSht.Cells[1, 6]:='Улица';
ExcelSht.Cells[1, 7]:='Актуальный долг';
R:=1;
ResultQ.First;
while not ResultQ.Eof do
  begin
  R:=R+1;
  ExcelSht.Cells[R, 1]:=ResultQ.FieldByName('contr_num').AsString;
  ExcelSht.Cells[R, 2]:=ResultQ.FieldByName('region').AsString;
  ExcelSht.Cells[R, 3]:=ResultQ.FieldByName('district').AsString;
  ExcelSht.Cells[R, 4]:=ResultQ.FieldByName('zip').AsString;
  ExcelSht.Cells[R, 5]:=ResultQ.FieldByName('town').AsString;
  ExcelSht.Cells[R, 6]:=ResultQ.FieldByName('street').AsString;
  ExcelSht.Cells[R, 7]:=ResultQ.FieldByName('actual_debt').AsInteger;
  ResultQ.Next;
  end;

if not VarIsEmpty(ExcelApp) then ExcelApp.Visible := True;
// Очищаем ресурсы
ExcelApp := UnAssigned;
except
end;
end;

Добавлено через 3 минуты и 8 секунд
Спасибо, уже разобрался.

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

Домашняя страничка | Как скопировать настройки | Умный оптимизатор

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