Personalizacion en Excel, Como saber si una fila esta vacia

[Luis Leon]

Estimados Amigos, estoy haciendo una exportacion de excel a una tabla dbf, el tema es que muchas veces se crean lineas en 

blanco en la hoja de excel  y solo deseo exportar las lineas que poseen informacion , como saber si esta linea de excel no esta vacia

el codigo que uso es el sgte

With m.loExcel.ActiveWorkBook.ActiveSheet

          loLastCell = .Cells.SpecialCells( xlLastCell )

          laTit   = .Range(.Cells(1, 1), .Cells(1, m.loLastCell.Column)).Value

          laData   = .Range(.Cells(2, 1), m.loLastCell).Value

Endwith

Como importar solo, aquellas lineas que poseen informacion

 laData   = .Range(.Cells(2, 1), m.loLastCell).Value , este el el problema con indicar que solo levante con informacion y no vacios

Algun colega que haya tenido este problema y lo haya resuelto

Gracias

Att.

Luis Leon

[Zarlu]

Buenas tardes Luis!

A ver si esto te sirve:

!ISNULL(.Cells(Row,Col).VALUE)

Suerte

zarlu

Chetumal, Quintana Roo, México

[Luis Leon]

Me podrias pasar toda la linea completa

esta es la original

laData   = .Range(.Cells(2, 1), m.loLastCell).Value

---

De: publice...@googlegroups.com <publice...@googlegroups.com> en nombre de Zarlu <not...@prodigy.net.mx>
Enviado: martes, 28 de junio de 2022 13:37
Para: Comunidad de Visual Foxpro en Español <publice...@googlegroups.com>
Asunto: [vfp] Re: Personalizacion en Excel, Como saber si una fila esta vacia

 

--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/7c8da694-219e-4f6f-8868-326e72dad002n%40googlegroups.com.

[Luis Leon]

he utilizado esto  :

laData   = !ISNULL(.Range(.Cells(2, 1), m.loLastCell).Value)

pero me da error

---

De: Luis Leon
Enviado: martes, 28 de junio de 2022 13:23
Para: foro vfp <publice...@googlegroups.com>
Asunto: Personalizacion en Excel, Como saber si una fila esta vacia

 

[ZeRoberto]

Y porque no lo importas a una tabla temporal y luego borras las filas vacías

Saludos

Ze

--

Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/ROAP284MB08969415D4F038261DD55429EAB89%40ROAP284MB0896.BRAP284.PROD.OUTLOOK.COM.

[Zarlu]

Qué tal Luis!

Te paso un fragmento del código donde lo uso. Lo único que le falta a la línea que te pasé el es la referencia al objeto excel

Lo que hago es recorrer filas (y de cada fila las columnas) para encontrar datos vacíos y borrar la línea y/o la columna

WITH loExcel
*-abre archivo excel
.Workbooks.Open(lcFile)
.Application.DisplayAlerts = .f.
*elimina columnas y renglones vacios. 45
lcMensaje="Revisando primeras columnas yrenglones ....."
Wait lcMensaje Windows At Int(10),Int(_Screen.Width/2-Len(lcMensaje)/2)+25 Nowait Noclear
lcNull=.T.
FOR lcPriRow=1 TO 45&&rows
    lcNoDat=.T.
    FOR lcPriCol=1 TO 45&&columnas
        IF !ISNULL(.Cells(lcPriRow,lcPriCol).VALUE)
            lcNull=.f.
            lcNoDat=.F.
            EXIT
        EndIF    
    ENDFOR

***éste codigo esta incompleto, sólo es ilustrativo

zarlu

Chetumal, Quintana Roo, México