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
 

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

Preguntas similares