FiveTech Support Forums

dutch wrote:

Code (fw): Select all Collapse

nSheets := oExcel:Sheets:Count()

nSheets := oExcel:WorkSheets:Count()

Enrico Maria Giordano wrote:

dutch wrote:

Code (fw): Select all Collapse

nSheets := oExcel:Sheets:Count()

Try

Code (fw): Select all Collapse

nSheets := oExcel:WorkSheets:Count()

EMG

Dutch,

You need to use :SaveAs() method for to obtain permanent changes on your excel workbook

Regards

I've a problem with delete method in excel. I would like to delete a sheet with name "DATA".
it found this sheet in xls file but after this method oExcel:WorkSheets( n ):Delete(). The DATA sheet is still exist in excel file.

oExcel:DisplayAlerts := .f.

I don't know what does it wrong?

#include 'fivewin.ch'
#define GTI_CLIPBOARDDATA 15

FUNCTION MAIN()
   LOCAL oExcel, oSheet
   LOCAL nRow, nSheets, n
   LOCAL nCounter, nStart, nSeconds, nSecOle, nSecClip, nSecArray
   LOCAL cMemo, cData, aData

   set century on
   set epoch to 1950

   oExcel = CREATEOBJECT( "Excel.Application" )
   
   oExcel:WorkBooks:Open("d:\fwh\samples\testxls.xls")
   oExcel:DisplayAlerts := .F.
   oExcel:Visible := .F.
   nSheets := oExcel:Sheets:Count()  
   n := 1
   do while n <= nSheets
        if upper( oExcel:WorkSheets( n ):Name )=="DATA"
           oExcel:WorkSheets( n ):Delete()
           exit
        end
        n++
   end
   oExcel:Save()
   oExcel:Quit()

Enrico Maria Giordano wrote:Replace

Code (fw): Select all Collapse

oExcel:WorkSheets( n ):Delete()
msginfo('delete')

with

Code (fw): Select all Collapse

oExcel:WorkSheets( n ):Delete()
msginfo('delete')
exit

It works fine here.

EMG

hmpaquito wrote:Dutch,

You need to use :SaveAs() method for to obtain permanent changes on your excel workbook


Regards

nageswaragunupudi wrote:

I've a problem with delete method in excel. I would like to delete a sheet with name "DATA".
it found this sheet in xls file but after this method oExcel:WorkSheets( n ):Delete(). The DATA sheet is still exist in excel file.

Please insert the statement

Code (fw): Select all Collapse

oExcel:DisplayAlerts := .f.

before deleting the sheet.

I don't know what does it wrong?

If the sheet is empty, delete works without any problem.
But when the sheet contains some data, Excel displays an YesNo alert to the user to confirm deletion.
You could not see this alert because Excel is still not visible. In such a case, excel simply assumes that the user did not accept the deletion. In case you made excel visible earlier to calling Delete() method, you would have seen the dialog.

By assigning .f. to the property DisplayAlerts, we asked Excel to execute the method without waiting for confirmation.