tarea programada que ejecute una macro de excel

Hola Ivan:

Pensaré en esto que me dejas Ivan.

la situación en realidad es un bloc de notas que tiene un código, ese
fichero-bloc de notas lleva la exensión (lo guardé con la extensión) .vbs y
al ejecutarlo con doble clik abre el libro de excel. Todo funciona bien
puesto que ese "Bloc de notas" .vbs consigue abrir el archivo de excel. El
codigo que tiene ese "bloc d notas" .vbs es este:


Dim xlApp, _
strArchivo

strArchivo = "C:\Documents and Settings\cero\Mis
documentos\Excel\abrelibro.xls"

' creo un objeto Excel
Set xlApp = CreateObject("Excel.Application")
'xlApp.Visible = True
xlApp.Visible = True

xlApp.Workbooks.Open strArchivo

xlApp.Worksheets("macrojuan").AutoArranque ' esta es la rutina a ejecutar

'xlApp.Quit

Set xlApp = Nothing



En todo esto sólo me falla pienso que ésta linea:
xlApp.Worksheets("macrojuan").AutoArranque ' esta es la rutina a ejecutar

Puesto que la macro denominada "macrojuan" del libro excel no me la ejecuta.
pero la macro esta bien. El libro Excel también esta bien y se abre desde
ese "bloc de notas" con extensión .vbs ( es un script)


Saludos, gracias
javier

"Ivan" escribió:

Hola Javier,

No me hagas mucho caso, pero por lo que creo entender, tienes un libro de
excel con una macro que abre otro libro para no se muy bien que. En
cualquier caso, y te repito que no me hagas mucho caso, pues no tengo
mucha idea, creo que no tienes que crear ningun objeto excel, ya estas en
Excel(si de todas formas he entendido mal y si tienes que crearlo (creo)
deberias declararlo algo asi: "Dim xlApp as Excel.Application"). Si yo
estoy en lo cierto deberia valerte con algo asi como:

Workbooks.Open "C:Documents and Settings\Misdocumentos\Excelabrelibro.xls"
ActiveWorkbook.RunAutoMacros xlAutoOpen

De todas formas no me hagas mucho caso (de nuevo), e indaga un poco por
esta otra ruta.

Espero haberte servido de alguna ayuda.

Un saludo y hasta pronto.
Ivan

Ok

Graba una llamada a tu rutina desde el modulo de thisworkbook

Private Sub Workbook_Open()
call "MIRUTINA"
End Sub


Asi me funciona pero me traba ese error que mencionas

Saludos

Revisa estos links para referencias:

http://support.microsoft.com/kb/198571/es



con este codigo me funciono sin errores :)

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = false / true Dependiendo si la quierers ver o no
objExcel.Workbooks.open "c:\mia.xls"
objExcel.run "mias"
objExcel.quit

Muchas gracias, Francisco. Me ha funcionado muy bien.


Tu dices:

La tarea programada lo haces desde el scheduler de windows :)

Supongo, que aquí te refieres a que debo ir a:

Inicio, Todos los programas, Accesorios, Herramientas del sistema y, a
continuación, clic en Tareas programadas.

Esto sí lo entiendo mejor. Creo que lo sé hacer. La palabra "scheduler"
para mí es chino.


Un saludo y gracias.
javier.

"Francisco MTY" escribió:

Revisa estos links para referencias:

http://support.microsoft.com/kb/198571/es



con este codigo me funciono sin errores :)

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = false / true Dependiendo si la quierers ver o no
objExcel.Workbooks.open "c:\mia.xls"
objExcel.run "mias"
objExcel.quit

Hola Javier,

Como te comentaba, efectivamente no me habia enterado de nada. Lo del
block de notas parece interesante. De todas formas, y a riesgo de meter la
pata otra vez, ¿le has echadfo un vistazo a lo de RunAutoMacros?

De nuevo disculpas por la intromision.
Un saludo y hasta pronto
Ivan