Problema Excel (status Urgente)

02/03/2006 - 15:25 por Pancho | Informe spam
Tengo el siguiente codigo

Dim XLSBook As Object
Dim s As Excel.Workbook
'Set XLSApp = CreateObject("Excel.Workbook")
Set s = Workbooks.Open(Application.Workbooks("form.xls").Path &
"\CoAsaturno2.xls")

este codigo me abre la aplicacion CoAsaturno2.xls, que se encuentra
en el mismo directorio del archivo excel que lo llama...

Y necesito abrir una macro de s (= CoAsaturno2.xls)
y el codigo que estoy utilizando y que me da error es el siguiente

s.Application.Run "Macro3"

pero me dice que la Macro3 no la encuentra

Por favor, alguien sabe como poder solucionar este problema

gracias

Preguntas similare

Leer las respuestas

#1 big
02/03/2006 - 20:02 | Informe spam
Comprueba que el nombre y el camino al fichero son correctos.



"Pancho" escribió en el mensaje
news:
Tengo el siguiente codigo

Dim XLSBook As Object
Dim s As Excel.Workbook
'Set XLSApp = CreateObject("Excel.Workbook")
Set s = Workbooks.Open(Application.Workbooks("form.xls").Path &
"\CoAsaturno2.xls")

este codigo me abre la aplicacion CoAsaturno2.xls, que se encuentra
en el mismo directorio del archivo excel que lo llama...

Y necesito abrir una macro de s (= CoAsaturno2.xls)
y el codigo que estoy utilizando y que me da error es el siguiente

s.Application.Run "Macro3"

pero me dice que la Macro3 no la encuentra

Por favor, alguien sabe como poder solucionar este problema

gracias

Respuesta Responder a este mensaje
#2 Pancho
02/03/2006 - 20:06 | Informe spam
si, son los correctos...
Respuesta Responder a este mensaje
#3 big
02/03/2006 - 21:05 | Informe spam
compruebalo, Pon un msgbox que te diga el path completo.


"Pancho" escribió en el mensaje
news:
si, son los correctos...

Respuesta Responder a este mensaje
#4 Pancho
02/03/2006 - 21:08 | Informe spam
si...
de hecho abre el documento, pero al momento de ejecutar la matriz, se
cae
¿porque será?
Respuesta Responder a este mensaje
#5 Héctor Miguel
02/03/2006 - 21:53 | Informe spam
hola, Pancho !

.. el siguiente codigo
Dim XLSBook As Object
Dim s As Excel.Workbook
'Set XLSApp = CreateObject("Excel.Workbook")
Set s = Workbooks.Open(Application.Workbooks("form.xls").Path & "\CoAsaturno2.xls")
... abre... CoAsaturno2.xls, que se encuentra en el mismo directorio del archivo excel que lo llama...
... necesito abrir una macro de s (= CoAsaturno2.xls) y el codigo que estoy utilizando... me da error
es el siguiente: s.Application.Run "Macro3"
pero me dice que la Macro3 no la encuentra...



-> si el codigo lo estas ejecutando desde otro libro de excel...

1) no es necesario definir/asignar/... variables de tipo 'objeto' NI usar instrucciones del tipo 'createobject' ;)
[simplemente] usa instrucciones del tipo:
Workbooks.Open ThisWorkbook.Path & "\CoAsaturno2.xls"

2) con respecto de la instruccion que estas usando ->Application.Run<- [generalmente]...
- se utiliza para llamar/ejecutar procedimientos que se encuentran en un libro ->distinto<- del libro 'activo'
- es necesario proveer el nombre del libro del cual se necesita ejecutar algun procedimiento [sub o function] [p.e.]...
-> una vez que se ha abierto el 'nuevo/otro' libro, y puesto que el codigo que se esta ejecutando es del libro que lo abre...
-> prueba con una instruccion +/- como la siguiente: -> Application.Run "CoAsaturno2.xls!Macro3"

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida