Traducción del programa VBA

Atenuar como rango, c como rango, mi ruta $, mi archivo $, WB como libro de trabajo, sh como hoja de trabajo 'Definir objetos, definir respectivamente celdas, direcciones, archivos y libros de trabajo !

Set sh = Sheets("1")'Set hoja 1, que significa HOJAS1.

Establecer rng = sh. rango(" A2:A " & rango de chelines(" A65536 "). Fin (XLUP). Seleccione una fila que no esté vacía.

Aplicar. La pantalla se actualiza a falso.

Aplicación. Área "displayalerts = false" actualizada a false

myPath = ThisWorkbook. "\" ruta en el archivo actual

my file = Dir( my path & "*. xls ")'Listar archivos EXCEL.

Cuando mi archivo & lt& gt"' ejecuta el cuerpo del bucle.

Si mi archivo & lt& gt este libro de trabajo La condición de "nombre seguido". se basa en el nombre del archivo

Set c = rng.find (split (myfile, " ") (0),, xlwhole)' p>

Si no, entonces c no es nada<. /p>

set WB = GetObject(mi ruta y mi archivo)

Usar wb(1)

.range("E2").resize(.range ("a65536").end(xlup).row-1) = C. offset(,1)

si d.exists(c.offset(,1).value) entonces.range. ("G2").resize(.range("a65536").end(xlup).row- 1) = d (c.offset(,.

Termina en

Windows(wb.name).visible=True

wb.Guardar como nombre de archivo:=ThisWorkbook."\"&c.Offset(,1)."_"&"MyFile".ActiveWorkbook "Cerrar. " cierra el libro

Finalizar si...

Finalizar si...

miArchivo = Dir

Timbre<. /p >

Actualización del área "DisplayAlerts = True" de la aplicación

La pantalla "application.screen update = true" es mutable

MsgBox "Complete"

Fin conector