Foros Club Delphi - Como manipular los sheets de excel

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Servers (https://www.clubdelphi.com/foros/forumdisplay.php?f=9)

- - Como manipular los sheets de excel (https://www.clubdelphi.com/foros/showthread.php?t=44978)

caifan_0883

19-06-2007 19:15:35

Como manipular los sheets de excel

Buenas, aqui tengo una duda de como manipular los sheets en excel.. Ya que los tengo con Nombres, JUNIO, JULIO, AGOSTO.. Como podria cambiarme a la pestaña JULIO he insertar un valor, Al principio aparece Junio como sheet por default...

Yo no estoy manipulando nada de la paleta server si no, asi...

Código:

Uses

 ...ComObj...

 

Begin

Var

  Excel.Variant;

Begin

  Excel:=CreateOleObject('Excel.Application');

 

 ... Y lo demas pasos ...

End.

Por su ayuda gracias...

roman

19-06-2007 19:42:45

Prueba esto:

Código Delphi [-]var
  Excel, Libro: OleVariant;

begin
  ExcelApp := CreateOleObject('Excel.Application');
  Libro := ExcelApp.Workbooks.Open('C:\ruta\al\archivo.xls');
  Libro.WorkSheets['nombre de la hoja'].Activate;
  ExcelApp.Visible := true;
end;

// Saludos

ContraVeneno

19-06-2007 19:43:23

Código Delphi [-]var Excel, Libro: Variant;
...
Excel:=CreateOleObject('Excel.Application');
Excel.Visible := False;
Excel.DisplayAlerts:= False;
Excel.WorkBooks.Add;
Excel.WorkBooks[1].WorkSheets[1].Name := 'Junio';
Libro := Excel.WorkBooks[1].WorkSheets['Junio'];
Libro.Cells[1,1]:='Reporte Junio';
Libro.Cells[4,1].Font.Bold:=True;
Libro.Range['A4', 'E4'].Merge;
Libro.Range['A4', 'E4'].Borders.weight := -4138;
Libro.Cells[4,5].Borders[xlTop].weight := -4138;
...
Excel.WorkBooks[1].WorkSheets[2].Name := 'Julio';
Libro := Excel.WorkBooks[1].WorkSheets['Julio'];
Libro.Cells[1,1]:='Reporte Julio';
...
  Excel.Visible:=true;
  Excel := Unassigned;

caifan_0883

19-06-2007 20:10:15

Gracias...

Muchas Gracias... Funciono perfecto... Mi error era que queria manipular solo con una variable... Pero duda resuelta... Mil Gracias..

La franja horaria es GMT +2. Ahora son las 14:06:23.