[ffpereverzev]

На данный момент я сделал так, как было грубо, но просто:

Код:

procedure TForm7.Button1Click(Sender: TObject);
  begin
    ProgressBar1.Position:=0;
    Timer1.Enabled:=true;
    MyDoc := CreateOleObject('Excel.Application');
    MyDoc.Workbooks.Open(ExtractFilePath(Application.ExeName)+'Отчет.xlt');
    MyDoc.Visible := False;
    MyDoc.Range['D4'] := ComboBox1.Text;
    MyDoc.Range['E6'] := DateTimePicker1.DateTime;
    MyDoc.Range['G6'] := DateTimePicker2.DateTime;
    MyDoc.Range['D10'] := Edit1.Text;
    MyDoc.Range['D12'] := Edit2.Text;
    // Заполнение столбца "Отчетные документы"
    MyDoc.Range['C18'] := StringGrid1.Cells[0,1];
    MyDoc.Range['C19'] := StringGrid1.Cells[0,2];
    MyDoc.Range['C20'] := StringGrid1.Cells[0,3];
    MyDoc.Range['C21'] := StringGrid1.Cells[0,4];
    MyDoc.Range['C22'] := StringGrid1.Cells[0,5];
    MyDoc.Range['C23'] := StringGrid1.Cells[0,6];
    MyDoc.Range['C24'] := StringGrid1.Cells[0,7];
    MyDoc.Range['C25'] := StringGrid1.Cells[0,8];
    MyDoc.Range['C26'] := StringGrid1.Cells[0,9];
    MyDoc.Range['C27'] := StringGrid1.Cells[0,10];
    MyDoc.Range['C28'] := StringGrid1.Cells[0,11];
    MyDoc.Range['C29'] := StringGrid1.Cells[0,12];
    MyDoc.Range['C30'] := StringGrid1.Cells[0,13];
    MyDoc.Range['C31'] := StringGrid1.Cells[0,14];
    MyDoc.Range['C32'] := StringGrid1.Cells[0,15];
    MyDoc.Range['C33'] := StringGrid1.Cells[0,16];
    MyDoc.Range['C34'] := StringGrid1.Cells[0,17];
    MyDoc.Range['C35'] := StringGrid1.Cells[0,18];
    MyDoc.Range['C36'] := StringGrid1.Cells[0,19];
    MyDoc.Range['C37'] := StringGrid1.Cells[0,20];
    MyDoc.Range['C38'] := StringGrid1.Cells[0,21];
    MyDoc.Range['C39'] := StringGrid1.Cells[0,22];
    MyDoc.Range['C40'] := StringGrid1.Cells[0,23];
    // Заполнение столбца "Стоимость"
    MyDoc.Range['J18'] := StringGrid1.Cells[1,1];
    MyDoc.Range['J19'] := StringGrid1.Cells[1,2];
    MyDoc.Range['J20'] := StringGrid1.Cells[1,3];
    MyDoc.Range['J21'] := StringGrid1.Cells[1,4];
    MyDoc.Range['J22'] := StringGrid1.Cells[1,5];
    MyDoc.Range['J23'] := StringGrid1.Cells[1,6];
    MyDoc.Range['J24'] := StringGrid1.Cells[1,7];
    MyDoc.Range['J25'] := StringGrid1.Cells[1,8];
    MyDoc.Range['J26'] := StringGrid1.Cells[1,9];
    MyDoc.Range['J27'] := StringGrid1.Cells[1,10];
    MyDoc.Range['J28'] := StringGrid1.Cells[1,11];
    MyDoc.Range['J29'] := StringGrid1.Cells[1,12];
    MyDoc.Range['J30'] := StringGrid1.Cells[1,13];
    MyDoc.Range['J31'] := StringGrid1.Cells[1,14];
    MyDoc.Range['J32'] := StringGrid1.Cells[1,15];
    MyDoc.Range['J33'] := StringGrid1.Cells[1,16];
    MyDoc.Range['J34'] := StringGrid1.Cells[1,17];
    MyDoc.Range['J35'] := StringGrid1.Cells[1,18];
    MyDoc.Range['J36'] := StringGrid1.Cells[1,19];
    MyDoc.Range['J37'] := StringGrid1.Cells[1,20];
    MyDoc.Range['J38'] := StringGrid1.Cells[1,21];
    MyDoc.Range['J39'] := StringGrid1.Cells[1,22];
    MyDoc.Range['J40'] := StringGrid1.Cells[1,23];
    MyDoc.DisplayAlerts := False;
    MyDoc.ActiveWorkBook.SaveAs(ExtractFilePath(Application.ExeName)+'Отчет_'+FormatDateTime('ddmmyyyy_hhmm', Now)+'.xls');
  end;