goingtothetop

I am using the code below - different cursors - to copy data from Foxpro to an excel sheet- different columns.

Problem is... I have to click on Save changes... every time I paste and close the workbook.

If I say oExcelObject...Save or SaveAs... it requires overwriting of the main document... which is not required.

Is there a better way forward ?

SELECT Y1Lot
_VFP.DataToClip()

WITH oExcelObject.Worksheets("Valuations")
oExcelObject.ActiveSheet.range("A5").select && Paste the Data
oExcelObject.ActiveSheet.Paste() && Paste the Data
oExcelWorkbook.close
ENDWITH

SELECT Y1Valu
_VFP.DataToClip()

oExcelWorkbook = oExcelObject.Application.Workbooks.Open(cSheet)

WITH oExcelObject.Worksheets("Valuations")
oExcelObject.ActiveSheet.range("B5").select && Paste the Data
oExcelObject.ActiveSheet.Paste() && Paste the Data
oExcelWorkbook.close
ENDWITH