mostrar un excel en un formulario

[Carlos Ballena]

Amigos Buenas Noches

Me pueden ayudan ..como puedo mostrar un archivo excel dentro de un formalario..solo que muestre

no necesito que abra el excel

[HernanCano]

Google me entregó esta URL:

https://social.msdn.microsoft.com/Forums/en-US/df407d5d-5f41-48b9-9c35-d37c7266dd99/excel-file-view-in-visual-foxpro-60-form?forum=visualfoxprogeneral

http://www.davphantom.net/consultar.asp?id=mostrar-un-documento-de-word-en-un-formulario-170/

https://vfpavanzado.wordpress.com/2017/11/28/como-insertar-aplicaciones-de-terceros-en-nuestros-formularios/

Ojalá pudiera saber por qué a mí sí me aparecen respuestas relacionadas con las preguntas de algunos colegas... pero por qué a ellos no?

¿Necesitas que no se abra Excel????

A veces pienso que la programación es algo que yo no debiera haber elegido.........

[Carlos Ballena]

Gracias por los ejemplo mostrados...

Pero en todos se abrer el EXcel....lo que neceito es que solo se muestre mi hoja excel en el formulario...algo parecido lo que hace el explorador de windows con su vista

De ante mano muchas gracias

[Zarlu]

Buenas tardes!

 

A ver...a ver....vamos viendo Carlos Ballena

 

01.- Mostrar un archivo excel en un formulario....

02.- Sólo que lo muestre, que no lo abra...

03.- ...Algo parecido al explorador de windows...

 

 

Será esto lo que necesitas....

mDestino="c:\"
RUN /N EXPLORER.EXE /open, &mDestino

....y quizá que esté dentro del formulario?

 

 

Suerte

Zarlu

Chetumal, Quintana Roo, México

[Allan Raúl Acuña]

Una posible forma es exportar a PDF y luego mostrarlo en el form.

---

De: publice...@googlegroups.com <publice...@googlegroups.com> en nombre de Zarlu <not...@prodigy.net.mx>
Enviado: viernes, 27 de julio de 2018 11:16:56
Para: Comunidad de Visual Foxpro en Español
Asunto: [vfp] Re: mostrar un excel en un formulario

 

[Gregori Arjona Toledo]

buenos dias , creo que lo que esta pidiendo carlos es esto que pongo como ejemplo

Saludos,

lcXLS = Getfile('XLS')

Set Textmerge To Memvar myVar Noshow

Set Textmerge On

\DEFINE CLASS oleExcelObject as OLEControl

\ OleClass ="Excel.Sheet"

\ OleTypeAllowed = 0

\ DocumentFile = "<<m.lcXLS>>"

\ENDDEFINE

Set Textmerge To

Set Textmerge Off

lcTempClass = Sys(2015)+'.prg'

Strtofile(myVar, lcTempClass)

Compile (lcTempClass)

Public oForm

oForm = Createobject("Form")

oForm.Show()

With oForm

.Height = 420

.Width = 620

.Newobject("ExcelObject","oleExcelObject",lcTempClass)  

With .ExcelObject

.Left = 5

.Top = 5

.Width = .Parent.Width - 10

.Height = .Parent.Height - 10

.Visible = .T.

Endwith

Endwith

oForm.Show

[Carlos Ballena]

Muchas por la Ayuda....todo funciona ..pero

solo me muestra una parte de la hoja..la idea es que muestre toda la información de la hoja excel....le agradecería mucho su ayuda..por favor necesito de sus experencias

Muchas gracias de ante mano 

El miércoles, 25 de julio de 2018, 23:11:54 (UTC-5), Carlos Ballena escribió:

[Alejandro Isla]

Hola Carlos, podrias ayudar a que te ayuden; date cuenta que a todos los que te estan dando una mano les cuesta entender lo que deseas.

Imaginate que nadie acá tiene idea de como es tu famosa planilla de excel ni los datos que contiene.

¿que muestre toda la información de la hoja? tereferis a mas del 1000000 de filas y 16000 columnas ¿ves como se da a confución?

¿Porque no pegas una imagen de lo que queres obtener? así en 2 minutos seguro loresuelven como siempre pasa cuando la gente sabe que es lo que hay que hacer.

Sino volvemos a la famosa ¿alguien me dice cuanto sale uin sistemita hecho en fox?

Saludos.

[Zarlu]

Buenas tardes!

A ver Carlos...tratando de entender...

"Lo quieres como el explorador de windows"

"Que muestre la hoja, pero que no abra el excel para editarla"

Entonces sería una vista previa del archivo?

Dicho de otra forma la hoja desactivada.

Habría que considerar, como lo menciona Alejandro Isla, que una hoja de excel es muy extensa para mostrarla en una vista previa.

Creo que tendrías que navegar en ella para visualizarla.

He insertado alguna vez objeto Ole para word, pero no sé si exista para Excel.

Pon éste código en un botón de un formulario. tienes que crear una shape (shape1) no visible.

Lo baje de la red, pero no encuentro el enlace.

Pruebalo como te lo mando con el block de notas y luego lo adaptas a Excel.

Lo que hace es "incrustar" una aplicación externa en el formulario.

Opino que si muestra tu hoja tendrías que protegerla para que sea sólo de lectura.

**********

DECLARE INTEGER SetParent IN user32;
    INTEGER hWndChild,;
    INTEGER hWndNewParent
DECLARE INTEGER WinExec IN kernel32 STRING  lpCmdLine,;
    INTEGER nCmdShow
DECLARE INTEGER FindWindow IN user32;
        STRING lpClassName, STRING lpWindowName
DECLARE INTEGER SetWindowPos IN user32;
    INTEGER hwnd,;
    INTEGER hWndInsertAfter,;
    INTEGER x,;
    INTEGER y,;
    INTEGER cx,;
    INTEGER cy,;
    INTEGER wFlags    
= WinExec("notepad.exe", 1)

* find its hwnd
nHwnd = FindWindow(NULL, "Sin título: Bloc de notas")

* Note you must supply the EXACT Caption of the window)
* force it inside our form
SetParent(nHwnd,ThisForm.HWnd)
* size it
LOCAL nLeft,nTop,nWidth,nHeight
nLeft = ThisForm.shape1.Left
nTop = ThisForm.shape1.Top
nWidth = ThisForm.shape1.Width
nHeight = ThisForm.shape1.Height

SetWindowPos(nHwnd, 1,nLeft, nTop,nWidth, nHeight,64)
*********************

Suerte

zarlu

Chetumal, Quintana Roo, México

  

[Oscar Bonet]

MI OPINION con todo el Respeto que se merecen.

ese requerimiento Yo creeria que en ocasiones hay que aprender a decirle NO al cliente.   

No siempre esas ocurrencias sin sin argumento de peso tengamos que hacer un programa en fox onen cualquier otro lebguaje.  Parece tarea de la universidad o de un curso de programación o de concurso.

Pensaria que le piden hacer esas cosas lo hacen para  ponerlo en apuros en el trabajo o bien para mantenerlo ocupado y recordarle en el futuro los pendientes que nunca pudo terminar.

pienso....pienso...pienso yo y pienselo usted si lo desea.

_________________
Oscar 

[Newbie]

jajajaj a ver, si le van a hacer la tarea háganla bien o no la hagan, jajaja por favor entiéndase el sarcasmo.

[Newbie]

querías hacer algo como esto???