Hi Cetin, Sergey, Daniel & Jason

Thanks for your help with this. Your input helped me to solve the problem.

Regards,
Gavin...

>>Hi All,
>>
>> I'm trying to import an Excel Spreadsheet into a VFP6.0 DBF which has Memo Fields and the Memos aren't being populated. The reason that I need to use Memos is that some of the Cells in the Excel file Exceed 254 characters. After the Import all the character fields are populated correctly but the Memos are left empty even though there are corresponding Cells in the Excel File. I desperately need to extract the fields from Excel, I've even tried saving the file as CSV and importing/appending from a Delimited file but that doesn't work either. I'm assuming here that 'Append From' and 'Import From' don't work for Memos unless Appending from a DBF?
>>
>>Another way that I thought of to import the data was to use OLE to open the Spreadsheet and loop through the Cells and insert them into the DBF. Does anyone know how to read an Spreadsheet using OLE, I know how to create one using OLE but not how to do the reverse. I don't really want to use low level file functions either <s>.
>>
>>Thanks,
>>Gavin...
>
>

---

Gavin,
>This would read max 65000 cells into array :
>

#define xlLastCell  11
>oExcel = createobject('Excel.Application')
>With oExcel
>    .WorkBooks.Open(lcBookName)
>    With .Activeworkbook
>        .WorkSheets(lcSheetName).Activate
>        With .ActiveSheet
>            .Range("A1").SpecialCells(xlLastCell).CurrentRegion.Select
>            lnRows = .Application.Selection.Rows.Count
>            lnCols = .Application.Selection.Columns.Count
>            If lnRows * lnCols <= 65000
>                Dimension aExcelData[lnRows,lnCols]
>            Else
>                Dimension aExcelData[int(65000/lnCols),lnCols]
>            Endif
>            For ix = 1 to lnRows
>                For jx = 1 to lnCols
>                    aExcelData[ix, jx] = .Cells(ix,jx).Value
>                Endfor
>            Endfor
>        Endwith
>    Endwith
>    .Activeworkbook.Saved = .t.
>    .quit
>Endwith

Cetin