Hi Yuri,
THAT'S NEAT. I did not know we can use arrays like that

I also played with the reverse

la1=oExcel.Range("A1:B1245").Value

returns the values into an Array named la1

great!

Thanks

Peter

>Edgar
>
>If I understand you correctly, you wish to populate the excel sheet from the foxpro array. Then you may use something like this (here is an example to work with character, numeric, and date types):
>
>

>PROCEDURE yArray2Excel
>Dimension Array2Excel(2,4)
>
>FOR ia=1 TO ALEN(Array2Excel)
>	Array2Excel[ia]= IIF(ia%3=0, DTOC(DATE()),;
>				IIF(ia%2=0,['], "")+TRANSFORM(ia))
>ENDFOR
>
>Array2Excel[1,1]="Hello"
>Array2Excel[2,1]=DATETIME()
>
>oExcel=Createobject("EXCEL.APPlication")
>oExcel.Visible=.T.
>oExcel.Workbooks.Add()
>oExcel.Range("A1:D2").Value = PassArray("Array2Excel")
>
>oExcel=null
>
>RETURN
>*--------------------------------------------
>Procedure PassArray
>Lparameters lcArrayName
>Return @&lcArrayName    && for VFP7 and above
>*-----------------------------------------
>

>
>
>>What is missing for enforement of value in Excel Spreadsheet...
>>Here's my partial code
>>

>>   oExcel=CREATEOBJECT("Excel.Application")
>>   With oExcel
>>      .DisplayAlerts= .F.
>>         .WorkBooks.Open(ALLTRIM(Charttabs.Sheet),0)
>>         .Sheets(ALLTRIM(Charttabs.Tab)).Select()
>>         DO PopulateExcelArray
>>      .Quit
>>   EndWith
>>   Release oExcel
>>
>>Procedure PopulateExcelArray
>>... && no problem retrieving information from spreadsheet
>>      cRange= "A"+ AllTrim(Str(nRow)) && Column A4
>>      .Range(cRange).Select()
>>      &cArray(nRow,iColumn)= AllTrim(DTOC(.Range(cRange).Value))
>>...
>>   DO ProvideDesc
>>EndProc
>>
>>PROCEDURE ProvideDesc
>>... && no problem getting a description into my array
>>   cDescription= cDescription+ ALLTRIM(IIF(ISNULL(.Range("AE3").Value)," ",AllTrim(TRANSFORM(.Range("AE3").Value))))
>>   &cArray(2,26)= cDescription
>>   DO UpdateSpreadsheet
>>
>>PROCEDURE UpdateSpreadsheet
>>... && no problem to identify new values for spreadsheet
>>            sRowID=ALLTRIM(STR(&cArray(3,1))
>>...
>>            sAE= CHRTRAN(CHRTRAN(sAE,CHR(9),""),"-","")
>>... && What must be added to enforce this cell, say A199, to be populated?
>>            IF !EMPTY(sA)
>>               cCell="A"+sRowID
>>               .Range(cCell).Select()
>>               .Range(cCell).Value= CTOD(sA)
>>            ENDIF
>>
>>

>>Do I have an object.update missing? Where can I get a list of Excel Object interactions?
>>
>>TIA