>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 >You don't need to SELECT anything in Excel to refer to it, nor do you need to use character strings to refer to rows and columns. You can use code like:
loWorkbook.Sheets("28 Day").Cell(m.i, m.j).Value = ALLTRIM(STR(i))Tamar