David,

Thank you very much.
I think that is all I need.

I'm finishing testing the importing of text files -the most difficult thing was to create an interface to allow users to map fixed lenght files- , Excel is next, then DBFs, then XML. So far so good, problem is, I need to deliver this on Tuesday morning.


>lcFile = "MyWorkBook.xls"
>oExcel = CreateObject("Excel.Application")
>oWorkBook = oExcel.WorkBooks.Open(lcFile)
>oSheet = oWorkBook.Sheets(1)
>lcUsedRange = oSheet.UsedRange.Location
>If lcUsedRange == "$A$1"
> * Sheet is Empty
>EndIf
>*- End of Snippet -*
>
>Maria, this is quick code. I am doing this from memory. If you would like some real code let me know and I will fish through some stuff. If you want to check cell by cell:
>
>oSheet.Cells(nRow,nCol).Value && True value of cell (.Null. is possible)
>oSheet.Cells(nRow,nCol).Text && value of cell returned as Character
>
>Let me know if you want me to fill in the blanks with specifics (named files, sheets, etc.)
>
>- David -