Edición de todos los libros de una carpeta

19/07/2006 - 11:38 por Emilio | Informe spam

Hola a tod@s

Me veo obligado a editar todos los libros reemplazando una palabra por otra,
en principio lo tengo resuelto, recorro sin problema libro tras libro y
mediante la siguiente rutina lo hago, peeero, tenía que haber un pero ;-) si
el libro a editar tiene un procedimiento que habra un formulario de arranque
se me queda frito esperando..., ¿puedo evitarlo de algún modo?, también me
ocurre con los que tienen vinculos, pero al menos en esos puedo aceptar o
cancelar y continua sin problemas.

Gracias anticipadas

Sub CambiaServidor(strRuta As String)
Dim Hoja As Worksheet, _
Libro As Workbook

' recorro el libro reemplazando en todas las hojas el nombre del servidor
viejo por el nuevo
Set Libro = Workbooks.Open(strRuta)
Libro.SaveAs strRuta & ".bak"
For Each Hoja In Libro.Worksheets
Cells.Replace What:="uno", Replacement:="otro", LookAt:=xlPart
Next
Libro.Close SaveChanges:=True
End Sub

Saludos a tod@s
Emilio
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.com/emilio

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Juan M

19/07/2006 - 12:41 | Informe spam

Hola Emilio

"Emilio" <miliuco56 ARROBA hotmail.com> escribió en el mensaje
news:%

Hola a

Me veo obligado a editar todos los libros reemplazando una palabra por
otra,
en principio lo tengo resuelto, recorro sin problema libro tras libro y
mediante la siguiente rutina lo hago, peeero, tenía que haber un pero ;-)
si
el libro a editar tiene un procedimiento que habra un formulario de
arranque
se me queda frito esperando..., ¿puedo evitarlo de algún modo?, también me
ocurre con los que tienen vinculos, pero al menos en esos puedo aceptar o
cancelar y continua sin problemas.

Antes de abrir el libro añade las lineas siguientes para evitar la ejecucion
de codigo y que no pregunte por los vinculos
revisa la opcion puede que te interese actualizar o no.

Application.EnableEvents = False
Set Libro = Workbooks.Open(Filename:=ruta, UpdateLinks:=False)
Application.EnableEvents = True

un saludo
juan

Responder a este mensaje

#2 Emilio

19/07/2006 - 12:54 | Informe spam

Muchas gracias Juan M. va como la seda :-))

Saludos a
Emilio
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.com/emilio

"Juan M" escribió en el mensaje
news:Ol3F2$

Hola Emilio

"Emilio" <miliuco56 ARROBA hotmail.com> escribió en el mensaje
news:%
> Hola a
>
> Me veo obligado a editar todos los libros reemplazando una palabra por
> otra,
> en principio lo tengo resuelto, recorro sin problema libro tras libro y
> mediante la siguiente rutina lo hago, peeero, tenía que haber un pero

;-)

> si
> el libro a editar tiene un procedimiento que habra un formulario de
> arranque
> se me queda frito esperando..., ¿puedo evitarlo de algún modo?, también

> ocurre con los que tienen vinculos, pero al menos en esos puedo aceptar

> cancelar y continua sin problemas.

Antes de abrir el libro añade las lineas siguientes para evitar la

ejecucion

de codigo y que no pregunte por los vinculos
revisa la opcion puede que te interese actualizar o no.

Application.EnableEvents = False
Set Libro = Workbooks.Open(Filename:=ruta, UpdateLinks:=False)
Application.EnableEvents = True

un saludo
juan

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida