FiveTech Support Forums

Uso la clase TFileXls para exportar datos a archivos Excel, todo funciona bien y super rápido; pero resulta que siempre esa exportación la hago a un archivo que tiene siempre el mismo nombre; pero cuando el dichoso archivo esta abierto, se da un problema.

El programa se ejecuta bien, pero el archivo como esta abierto se queda con los datos que tenía originalmente, si cierro el archivo en Excel, e intento de nuevo a creación del archivo Excel ahi si se genera bien.

Que puedo hacer, o que se hace para saber si el archivo esta abierto y previemente cerrarlo.

Saludos

Fernando Espinoza

Se me ocurre que tendrías que comprobar la existencia del archivo antes de volver a generarlo

If( File( "c:\excel\archivoExcel.xls" ) )
Return 0
End
CreaArchivoExcel()
Return 0

Saludos

Horacio

Ya intente eso, lo que pasa es que no se lo puede borrar al archivo porque esta abierto; entonces lo mejor sería primero cerarlo en Excel y ahi si sobreescribirlo.

fespinoza wrote:Horacio

Ya intente eso, lo que pasa es que no se lo puede borrar al archivo porque esta abierto; entonces lo mejor sería primero cerarlo en Excel y ahi si sobreescribirlo.

Utiliza la funcion FOPEN() y que lo intente abrir en EXCLUSIVA, si no puede,
porque esta en uso, entonces ya sabes que esta en uso

Buenas tardes para todos

Vuelvo a abrir este hilo.... por que estoy buscando detectar si un archivo en excel esta abierto... , el codigo es el siguiente:



El problema es que siempre dice que no hay nadie mas abriendo el archivo...... devuelve resultados como 1125,1116

De antemano gracias

Saludos

Estimado:

            Yo lo que hago es capturar la ventana para verificar si el archivo esta abierto en el excel y mandarlo a cerrar:

              cFile3:='NV'+OT:CMES

                oWndCapt := TWCapture():New( "Microsoft Excel - "+cFile3)
                if oWndCapt:lCaptured

                            MSGALERT('El archivo '+cFile3+' se encuentra en uso.'+CRLF+;
                                             'Cierre el archivo para gener uno nuevo','Archivo abierto')
                            oWndCapt:Setfocus()
                            oWndCapt:End()

                            FOR I:=1 TO 10
                                 oWndCapt := TWCapture():New( "Microsoft Excel - "+cFile3)
                                 if oWndCapt:lCaptured
                                        syswait(4)
                                        IF I == 10
                                                MSGALERT('El archivo '+cFile3+' se encuentra en uso.'+CRLF+;
                                                                 'Cierre el archivo para gener uno nuevo','Archivo abierto')
                                                RETURN NIL
                                        ENDIF
                                 else
                                        EXIT
                                 endif
                            NEXT

                            IF FILE(cFile)
                                FERASE(cFile)
                            ENDIF

                else

• ? 'no se pudo capturar la ventana'
  endif

Saludos
Daniel Puente
Santa Cruz, Argentina

danielpuente101@gmail.com

Debes cerrar el excel y se cierran las planillas abiertas