FiveTech Software tech support forums

if (oExcel:=ExcelObj())== nil
mensaje('Excel no esta instalado!!')
endif

oExcel:ScreenUpdating := .f.
oExcel:Application:DisplayAlerts:=.f.
..
..
..

// Congelamos encabezado
oWin := oExcel:ActiveWindow
oWin:SplitRow := 7
oWin:FreezePanes := .t.

Saludos
Joel Andujo

Buenas de nuevo

Ya esta solucionado

No localizo donde puede estar el error pero eliminado el mensaje, como dije anteriormente todo va perfectamente.

oExcel:DisplayAlerts:=.F.

Saludos

... /*********************************************/ static procedure OnInitExcel(oExcel) /* */ SetWindowLong(oExcel:hWnd,-16,"L") oExcel:DisplayAlerts := .F. oExcel:ActiveWorkBook:Protect('',.f.,.f.) //Para poder manupilar el estado de la venta del libro oExcel:WindowState := -4137 //Se ...

... /*********************************************/ static procedure OnInitExcel(oExcel) /* */ SetWindowLong(oExcel:hWnd,-16,"L") oExcel:DisplayAlerts := .F. oExcel:ActiveWorkBook:Protect('',.f.,.f.) //Para poder manupilar el estado de la venta del libro oExcel:WindowState := -4137 //Se ...

... esperando a que al objeto Excel se le indique la contraseña o se cancele, algo así: oexcel := CreateObject( "Excel.Application" ) oexcel:DisplayAlerts(.F.) ... olibro := oexcel:WorkBooks:Open(alltrim(fichero),.f.,.f.) ... Y cuando el libro tiene contraseña, el programa NO continúa despues ...

... ) STDCALL dispatch FUNC void DeleteCustomList( [in] int ) STDCALL dispatch PROPERTYGET PTR Dialogs() STDCALL dispatch PROPERTYGET VARIANT_BOOL DisplayAlerts() STDCALL dispatch PROPERTYPUT void DisplayAlerts( [in] VARIANT_BOOL ) STDCALL dispatch PROPERTYGET VARIANT_BOOL DisplayFormulaBar() STDCALL ...

... PROPERTYPUT void DisplayAutoCompleteTips( [in] VARIANT_BOOL ) STDCALL dispatch PROPERTYGET PTR Options() STDCALL dispatch PROPERTYGET USERDEFINED DisplayAlerts() STDCALL dispatch PROPERTYPUT void DisplayAlerts( [in] USERDEFINED ) STDCALL dispatch PROPERTYGET PTR CustomDictionaries() STDCALL dispatch ...

Probably what you suggest will work either... but I used what " anserkk " suggested. and works Now I simply load XLS, then I use oExcel:DisplayAlerts := .F. Then I save the XLS back using a password parameter. The program doesn't complain about asking to overwrite, it just silently overwrite ...

codemaker wrote:

Gale FORd wrote:So I am back to square one. How can I avoid the program asking me if I want to overwrite the existing XLS.... ?

Try this and let us know

Code: Select all  Expand view

oExcel:DisplayAlerts := .F.

By assigning .F. to the property DisplayAlerts, Excel will execute the method without waiting for our confirmation.

Regards
Anser

... of for..next, @hmpaquito, I've inserted oExcel:Save() at the end before :quit() @Rao, Your statement is True, the DATA sheet has some data. The DisplayAlerts must required. #include 'fivewin.ch'#define GTI_CLIPBOARDDATA 15FUNCTION MAIN()   LOCAL oExcel, oSheet   LOCAL nRow, nSheets, ...

... in xls file but after this method oExcel:WorkSheets( n ):Delete(). The DATA sheet is still exist in excel file. Please insert the statement 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 ...

... xlistah) local aEstructura local nveces, N, oExcel, oWorkBook, xatt, oSheet oExcel := CREATEOBJECT( "Excel.Application" ) OEXCEL:DISPLAYALERTS=.F. oWorkBook := oExcel:WorkBooks:Add() oSheet := oExcel:ActiveSheet aEstructura:={} aadd(aEstructura,{"ART_CODIG","C",16,0}) ...

... que el usuario SAVE/EXIT de la Excel desde el menú de la propia Excel. Cuando no quiero que pregunte al cerrar la hoja, le pongo: oExcel:Set("DisplayAlerts", .f.) No sé si puede ayudarte, eliminar la opción para grabar la hoja desde la aplicación y obligar a que el usuario se pronuncie ...

Oltre a DisplayAlerts non sono a conoscenza di altri modi. Sei sicuro di aver fatto la prova per bene? Magari mandami DOC e PRG per fare la prova qui. Enrico, l'esempio postato è completo! Devi solo selezionare una stampante ...

Oltre a DisplayAlerts non sono a conoscenza di altri modi. Sei sicuro di aver fatto la prova per bene? Magari mandami DOC e PRG per fare la prova qui.

EMG