Red de conocimiento de recetas - Industria de la restauración - Ayuda, utilice VBA para realizar copias automáticas por lotes y modificar archivos guardados.

Ayuda, utilice VBA para realizar copias automáticas por lotes y modificar archivos guardados.

El código está en un módulo de archivo o pegue el código siguiente en un módulo.

SubWriteData()

wbpath = Este libro de trabajo. Caminos y caminos. "\"

Dirección del archivo de plantilla = ruta de WB; "Archivo de plantilla"; "\"

a la carpeta = ruta de WB; "

Mi_archivo = Dir (dirección del archivo de plantilla)

Cuando mi archivo lt gt""

Libro de ejercicios. Abrir nombre de archivo: = dirección del archivo de plantilla; Mis archivos

Usar este libro de trabajo

data _ fila = rango de hoja activa ("A" y filas. recuento). final (xlArriba). fila

¿Para i = 2 a data_row

? Si Val(.ActiveSheet.Cells(i, 4)) = Val(Split(ActiveWorkbook. Name, "")(0)) entonces

ActiveWorkbook. hoja activa rango (" F2 ") = = celdas de hoja activa (I, 3). valor

libro de trabajo activo . saveasfilename := a la carpeta rango activo ( " B " & I ) y amplificador ".xlsx "

ActiveWorkbook. ¿Cerrar falso

? Terminará si...

Siguiente I

Termina con...

Mi archivo = directorio

Anillo

Conector final