Lios con la funcion Shell

31/08/2005 - 18:35 por Carlos Durán Urenda | Informe spam
Saludos a todos

A ver si me pueden orientar
Estoy utilizando la funcion Shell para abrir un archivo de Excel, esto
debido a que la aplicacion que estoy desarrollando debe correr en
ordenadores con diferentes versiones de excel, por lo cual decidí abrirlo
por medio de Shell y no utilizar referencias a librerias de excel

Ahora bien, cualquier intento por abrir Excel me resulta en un error de
Archivo no encontrado, sin embargo si el comando lo pongo en la ventana de
Ejecutar (de Windows) lo abre perfectamente

He intentando abrir unicamente excel Shell("EXCEL.EXE")
Abrir el archivo ...
Shell("C:\Archivo.xls")
Abrir el archivo con excel Shell("EXCEL.EXE
C:\Archivo.xls")

he visto la ayuda y seguido todos las instrucciones y comentarios indicados
ahí, pero nada

sin embargo con otras aplicaciones lo hace perfectamente com con el NotePad
y MSPaint

El equipo que tengo tiene Windos XP Pro SP2, Excel XP (2002), Visual Studio
Pro 2003
los permisos que tengo son administrativos

y como les mensiono, los comandos que he intentado funcionand perfectamente
en la ventana de Ejecutar... de windows.

Alguien sabe si el problema puede estar relacionado con el Service Pack 2 de
Windows?

Gracias de antemano

Preguntas similare

Leer las respuestas

#1 Bernardo Campos
31/08/2005 - 22:47 | Informe spam
Carlos, porqué no intentas hacerlo asi:

dim ex as object
dim libro as object

ex = CreateObject("Excel.Application")
ex.visible = true
libro = ex.workbooks.add("c:\Archivo.xls")


Espero que te ayude...


Bernardo

Sta Cruz, Bol.

"Carlos Durán Urenda" escribió:

Saludos a todos

A ver si me pueden orientar
Estoy utilizando la funcion Shell para abrir un archivo de Excel, esto
debido a que la aplicacion que estoy desarrollando debe correr en
ordenadores con diferentes versiones de excel, por lo cual decidí abrirlo
por medio de Shell y no utilizar referencias a librerias de excel

Ahora bien, cualquier intento por abrir Excel me resulta en un error de
Archivo no encontrado, sin embargo si el comando lo pongo en la ventana de
Ejecutar (de Windows) lo abre perfectamente

He intentando abrir unicamente excel Shell("EXCEL.EXE")
Abrir el archivo ...
Shell("C:\Archivo.xls")
Abrir el archivo con excel Shell("EXCEL.EXE
C:\Archivo.xls")

he visto la ayuda y seguido todos las instrucciones y comentarios indicados
ahí, pero nada

sin embargo con otras aplicaciones lo hace perfectamente com con el NotePad
y MSPaint

El equipo que tengo tiene Windos XP Pro SP2, Excel XP (2002), Visual Studio
Pro 2003
los permisos que tengo son administrativos

y como les mensiono, los comandos que he intentado funcionand perfectamente
en la ventana de Ejecutar... de windows.

Alguien sabe si el problema puede estar relacionado con el Service Pack 2 de
Windows?

Gracias de antemano



Respuesta Responder a este mensaje
#2 Carlos Durán Urenda
01/09/2005 - 15:48 | Informe spam
Gracias Bernardo, efectivamente fue el camino que tomé

Al parecer el problema se deriba de uno de los parches de seguridad del
Windows, que corrige la posibilidad de ejecutar codigos remotamente por
medio del shell

solo para completar el codigo, y si alguien le interesa, pueden ejecutarse
las macros automaticas de la siguiente manera

dim ex as object
dim libro as object

ex = CreateObject("Excel.Application")
ex.visible = true
ex.Workbooks.Open(Archivo)
wx.App.ActiveWorkbook.RunAutomacros(1) ' el "1" equivale a la constante
xlAtuoRun


Saludos

"Bernardo Campos" escribió en el
mensaje news:
Carlos, porqué no intentas hacerlo asi:

dim ex as object
dim libro as object

ex = CreateObject("Excel.Application")
ex.visible = true
libro = ex.workbooks.add("c:\Archivo.xls")


Espero que te ayude...


Bernardo

Sta Cruz, Bol.

"Carlos Durán Urenda" escribió:

Saludos a todos

A ver si me pueden orientar
Estoy utilizando la funcion Shell para abrir un archivo de Excel, esto
debido a que la aplicacion que estoy desarrollando debe correr en
ordenadores con diferentes versiones de excel, por lo cual decidí abrirlo
por medio de Shell y no utilizar referencias a librerias de excel

Ahora bien, cualquier intento por abrir Excel me resulta en un error de
Archivo no encontrado, sin embargo si el comando lo pongo en la ventana
de
Ejecutar (de Windows) lo abre perfectamente

He intentando abrir unicamente excel Shell("EXCEL.EXE")
Abrir el archivo ...
Shell("C:\Archivo.xls")
Abrir el archivo con excel Shell("EXCEL.EXE
C:\Archivo.xls")

he visto la ayuda y seguido todos las instrucciones y comentarios
indicados
ahí, pero nada

sin embargo con otras aplicaciones lo hace perfectamente com con el
NotePad
y MSPaint

El equipo que tengo tiene Windos XP Pro SP2, Excel XP (2002), Visual
Studio
Pro 2003
los permisos que tengo son administrativos

y como les mensiono, los comandos que he intentado funcionand
perfectamente
en la ventana de Ejecutar... de windows.

Alguien sabe si el problema puede estar relacionado con el Service Pack 2
de
Windows?

Gracias de antemano



email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida