Check http://www.berezniker.com/content/pages/visual-foxpro/excel-finding-last-row-column-or-cell

>Gregory
>Good solution.
>Suppose the worksheet had an indeterminate number of rows > 5K?
>How would you establish the range?
>
>
>>>Thanks to all contributors this great thread.
>>>
>>>This is of general interest and useful to a lot of people IMHO:)
>>>
>>>By the way is there a trick to do just the opposite? i-e feed a table-like set of MS-Excel cells as a VFP array in order to avoid cell-per-cell parsing when downloading the content of a heavy sheets via com (I am not discussing ADO or ODBC here).
>>>
>>>François
>>
>>Sure - see message#1519015
>>
>>

>>	local obj, sheetObj
>>	obj = createobject('Excel.Application')
>>	=m.obj.workbooks.Open('D:\tmp\1.xlsx')
>>	sheetObj= m.obj.WorkBooks(1).Sheets(1)
>>	
>>	local aa[1]
>>	aa = m.sheetObj.Range(m.sheetObj.Cells(1,1), m.sheetObj.Cells(2,5)).Value
>>	
>>	sheetObj= null
>>	=m.obj.Quit()
>>	obj = null
>>	
>>	assert .f. && look in the debugger
>>