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.
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
