>>>>>LOCAL loExcel AS Excel.APPLICATION >>>>> >>>>>loExcel = CREATEOBJECT("Excel.application") >>>>>loExcel.VISIBLE = .F. >>>>> >>>>>loWorkBook = loExcel.Workbooks.OPEN('P:\Flock Information.xls') >>>>>loExcel.displayalerts = .F. >>>>> >>>>>loWorkBook.Sheets("28 Day").SELECT >>>>> >>>>>FOR i = 288 TO 300 >>>>> legRow = 'M' + ALLTRIM(STR(i)) >>>>> loWorkBook.ActiveSheet.RANGE("&legRow").select >>>>> loExcel.ActiveCell.Value = ALLTRIM(STR(i)) &&<--- This doesn't work >>>>>*!* loWorkBook.ActiveSheet.RANGE("&legRow").Value = ALLTRIM(STR(i)) &&<---- This doesn't work either >>>>>NEXT >>>>> >>>>> >>>>>* Hardcoding the range also does not work >>>>>loWorkBook.ActiveSheet.RANGE("M288").select >>>>>loExcel.ActiveCell.Value = "Hello" >>>>> >>>>>* Execute this code just to make sure there is a connection, and IT WORKS >>>>>lcTest = loWorkBook.ActiveSheet.RANGE("L288").VALUE >>>>>? lcTest >>>>> >>>>>loExcel.displayalerts = .F. >>>>>loExcel.QUIT() >>>>>RELEASE loExcel >>>>>loExcel = NULL >>>>>>>>>
>>>>loWorkbook.Sheets("28 Day").Cell(m.i, m.j).Value = ALLTRIM(STR(i)) >>>>>>>>
>>>lcSheet = "28 Day" >>>lcSheet = "Sheet1" >>> >>>lnColumn = 14 >>>FOR i = 288 TO 300 >>> *legRow = 'M' + ALLTRIM(STR(i)) >>> loWorkbook.Sheets(lcSheet).Cell(i, lnColumn).Value = ALLTRIM(STR(i)) >>> *loWorkBook.ActiveSheet.RANGE("&legRow").select >>> *loExcel.ActiveCell.Value = ALLTRIM(STR(i)) &&<--- This doesn't work >>>*!* loWorkBook.ActiveSheet.RANGE("&legRow").Value = ALLTRIM(STR(i)) &&<---- This doesn't work either >>>NEXT >>>>>>
>>loSheet = loWorkbook.Sheets("28 Day")
>>
>>>loWorkbook.Sheets(lcSheet).Range("A1").Value = ALLTRIM(STR(i)) >>
>loWorkbook.Sheets(lcSheet).Cell(i, lnColumn).Value = ALLTRIM(STR(i)) >loWorkbook.Sheets(lcSheet).Tamar(i, lnColumn).Value = ALLTRIM(STR(i)) >>