Ver Mensaje Individual
  #5  
Antiguo 17-07-2013
cmfab cmfab is offline
Miembro
 
Registrado: jun 2010
Posts: 419
Reputación: 14
cmfab Va por buen camino
Gracias nuevamente, encontre esta página en la web http://analisisydecision.es/truco-sa...l-en-uno-solo/

mas abajo viene un codigo que quise transformar a Delphi, me quedo de esta forma

Código Delphi [-]
  XL := CreateOleObject('Excel.Application');
  XL.Workbooks.Open('prueba.xls');
  XL.ActiveWorkbook.SaveAs('TodasJuntas.xls', -4143);
  XL.Workbooks.Open('prueba1.xls');
  XL.Workbooks('prueba1.xls').Sheets('prueba1').Copy (XL.Workbooks('TodasJuntas.xls').Sheets(1)) ;
  XL.Workbooks('prueba1.xls').Close;
  XL.Workbooks('TodasJuntas.xls').sheets(2).activate;
  XL.Workbooks('TodasJuntas.xls').Save;
  XL.Quit;

pero me da error y solo me graba el pruimer archivo prueba.xls, no se si adapté algo mal en el código

saludos
Responder Con Cita