Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #11  
Antiguo 25-08-2014
principiodual principiodual is offline
Miembro
NULL
 
Registrado: ago 2014
Posts: 26
Poder: 0
principiodual Va por buen camino
Muchas gracias a todos, me sirvió una respuesta en código de un ejemplo del amigo nlsgarcía en un tema que me pasó, no había probado ese ejemplo por desanimo ya que tenía toda la mañana en esto, pero me anime a probar todos los códigos de los enlaces que me mandarón e inclusive reintentar con otros que ya habría probado y este fué el único que funcionó, ya por lo menos sé o tengo una idea de como trabajarlos y si es cierto Ecfisa, tengo que instalar algunos componentes, al parecer o tengo la librería que mencionaste mal o me falta instalarla...
muchas gracias a todos por comentar, seguiré investigando el resto de la semana y probando en base a este ejemplo que me funciono.
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
   Excel, WrkS, WrkB : OLEVariant;
   Row, Col : Integer;
   Rows, Cols : Integer;

begin

   Excel := CreateOleObject('Excel.Application');
   Excel.Workbooks.Open(GetCurrentDir+'\TestData.xlsx');

   WrkS := Excel.Worksheets[1];
   Cols := WrkS.UsedRange.Columns.Count;
   Rows := WrkS.UsedRange.Rows.Count;

   for Row:= 1 to StringGrid1.RowCount do
         StringGrid1.Rows[Row].Clear;

   StringGrid1.FixedRows := 1;
   StringGrid1.FixedCols := 1;
   StringGrid1.RowCount := Rows + 1;
   StringGrid1.ColCount := Cols + 1;

   for Row:= 1 to StringGrid1.RowCount do
      for Col:= 1 to StringGrid1.ColCount  do
         StringGrid1.Cells[Col,Row]:= Excel.ActiveSheet.Cells[Row,Col].Value;

   Excel.Quit;    

end;
Ya tengo un código base sobre el que puedo trabajar y es full entendible, pienso cargar lo que tenga del excel a un stringrid como el ejemplo muestra y de allí guardarlo a una base de datos en db2... ya veré como puedo hacer para que el usuario pueda cargar el archivo excel que desee mediante el objeto Opendialog...

Última edición por ecfisa fecha: 26-08-2014 a las 00:06:42. Razón: etiquetas Delphi
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
E2202 required package 'rtl' not found pnsd_89 Varios 3 17-07-2013 17:26:39
[Fatal Error] Required package 'EverButton' not found belpab Varios 3 14-12-2007 20:54:04
Required package 'Jcl' not found Cecil OOP 3 11-10-2007 21:01:43
[Fatal Error] Required package 'FreeRep6' not found yoyo12 Impresión 3 04-05-2007 14:29:44
[Fatal Error]Required package 'dcloffice2... Albis API de Windows 3 17-01-2004 19:34:55


La franja horaria es GMT +2. Ahora son las 14:59:00.


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
Copyright 1996-2007 Club Delphi