... oWorkBook=oExcel.Workbooks.open(m.lcXLS) oActiveSheet=oWorkbook.ActiveSheet with oActiveSheet .range(; .Cells(1,.UsedRange.columns.count+1), ; .Cells( alen(arrData),.UsedRange.columns.count+1)).value = getArrayRef('arrData') endwith ....>I have never seen that error and I didn't understand a bit what the documentation is trying to say about it.
>>>rand(-1) >>>create cursor xx (myData c(10)) >>>for ix = 1 to int(rand()*20) >>> insert into xx values (textmerge('Day <<m.ix>>')) >>>endfor >>>select * from xx into array arrData >>> >>> >>>lcXLS = 'c:\MyFolder\myDays.xls' >>> >>>oExcel = createobject('Excel.Application') >>>oExcel.visible = .t. >>>if file(m.lcXLS) >>> oExcel.Workbooks.open(m.lcXLS) >>> with oExcel.ActiveWorkBook.ActiveSheet >>> .range(; >>> .Cells(1,.UsedRange.columns.count+1), ; >>> .Cells( alen(arrData),.UsedRange.columns.count+1)).value = getArrayRef('arrData') >>> endwith >>>else >>> oExcel.Workbooks.add >>> oExcel.ActiveWorkBook.saveas(m.lcXLS) >>> with oExcel.ActiveWorkBook.ActiveSheet >>> .range(; >>> .Cells(1,1), ; >>> .Cells( alen(arrData),1)).value = getArrayRef('arrData') >>> endwith >>>endif >>>oExcel.ActiveWorkBook.save >>> >>>function getArrayRef(tcArrayName) >>> return @&tcArrayName >>>Cetin