la1=oExcel.Range("A1:B1245").Valuereturns the values into an Array named la1
>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 >*----------------------------------------- >>
>> 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?