Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Go Back   Foros Club Delphi > Principal > Servers
Register FAQ Members List Calendar Guía de estilo Today's Posts

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 19/06/2007
caifan_0883 caifan_0883 is offline
Miembro
 
Join Date: Nov 2005
Location: Los Mochis, Mexico
Posts: 42
Poder: 0
caifan_0883 Va por buen camino
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...

Code:
Uses
 ...ComObj...
 
Begin
Var
  Excel.Variant;
Begin
  Excel:=CreateOleObject('Excel.Application');
 
 ... Y lo demas pasos ...
End.
Por su ayuda gracias...
__________________
Da conocimiento a los que no saben.
Reply With Quote
  #2  
Old 19/06/2007
roman's Avatar
roman roman is offline
Moderador
 
Join Date: May 2003
Location: Ciudad de México
Posts: 20,269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
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
Reply With Quote
  #3  
Old 19/06/2007
ContraVeneno's Avatar
ContraVeneno ContraVeneno is offline
Miembro
 
Join Date: May 2005
Location: Torreón, México
Posts: 4,740
Poder: 26
ContraVeneno Va por buen camino
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;
__________________


Last edited by ContraVeneno : 19/06/2007 at 19:47.
Reply With Quote
  #4  
Old 19/06/2007
caifan_0883 caifan_0883 is offline
Miembro
 
Join Date: Nov 2005
Location: Los Mochis, Mexico
Posts: 42
Poder: 0
caifan_0883 Va por buen camino
Gracias...

Muchas Gracias... Funciono perfecto... Mi error era que queria manipular solo con una variable... Pero duda resuelta... Mil Gracias..
__________________
Da conocimiento a los que no saben.
Reply With Quote
Reply



Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Excel: Extraer, manipular e introducir... papulo PHP 5 16/04/2007 18:53
Manipular las funciones de Excel desde Delphi5 vick Servers 3 26/10/2005 04:01
como manipular excel carlos gonzalez Varios 9 04/10/2005 21:46
manipular archivo planos (.txt) como Tabla @-Soft Conexión con bases de datos 3 24/04/2004 13:56
Como Manipular Datos Sql Server sin Delphi Emiro MS SQL Server 2 29/07/2003 21:37


All times are GMT +2. The time now is 00:07.


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