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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 06-04-2012
LuisAlf:: LuisAlf:: is offline
Miembro
 
Registrado: nov 2009
Posts: 60
Poder: 15
LuisAlf:: Va por buen camino
Abriendo y guardando archivo de excel con OLE

Hola!

Estoy utilizando OLE para abrir un archivo de excel que ya contiene ciertos registros en el...
Entonces lo que quiero ahora es que en ese mismo archivo se agreguen otros nuevos registros creados por mi "Sistema" es decir que abajo del último existente me agregue los nuevos registros en el archivo de excel...

Este es el código que estoy usando pero me salta un error al accionar el procedimiento. "Raised exception class EVariantInvalidOpError with message 'Invalid variant operation'."
Código Delphi [-]
procedure TForm2.Excelexistente1Click(Sender: TObject);
var
  Excel, WorkBook, WorkSheet: Variant;
  i,ii,j:integer;
begin
  // crear instancia de la aplicación Excel (requieres la unidad ComObj)
  Excel := CreateOleObject('Excel.Application');

  Workbook :=  Excel.Workbooks.open(ExtractFilePath(Application.ExeName)+'\save.xls');

  // tomar una referencia a la hoja 
  WorkSheet := WorkBook.WorkSheets[1];

      showmessage(worksheet.cells[2,2]);

  ii:=1;
  j:=1;

  while WorkSheet.cells[ii,j]<>'' do
  begin
   inc(ii);
  end;
      
      showmessage(worksheet.cells[ii,j]);//-------> NO LO MUESTRA POR EL ERROR :/


.......
.................
.......................

  // guardar el archivo
  WorkBook.SaveAs(ExtractFilePath(Application.ExeName)+'save.xls');

  // Terminamos la instancia de Excel
  Excel.Quit;

end;
Nada mas muestro la parte donde quiero recorrer las filas del excel hasta llegar a la fila que este vacia, para posteriormente empezar a poner los nuevos registros.... pero como ven no me funciona :/

Espero que alguien me pueda hechar la mano!
Responder Con Cita
  #2  
Antiguo 09-04-2012
Avatar de Ñuño Martínez
Ñuño Martínez Ñuño Martínez is offline
Moderador
 
Registrado: jul 2006
Ubicación: Ciudad Catedral, Españistán
Posts: 6.000
Poder: 25
Ñuño Martínez Tiene un aura espectacularÑuño Martínez Tiene un aura espectacular
Aparte de que yo no usaría OLE porque este sí está obsoleto (quizá mejor usar Activex o algo así), no entiendo por qué usas VARIANT en lugar del tipo adecuado.

De cualquier forma, aunque hace mucho que no uso VARIAN supongo que deberás amoldar la variable para poder acceder a los métodos y propiedades del objeto. Estoy seguro al 99% de que es este el problema.
__________________
Proyectos actuales --> Allegro 5 Pascal ¡y Delphi!|MinGRo Game Engine
Responder Con Cita
Respuesta



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
Problemas Guardando Info en Firebird wonder boy Conexión con bases de datos 6 31-03-2008 22:22:01
Conexion en ADO guardando la ruta de la BD en un .txt CottonMouth Conexión con bases de datos 5 18-06-2007 17:42:15
Archivo PDF a Excel Anabel Varios 1 20-12-2006 13:18:09
guardando fecha interbase 6 fixarg Firebird e Interbase 2 18-12-2004 02:18:32
Guardando Configuración yusnerqui Varios 3 01-04-2004 00:11:16


La franja horaria es GMT +2. Ahora son las 07:24:12.


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