Sigo con toleauto, sin resolver¡¡¡

Sigo con toleauto, sin resolver¡¡¡

Postby noe aburto » Wed Nov 08, 2017 4:41 pm

Disculpen la insistencia, no he podido visualizar previamente un archivo de excel,

cTmpXls:='P:\Tmp\FINAL.xlsx'
oExcel:=TOleAuto():New( "Excel.Application" )
oBook :=oExcel:WorkBooks:Open(cTmpXls,0)
oSheet:=oExcel:Get("ActiveSheet")
oSheet:PrintPreview()
oExcel:Close()
oExcel:Quit()

Que tendre mal?
Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
User avatar
noe aburto
 
Posts: 418
Joined: Wed Nov 26, 2008 6:33 pm
Location: Morelia, Mich. Mexico.

Re: Sigo con toleauto, sin resolver¡¡¡

Postby karinha » Wed Nov 08, 2017 5:54 pm

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7151
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Sigo con toleauto, sin resolver¡¡¡

Postby MarioG » Mon Nov 13, 2017 2:01 pm

Buen dia Noe
Asi me funciona
Code: Select all  Expand view
oExcel:= TOleAuto():New( "Excel.Application", .F. )
   // Abrir Hoja
   oExcel:Set( "DisplayAlerts",(.F.) )
   oWorkBooks:= oExcel:WorkBooks:Add()                   // Abre excel con un libro vacio de tres hojas
   oHoja:= oExcel:ActiveSheet
 


Aunque no veo que cambie mucho a tus declaraciones. Solo el parámetro (.F.), que tendría que volver a leer para recordar a que refiere
Resistencia - "Ciudad de las Esculturas"
Chaco - Argentina
User avatar
MarioG
 
Posts: 1380
Joined: Fri Oct 14, 2005 1:28 pm
Location: Resistencia - Chaco - AR

Re: Sigo con toleauto, sin resolver¡¡¡

Postby hmpaquito » Mon Nov 13, 2017 4:27 pm

Intenta, poniendo antes del preview:

Code: Select all  Expand view
oExcel:Visible:= .T.
.
hmpaquito
 
Posts: 1482
Joined: Thu Oct 30, 2008 2:37 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 9 guests