Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Insertar una fila en excel (https://www.clubdelphi.com/foros/showthread.php?t=57622)

cacu 23-06-2008 06:06:09

Insertar una fila en excel
 
Hola

Quisiera ver si pueden darme una mano con esto:

Tengo una planilla excel en la cual quiero instar una fila para luego en viarle un valor.....

Ojala puedean alludarme con esto
Gracias..

Willmer_2911 03-07-2008 21:06:32

Insertar Filas y Columnas en Excel
 
Listo Camarada

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  XLapp, xlw, Rango :  Variant;
begin
  XLapp := CreateOleObject('Excel.application');
  XLapp.visible := true;
  xlw := xlapp.workbooks.add;
  xlApp.workbooks[1].worksheets[1].cells(1,1) := 'A';
  xlApp.workbooks[1].worksheets[1].cells(1,2) := 'F';
  xlApp.workbooks[1].worksheets[1].cells(1,3) := 'C';
  xlApp.workbooks[1].worksheets[1].cells(2,1) := 1;
  xlApp.workbooks[1].worksheets[1].cells(3,1) := 2;
  xlApp.workbooks[1].worksheets[1].cells(4,1) := 3;
  //Inserta Columna
  Rango := xlApp.workbooks[1].worksheets[1].Range['B:B'];
  Rango.Insert(-4161);
  //Inserta Fila
  Rango := xlApp.workbooks[1].worksheets[1].Range['3:3'];
  Rango.Insert(-4121);

  xlw.close;
  xlapp.quit;
end;


La franja horaria es GMT +2. Ahora son las 06:58:35.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi