Cambiar nombre de autor de varios archivos EXCEL - VBA
Podrían apoyarme con alguna macro VBA para poder cambiar el nombre de autor de varios archivos de excel por el nombre de la empresa donde trabajo.
1 Respuesta
Respuesta de Dante Amor
2
Si tienes los archivos en una carpeta.
Cambiar en mi ejemplo "C:\trabajo\libros\" por el nombre de tu carpeta.
Si son varias carpetas, entonces realiza una ejecución por cada carpeta.
Sub Cambiar_Autor()
Dim wb As Workbook, sRuta As String, arch As Variant
sRuta = "C:\trabajo\libros\"
arch = Dir(sRuta & "*.xls*")
Do While arch <> ""
Set wb = Workbooks.Open(sRuta & arch)
wb.BuiltinDocumentProperties("Author").Value = "Dante Amor M"
wb.Close True
arch = Dir()
Loop
End Sub
