topic-34838

Board index FiveWin para Harbour/xHarbour Sigo con toleauto, sin resolver¡¡¡

Posts: 418

Joined: Wed Nov 26, 2008 06:33 PM

Sigo con toleauto, sin resolver¡¡¡
Posted: Wed Nov 08, 2017 04: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

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Sigo con toleauto, sin resolver¡¡¡
Posted: Wed Nov 08, 2017 05:54 PM

Noe, mira se ayuda:

http://fivewin.com.br/index.php?/topic/21673-usando-o-createobject-excelapplication/#comment-263088

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: Sigo con toleauto, sin resolver¡¡¡
Posted: Mon Nov 13, 2017 02:01 PM

Buen dia Noe
Asi me funciona

Code (fw): Select all Collapse

 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

hmpaquito

Posts: 1515

Joined: Thu Oct 30, 2008 02:37 PM

Re: Sigo con toleauto, sin resolver¡¡¡
Posted: Mon Nov 13, 2017 04:27 PM

Intenta, poniendo antes del preview:

Code (fw): Select all Collapse

oExcel:Visible:= .T.

FiveTech Support Forums

Continue the discussion