Macro que no detecte libros ocultos en una carpeta
Buen día
Tengo una macro para que abra los libros de una carpeta, pero necesito modificarla para que detecte los libros que están ocultos y no los abra.
Como puedo hacer esto.
Gracias
1 Respuesta
Respuesta de Dante Amor
1
Con la siguiente macro detecta los archivos que están ocultos y no los abre.
Revisa las instrucciones y trata de adaptarla a tu macro.
Sub ArchivosOcultos()
'Por.Dante Amor
Ruta = "c:\trabajo\"
Set carpeta = CreateObject("Scripting.FileSystemObject").GetFolder(Ruta).Files
'
For Each archivo In carpeta
If InStr(1, archivo.Name, ".xls") > 0 Then
n = archivo.Name
x = archivo.Attributes
If archivo.Attributes <> 34 Then
Workbooks.Open Ruta & archivo.Name
End If
End If
Next
End SubSi tienes dudas de como adaptarlo, pon tu macro para ver cómo la tienes y adaptar el código.
Utiliza lo siguiente para conocer si un archivo está oculto:
Sub PropiedadesDeArchivo()
'Por.Dante Amor
Ruta = "c:\trabajo\"
arch = "1a.xlsx"
Set prop = CreateObject("Scripting.FileSystemObject").GetFile(Ruta & arch)
'
If prop.Attributes = 34 Then
MsgBox "El archivo está oculto"
Else
Workbooks.Open Ruta & arch
End If
End SubSaludos.Dante Amor
