Traducción del programa VBA

Sub Macro1()

Dim rng Como rango, c Como rango, myPath$, myFile$, wb Como libro de trabajo, sh Como hoja de trabajo 'Definir objetos, definir respectivamente celdas, dirección, ¡archivo y libro de trabajo!

Set sh = Sheets("1") 'Establecer hoja de trabajo 1, SHEETS1

Set rng = sh.Range("A2:A " amp; sh.Range ("A65536").End(xlUp).Row) 'SHEET1 selecciona filas que no están en blanco

Application.ScreenUpdating = False 'ScreenUpdating es False

Application .DisplayAlerts = False 'Región la actualización es falsa

myPath = ThisWorkbook.Path amp; "\" 'Ruta del archivo actual

myFile = Dir(myPath amp; "*.xls" ) 'Listar archivos EXCEL

Do While myFile lt;gt; " 'Cuerpo del bucle de ejecución

If myFile lt;gt; ThisWorkbook.Name Then 'La condición es que el nombre del archivo sea estándar

Set c = rng.Find(Split(myFile, ".")(0), , , xlWhole) 'FINDFind

Si no c no es nada, entonces

Establecer wb = GetObject(myPath & myFile)

Con wb.Sheets(1)

.Range("e2").Resize(.Range("A65536"). End( xlUp).Row - 1) = c.Offset(, 1).Value 'Escribe el contenido encontrado en la columna E

Si d.Exists(c.Offset(, 1).Value) Entonces. ("g2").Resize(.Range("A65536").End(xlUp).Row - 1) = d(c.Offset(, 1).Value) 'Longitud del archivo

Terminar con

Windows(wb.Name).Visible = True

wb.SaveAs Filename:=ThisWorkbook.Path amp "\" c.Offset(, 1).Value amp; ; "_" amp; myFile 'Guardar el archivo

ActiveWorkbook.Close 'Cerrar el libro

Finalizar si

Finalizar si

miArchivo = Dir

p> Bucle

Application.DisplayAlerts = True 'Actualización de región

Application.ScreenUpdating = True 'Variable de pantalla

MsgBox "Completo"

Fin Sub