экспорт в шаблон

[Милана666]

вот вопрос я экспортирую данные из Грида в Эксэль,все хорошо получаеться, теперь нужно данные перенести в готовый шаблон (Личная карточка) как это сделать? когда я переношу их в шаблон мои данные появляються где-то наверху а сама (личная карточка) пустая

[rdama]

Что используете для экспорта?
Т.е. компоненты, технология.

[Милана666]

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

Что используете для экспорта?
Т.е. компоненты, технология.

БД аксесс,adoconnection,adotable,Dbgri d и ExCelApplication так, вроде все.

[Милана666]

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

Что используете для экспорта?
Т.е. компоненты, технология.

пример из кода "Sheet.Cells[2,1]:='фамилия';" он выводит столбец Фамилия это выходит нужно в ручную делать ? подгонять?

[rdama]

Общий пример работы

XL:Variant;
XArr:Variant; //Вариантный массив 

    //XL := GetActiveOleObject('Excel.Application'); //Ище активный экземпляр приложения
      XL := CreateOLEObject('Excel.Application'); //создаем новый экземпляр приложения
      XL.WorkBooks.add(имя и путь к шаблону); //грузим шаблон
  XL.DisplayAlerts := False; //Теперь Excel не должен нас ни о чем спрашивать
  XL.visible := False; //прячем Excel

XL.Workbooks[2].WorkSheets[2].Activate; //Активируем лист(у меня второй)

  XArr:=VarArrayCreate([1,tQuery.FieldCount],varVariant); //определяем границы массива
  //Заполняем вариантный массив
  j:=j+1;
  while not tRans.Eof do
  begin
    i:=1;
    while i<=tRans.FieldCount do
    begin
      if UpperCase(Trim(tRans.Fields[i-1].FullName))=UpperCase('UserId') then
      begin
        i := i+1;
        Continue;
      end;
      XArr[i] := tRans.Fields[i-1].Value;
      i := i+1;
    end;
//Все заполнили
  XL.Range[XL.Cells[j,1],XL.Cells[j,tQuery.FieldCount]].Value:=XArr; 
//Экспорт массива в облать[j:1:j:кол-во полей в экспортируемой таблице]
 XL.Workbooks[2].Sheets[1].Name:='fgbhdh'; //Имя листа

//XL.Workbooks[2].WorkSheets[2].Copy(EmptyParam, XL.Workbooks[1].Sheets[1]); 
//Это для копирования одного листа на другой и между книгами если надо будет спросишь раскажу

XL.Workbooks[1].SaveAs(XlsName); //сохраняем Excel
 XL.Workbooks[1].Close; //закрываем Excel
   XL.Quit; //Освобождаем Excel

[Милана666]

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

Общий пример работы
XArr:=VarArrayCreate([1,tQuery.FieldCount],varVariant);

ругаеться "[Error] Unit1.pas(48): Method identifier expected где FieldCount " почему?

[rdama]

Что ставишь вместо tQuery - это в принципе любой объект типа query, table.
У тебя это должен быть дата сет который ты экспортируешь.

[Милана666]

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

Что ставишь вместо tQuery - это в принципе любой объект типа query, table.
У тебя это должен быть дата сет который ты экспортируешь.

у меня Adoconnection,Adotable,Adodataset,d ata source ну и ДБгрид, а Adoquery тоже надо?

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

Что ставишь вместо tQuery - это в принципе любой объект типа query, table.
У тебя это должен быть дата сет который ты экспортируешь.

в "Command Text Adodataset" или в "SQL Adoquery" что-то нужно прописать?

[rdama]

Что ты экспортируешь в Excel.

[Милана666]

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

Что ты экспортируешь в Excel.

я экспортирую данные которые отображены в ДБгриде их подключила с помощью АДО
БД аксесс