>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
>

You probably need to paste to the worksheet, not the workbook.

Tamar