FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Cita:
Donde bGenerarArchivo es una variable booleana que indica si el archivo se crea o se abre; sArchivo es una variable string con la ruta y nombre del archivo; y sSheetName es el nombre de la hoja a donde vas a escribir. Toma en cuenta que este ejemplo es sin usar TExcelApplication (por eso puse el codigo con el que se crea el objeto), así que usándolo debe ser algo muy parecido. Saludos.
__________________
Tiempo y ocasión acontecen a todos! Última edición por nuk3zito fecha: 22-04-2009 a las 04:14:35. |
#2
|
|||
|
|||
Cita:
|
#3
|
|||
|
|||
Ya realice las modificaciones necesarias de acuerdo a la información que me diste y trabaja super bien, no utilice el comando
Try Excel := GetActiveOleObject('Excel.Application') Except Excel := CreateOleObject('Excel.Application') End; ya que me daba error al leer, entonces lo solo cree, como no creare un nuevo archivo de excel solo utilice los comandos necesarios que fueron Libro := Excel.WorkBooks.Open(sArchivo); xlSheet := Libro.WorkSheets.Item[sShetName); Dentro de un if para determinar la hoja de excel en la que se guardará la información y un while para llenarla el programa quedo así procedure TGeneraListasFrm.SpeedButton2Click(Sender: TObject); Var Excel, Libro, Hoja : Variant; i : integer; begin i := 7; Excel := CreateOleObject('Excel.Application'); Libro := Excel.WorkBooks.Open('E:\Mis Documentos\feb08.xls'); if ModuloDatosFrm.ZListaQrycgrado.Value = 'PREP01' then Begin Hoja := Libro.WorkSheets.Item[6]; With ModuloDatosFrm.ZListaQry Do Begin First; while not EOF do Begin i := i + 1; Hoja.Cells.Item[i,1] := DbGrid1.Fields[0].AsString; Next; End; End; Excel.Visible := True; End Else if ModuloDatosFrm.ZListaQrycgrado.Value = 'PREP02' then Begin Hoja := Libro.WorkSheets.Item[7]; With ModuloDatosFrm.ZListaQry Do bueno y continua hasta 'PREP06' |
#4
|
||||
|
||||
Very good!
__________________
Tiempo y ocasión acontecen a todos! |
#5
|
||||
|
||||
Para los que quieren un poquitito más de teoría referente a lo que se vio en este hilo... aquí tienen una page:
Deborah Pate's Page Es un artículo viejito... pero vigente. Saludos.
__________________
Tiempo y ocasión acontecen a todos! |
|
|
|