>loTempWorkBook = CREATEOBJECT("Excel.Application") >loTempWorkBook.Workbooks.Open("C:\Dev\Questback\Data\Invicta\Repairs(REP)\"+DTOS(DATE()-1)+"RSLSummary.xls") >loTempWorkBook.Visible = .T. >loMTWorkBook = CREATEOBJECT("Excel.Application") >loMTWorkBook.Workbooks.Open("C:\Dev\Questback\Data\Invicta\Repairs(REP)\"+DTOS(DATE()-1)+"RepairURL.xls") >loMTWorkBook.Visible = .T. > >loTempWorkBook.Worksheets(1).Move(loMTWorkBook.ActiveSheet) && Error on this line > >loMTWorkBook.SaveAs = ("C:\Dev\Questback\Data\Invicta\Repairs(REP)\"+DTOS(DATE()-1)+"RepairURL.xls") >RELEASE loTempWorkBook >>
LOCAL loX,loTempWorkBook,loMTWorkBook, lcXLS1,lcXLS2 lcXLS1 = "C:\Dev\Questback\Data\Invicta\Repairs(REP)\"+DTOS(DATE()-1)+"RSLSummary.xls" lcXLS2 = "C:\Dev\Questback\Data\Invicta\Repairs(REP)\"+DTOS(DATE()-1)+"RepairURL.xls" loX = CREATEOBJECT("Excel.Application") loTempWorkBook = loX.Workbooks.Open(m.lcXLS1) loMTWorkBook = loX.Workbooks.Open(m.lcXLS2) loX.Visible = .T. loTempWorkBook.Worksheets(1).Move(loMTWorkBook.ActiveSheet)Cetin