Visual FoxPro.NET - OCULTAR LA BARRA DE OPCIONES DE EXCEL

   
Vista:

OCULTAR LA BARRA DE OPCIONES DE EXCEL

Publicado por Juan (3 intervenciones) el 13/11/2014 10:14:13
Buenas foreros

Tengo una pregunta que no sé si es posible llevar a buen puerto, he estado buscando en Google en diversas páginas y aquí no me ha parecido ver solución a mi problema (así que si al final si existe, pido disculpas anticipadas).

Bueno el caso es que estoy construyendo una aplicación en Visual FoxPro que llama al Excel y me gustaría poder ocultar el menú principal de Excel dejando únicamente los botones de impresión y edición.

Lo cierto es que al principio usaba un objeto OLE que mostraba la información guardada en un campo General (guardaba una copia del archivo Excel allí, antes de borrarla del disco duro), pero como eso está dando problemas de redimensionado y otras cosas. Entonces para abrir cualquier archivo de Excel he pensado en hacer de la siguiente forma:

loShell = CREATEOBJECT("Shell.Application")
loShell.ShellExecute("Mi archivo.xls")
RELEASE loShell

El problema es que se me abre el Excel completamente y si fuera posible me gustaría "ocultar" o "deshabilitar" las opciones que he comentado más arriba, no sé si me explico correctamente. Imagino que si en la Automatización, hay manera de al crear el archivo ocultar lo que quiero, después al ejecutar, estos elementos ya no se deberían mostrar, no?

En cualquier caso, copio la Automatización de creación del archivo, por si observáis algo que deba ser modificado o que se pueda modificar para llegar a lo que me gustaría poder hacer:

lcIMP = "PRESUPUESTO GASTO" && Es la hoja activa

loExcel = CREATEOBJECT("Excel.application")

try
with loExcel
.Visible = .F. && No queremos que se abra el Excel, se abrirá en otra parte del código
.Application.Workbooks.Open(lcFILE) && lcFile es el archivo a modificar
.Application.Worksheets(lcIMP).Activate && Pasamos la hoja activa a la que nos interesa
.Application.CutCopyMode = 0 && Tratamos de evitar el copia y pega
.Range("c6").Value =2014
.Range("b1").Value = "EMPRESA CLIENTE"
.Caption = "Mi Empresa."
.activeworkbook.close(.T.)
.Application.quit
endwith
catch
llOK = .F. && Sacará mensaje de error en otra parte del código
loExcel.Application.quit
endtry

release loExcel

Para finalizar uso Excel 2013 y programo con Visual FoxPro 9.0 Servipack 2

Por último dar las gracias por anticipado por el interés en el tema, comentarios, aportes o/y posibles ideas para solucionar "el problema".
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

OCULTAR LA BARRA DE OPCIONES DE EXCEL

Publicado por Cesar Diez-Canseco (2 intervenciones) el 14/11/2014 21:32:17
Hola Juan,
Con este codigo deshabilitas la barra del menu principal y la barra de herramientas standard.

&& Crea una objeto excel
oExcel = CreateObject("Excel.Application")

&& Añado un libro nuevo
oExcel.Workbooks.ADD

&& Hace visible la hoja de calcuo Excel.
oExcel.VISIBLE = .T.

&& Quita la barra de Menu Principal
oExcel.CommandBars("Worksheet Menu Bar").enabled=.f.

&& Quita la barra de Herramientas Standard
oExcel.CommandBars("Standard").Visible = .f.

&& Borra el objeto oExcel
RELEASE oExcel

Saludos,
Cesar
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

OCULTAR LA BARRA DE OPCIONES DE EXCEL

Publicado por Juan (3 intervenciones) el 15/11/2014 11:34:12
Muchas gracias Cesar, me ha funcionado perfectamente :)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

OCULTAR LA BARRA DE OPCIONES DE EXCEL

Publicado por Cesar Diez-Canseco (2 intervenciones) el 17/11/2014 15:13:16
Que bueno!. Me alegro haber contribuido con mi granito de arena. :)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

OCULTAR LA BARRA DE OPCIONES DE EXCEL

Publicado por Juan (3 intervenciones) el 17/11/2014 15:27:08
Gracias de nuevo Cesar ;)

Por mí se puede poner el Título como [SOLUCIONADO], sabe alguien cómo hacerlo?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar