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

Delphi Sources



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

 
 
Опции темы Поиск в этой теме Опции просмотра
  #16  
Старый 26.07.2011, 09:12
iegrec iegrec вне форума
Прохожий
 
Регистрация: 07.01.2011
Сообщения: 34
Репутация: 10
По умолчанию

Помогите Очень срочно нужно...
У меня есть таблица и шаблон Excel во вложение.
мне нужно что бы серийный номер выводился на ячейке H15 а он выводит на С15...как сделать так что бы это исправить....МНЕ ЭТО НУЖНО ОЧЕНЬ СРОЧНО...ПОМОГИТЕ.
Вот обработчик
Код:
procedure TForm_aktperedaci.Button1Click(Sender: TObject);
var
 XL, XArr: Variant;
 i: Integer;
 j: Integer;
begin
XArr:=VarArrayCreate([1,DataM.ADOTable_akt.FieldCount],varVariant);
 XL:=CreateOLEObject('Excel.Application');
 XL.WorkBooks.add(ExtractFileDir(Application.ExeName)+'\Акты\Акт Приема-передачи.xls');

//  XL.Range['A14:B14'].Select;
//  XL.Selection.Merge;
//  XL.range['A14:B14'].value:='wwwwwwww';  //:= 'заголовок 1';
 XL.Range['A14'].value:='№';
 XL.Range['B14'].value:='Наименование';
 XL.Range['H14'].value:='Серийный номер';

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


 XL.Range['A15',CHR(64+DataM.ADOTable_akt.FieldCount)+IntToStr(j)].select;

 XL.Selection.Font.Name:='Arial cur';
 XL.Selection.Font.Size:=10;
 XL.Selection.ColumnWidth:=10;
 XL.Selection.RowHeight:=15;

   //with SaveDialog1 do
 //     if Execute then
   //   xl.ActiveWorkbook.SaveAs(FileName);


// XL.Range['A1','A1'].select;
  XL.visible:=true;
end;
Админ: Пользуемся тегами для оформления кода!
Изображения
Тип файла: jpg Таблица.JPG (49.6 Кбайт, 16 просмотров)
Тип файла: jpg Excel.JPG (53.5 Кбайт, 15 просмотров)

Последний раз редактировалось Admin, 26.07.2011 в 09:53.
Ответить с цитированием
 


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

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

ВКонтакте   Facebook   Twitter