Лень ковырять код, опишу на словах.
Итак, у тебя есть некоторый список процессов от 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;
Как-то так. Мож там в расчетах надо что поправить и работы с экселем я написал схематично. Но идея такова.