Imprimir página | Cerrar ventana

Aplicar macro a todos los archivos de ruta

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Excel
Descripción del foro: Foro de Excel y VBA de Excel
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84700
Fecha de impresión: 19/Septiembre/2019 a las 07:09


Tema: Aplicar macro a todos los archivos de ruta
Publicado por: jfca283
Asunto: Aplicar macro a todos los archivos de ruta
Fecha de publicación: 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





Respuestas:
Publicado por: lbauluz
Fecha de publicación: 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


-------------
Estos son mis principios. Si no le gustan... tengo otros


Publicado por: jfca283
Fecha de publicación: 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.




Imprimir página | Cerrar ventana