Hi all

I have some Excel automation code (see below) which works to an extent. What it does is opens a xls file and does a SaveAs() xlsx file in case such a target file is not found. Then I try to open both these files and I need to copy the first sheet in the xls into the xlsx first sheet but the Paste() seems to fail for me.

Please advise on how can I get the updated data from the old format to the new format.

Kind regards
Bhavbhuti

lcXLS = (MyOldExcelFormatFilePathName)
lcXLSX = lcXLS + "X"


loExcel = CREATEOBJECT("Excel.Application")

IF VARTYPE(loExcel) <> "O"
	MESSAGEBOX("Cannot start Excel to convert file to XLSX")
	
	RETURN
ENDIF

*loExcel.Visible = .F.


loWBOld = loExcel.Application.WorkBooks.Open(lcXLS)

IF NOT FILE(lcXLSX)
	loWBOld.SaveAs(lcXLSX, 51)
ENDIF


loWBNew = loExcel.Application.WorkBooks.Open(lcXLSX)


*** copy the first sheet from old to new
loExcel.WINDOWS(JUSTFNAME(lcXLS)).ACTIVATE
loExcel.Sheets(JUSTFNAME(lcXLS)).Copy(loWBOld.Sheets(1))

loExcel.WINDOWS(JUSTFNAME(lcXLSX)).ACTIVATE
loWBNew.Paste()


loWBOld.Close()
loWBNew.Close()

loWBOld = NULL
loWBNew = NULL
loExcel = NULL