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...
> 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?