[crack_neon]

Gracias, lo acabo de probar pero tampoco funciona. he aqui el codigo q uso

Código Delphi [-]
<div align="left">procedure TfrmSelecTermoformado.FormShow(Sender: TObject);
var
  i: integer;
begin
  i:=13;
  if frmCrearCocina.modificarFrentes=true then
     begin

      Excel := CreateOleObject('Excel.Application');
      Excel.Workbooks.Open('C:\Maxi Cocinas\CotizacionMarlik.xls');
       application.MessageBox('manda parametro modificar', 'Atención', mb_YesNo+mb_iconinformation);

       frmCrearCocina.ADQAcumFrentes.first;
       while not frmCrearCocina.ADQAcumFrentes.eof do
          begin
//           Excel.Cells[i,4].Value:= frmCrearCocina.ADQAcumFrentes.FieldByName('id_frente').AsString; //Copy(ADQModulos.id_modulo,1,2)
            Excel.Cells[i,1].Value:= frmCrearCocina.ADQAcumFrentes.FieldByName('c_frente').Asinteger;
            Excel.Cells[i,2].Value:= frmCrearCocina.ADQAcumFrentes.FieldByName('descripcion').AsString;
           Excel.Cells[i,3].Value:= frmCrearCocina.ADQAcumFrentes.FieldByName('modelo').AsString;
            Excel.Cells[i,5].Value:= frmCrearCocina.ADQAcumFrentes.FieldByName('color').AsString;
            Excel.Cells[i,7].Value:= frmCrearCocina.ADQAcumFrentes.FieldByName('altura').AsString;
            Excel.Cells[i,8].Value:= frmCrearCocina.ADQAcumFrentes.FieldByName('ancho').AsString;
            Excel.Cells[i,10].Value:= frmCrearCocina.ADQAcumFrentes.FieldByName('veta').AsString;
            Excel.Cells[i,11].Value:= frmCrearCocina.ADQAcumFrentes.FieldByName('ambos_lados').AsString;
            Excel.Cells[i,'W'].Value:= frmCrearCocina.ADQAcumFrentes.FieldByName('c_jaladeras').AsString;
            Excel.Cells[i,'AF'].Value:= frmCrearCocina.ADQAcumFrentes.FieldByName('c_precio_total').AsString ;
            frmCrearCocina.ADQAcumFrentes.next;
            i:=i+1;
          end;
        Excel.quit;
 
      //Refresco el olecontainer para que me muestre los nuevos datos
     olecontainer1.UpdateObject;
 

     end;
end;

 div>