>>>>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))Both of these get an 'Invalid Name' error:
loWorkbook.Sheets(lcSheet).Cell(i, lnColumn).Value = ALLTRIM(STR(i)) loWorkbook.Sheets(lcSheet).Tamar(i, lnColumn).Value = ALLTRIM(STR(i))As far as macros, it doesn't use the cell() syntax.