Показать сообщение отдельно
  #2  
Старый 15.11.2018, 19:06
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,003
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Лень ковырять код, опишу на словах.
Итак, у тебя есть некоторый список процессов от 1 до N, для каждого из которых надо вставить таблицу в итоговый отчет. Соответсвенно, нужно 2 процедуры. Первая - собственно вставка информации по одному процессу, вторая - для обработки списка процессов (вызывает первую для вставки информации об одном из процессов).
Теперь смотрим на логику. Информация о процессе занимает некоторое кол-во строк в экселе, заранее не известное. Соответсвенно, первая процедура должна получить некоторое смещение от начала листа (от первой строки) и должна вернуть информацию о том, сколько строк она использовала, что бы при следуюшем вызове было правильно рассчитано это смещение.
Тогда код (собственно логика перебора, саму вставку напишешь сама) будет выглядеть примерно так:
Код:
function InsertOneReport(Excel : OleVariant; ProcessName : String; Offset : Integer) : Integer;
begin
  Result := 0;
  Excel.ActiveSheet.Cells[1,Offset+0].Value := ProcessName;
  Excel.ActiveSheet.Cells[1,Offset+1].Value := 'Материал';
  Excel.ActiveSheet.Cells[2,Offset+1].Value := 'Наим. мат.';
  Result := 2;

  // получаем данные из БД в ADOQuery1

  ADOQuery1.First;
  While Not ADOQuery1.EOF Do
    Begin
      // Вставляем данные одной строки
      Excel.ActiveSheet.Cells[1,Offset+Result].Value := ADOQuery1.Fields[0].AsSTring;
      Excel.ActiveSheet.Cells[2,Offset+Result].Value := ADOQuery1.Fields[1].AsSTring;
      ...

      // Смещаем указатель на строку
      Inc(Result);
      ADOQuery1.Next;
    End;
  ADOQuery1.Close;
end;

procedure AddAllReports;
var
  I, R : Integer;
  Excel : OleVariant;
begin
  // Создаем объект excel
  ...

  R := 1; // Начальная строка в экселе
  For I := 1 To ComboBox1.Items.Count-1 Do // Как я понял, у тебя процессы в ComboBox1 перечислены
    Begin
      // Тут вызываем вставку
      R := R + 2 + InsertOneReport(Excel, ComboBox1.Items[i], R);
    End;

  Excel.SaveToFile(...); // созраняем/показываем/etc
  Excel := Nil; // Закрываем процесс
end;

Как-то так. Мож там в расчетах надо что поправить и работы с экселем я написал схематично. Но идея такова.
Ответить с цитированием