** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - Aplicar macro a todos los archivos de ruta
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoAplicar macro a todos los archivos de ruta

 Responder Responder
Autor
Mensaje
jfca283 Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 05/Junio/2008
Localización: Chile
Estado: Sin conexión
Puntos: 244
Enlace directo a este mensaje Tema: Aplicar macro a todos los archivos de ruta
    Enviado: 11/Septiembre/2019 a las 02:25
Buenas,
Mi deseo es aplicar un código, que funciona, en todos los excel de una ruta.
El código que adjunto sí logra abrir y, al parecer, hacer lo que quiero.
El problema es que no guarda los archivos. ¿Me podrían decir qué línea está mal?
De ante mano, gracias.
Sub stantial()
   Dim myfiles, wb As Workbook, ws As Worksheet
   myfiles = Dir(ThisWorkbook.Path & "\*.xlsx")

   Do While Len(myfiles) <> 0
       'Debug.Print myfiles
       '~~> open as readonly since you don't want to alter the original
       Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & myfiles, , True)
       '~~> Do your stuff here (edit, copy, sort etc...)


'mi código
'Acá estoy intentando reemplazar el archivo abierto. No funciona.
    Application.DisplayAlerts = False    
    ActiveWorkbook.Save
    Application.DisplayAlerts = True
    
    
       wb.Close False
       Set wb = Nothing '~~> clean up
       myfiles = Dir
   Loop
End Sub


Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: La Gloria
Estado: Sin conexión
Puntos: 3849
Enlace directo a este mensaje Enviado: 11/Septiembre/2019 a las 04:34
Solo he dado un vistazo rápido, pero así a ojo, si abres el archivo de solo lectura, no va a cambiar nada.

Un saludo
El Búho es un pajarraco
Arriba
jfca283 Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 05/Junio/2008
Localización: Chile
Estado: Sin conexión
Puntos: 244
Enlace directo a este mensaje Enviado: 11/Septiembre/2019 a las 16:17
Tenías toda la razón. Debía cambiar a "False" en:
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & myfiles, , False)
Favor cerrar hilo y dar como solucionado.
Muchas gracias.

Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable