>There are links in the original spreadsheet. The new spreadsheet (pam.xls) does not save the values that were in the cells. How can I save the spreadsheet so the values will remain?
>
>I am using the following code:
>
>#INCLUDE office97.h
>#INCLUDE xl97cons.h
>SET SAFETY OFF
>
>fname = "E:\SRR\SRRMASTER.xls"
>fname2 = "E:\SRR\PAM.xls"
>COPY file (fname) to (fname2)
>
>ObjExcel=CREATEOBJECT("Excel.Application")
>ObjBook = ObjExcel.WorkBooks.OPEN(fname2)
>ObjBook.Sheets("Grade Sheet").SELECT
>OBJExcel.DisplayAlerts = FALSE
>
>tcSheet = "Grade Sheet"
>
>WITH objExcel.ActiveWorkbook
> .Worksheets(tcSheet).Activate
> .Application.DisplayAlerts = .F.
> FOR each objSheet in .Worksheets
> IF objSheet.Name # tcSheet
> objSheet.Delete
> ENDIF
> ENDFOR
> .Application.DisplayAlerts = .T.
> .Save
>ENDWITH
>
>objExcel.quit()
>RELEASE objExcel
>RELEASE ALL LIKE 'o*'

---

Pam,
Updating links is decided during file open. Check 'open' syntax and use 'UpdateLinks' parameter as you want ie: Update all links :
oExcel.WorkBooks.Open(tcSaveAs,3)
Cetin