FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour abrir en excel sin vista protegida
Posts: 3
Joined: Wed Sep 29, 2010 01:14 PM

abrir en excel sin vista protegida

Posted: Sat Aug 10, 2019 03:56 PM

Hola Amigos de Five tech
Agradecería si alguien me puede ayudar con un tema de apertura al generar reportes para excel, los archivo me salen en "vista protegida" para las nueva versiones de office 2010 y posteriores
se que estoy algo obsoleto,, me podira colaborar alguien y orientarme como evitar este impace, se los agradeceria
estas lineas aplico para generar un reporte para excel
espero sus ayuda, gracias de antemano

Include "fivewin.ch"

Include "tcbrowse.ch"

include "FileXLS.ch"

static oFileXLS

       DEFINE XLS FONT nFont2 NAME "Times New Roman" HEIGHT 10 UNDERLINE BOLD
     CTITUL:=CTITUL+".XLS"
        XLS oFileXLS FILE &CTITUL   AUTOEXEC  
        CTITUL:="REPORTE"+".XLS"
     XLS oFileXLS FILE &CTITUL   AUTOEXEC  
    XLS 1 COL 1 WIDTH 12 OF oFileXLS
    @ 1,1 XLS SAY "SOLICITUD"  FONT nfont2 OF oFileXLS
    nRow := 5
    @ NROW,1 XLS SAY "pruebas"  FONT nfont2 OF oFileXLS

ENDXLS oFileXLS
RETURN( .T. )

Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM

Re: abrir en excel sin vista protegida

Posted: Mon Aug 12, 2019 10:36 AM
evert mora wrote:Hola Amigos de Five tech

#Include "fivewin.ch"
#Include "tcbrowse.ch"
#include "FileXLS.ch"
static oFileXLS

DEFINE XLS FONT nFont2 NAME "Times New Roman" HEIGHT 10 UNDERLINE BOLD
CTITUL:=CTITUL+".XLS"
XLS oFileXLS FILE &CTITUL AUTOEXEC
CTITUL:="REPORTE"+".XLS"
XLS oFileXLS FILE &CTITUL AUTOEXEC
XLS 1 COL 1 WIDTH 12 OF oFileXLS
@ 1,1 XLS SAY "SOLICITUD" FONT nfont2 OF oFileXLS
nRow := 5
@ NROW,1 XLS SAY "pruebas" FONT nfont2 OF oFileXLS
ENDXLS oFileXLS
RETURN( .T. )


Hola, no entiendo por qué llamas dos veces al comando XLS oFileXLS .....
Al margen de eso, prueba también sin la clausula AUTOEXEC, si te funciona, veremos cómo hacer
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 3
Joined: Wed Sep 29, 2010 01:14 PM

Re: abrir en excel sin vista protegida

Posted: Tue Aug 13, 2019 04:02 AM

Gracias Navarro
El error de vista protegida la mayoria de las veces la elimino cuando en Excel adiciono en archivos de confianza la carpeta donde queda el reporte que genera la aplicación, pero debe haber la forma que desde la instrucciones se abra sin dar el mensaje de vista protegida y no tener que tener que parametrizar desde Excel,

hice lo q me pedistes
el tema esta es que esta sentencia debe ser completa de esa forma de lo contrario no me funciona
XLS oFileXLS FILE "reporte.xls" AUTOEXEC
Si elimino autoexec no se ejecuta y si elimino Ofilexls , sale error

si existe otro camino para generar reportes para excel del cual utilices y no te de mensaje de vista protegida para versiones desde 2013 o superior por favor podrías enviarme un ejemplo ,me orientas como aplicarla para hacer la prueba.
saludos

Continue the discussion