¿Cómo copiar datos en una columna a múltiples archivos .xls con el mismo formato en secuencia?

Sub mCy()

Atenuar mapp, i

Para i = 2 a 21

Establecer mapp = Workbooks.Open(WorksheetFunction .Text(i - 1, "0000") & ".xls")

Application.ThisWorkbook.Sheets(1).Range(Cells(i, 1), Cells(i, 3)) . Copiar mapp.Sheets(1).Range("E3")

mapp.Close True

Siguiente i

End Sub

Hola, hablaré de ello en detalle. Necesitas la posición de referencia exacta de la tabla. Por ejemplo, copia el contenido de las tres primeras columnas a partir de la segunda fila en la tabla especificada, guarda y cierra.

# PS

Sub mCy()

Atenuar mapp, i

Para i = 2 a 21

Establecer mapp = Libros de trabajo. Open(ThisWorkbook.Path y "\" y WorksheetFunction.Text(i - 1, "0000") & ".xls")

ThisWorkbook.Sheets(1).Cells(i, 1) .Copiar mapp.Sheets(1).Range ("E6: y6")

ThisWorkbook.Sheets(1).Cells(i, 2).Copiar mapp.Sheets(1).Range("E8 : y8")

ThisWorkbook.Sheets(1).Cells(i, 3).Copiar mapp.Sheets(1).Range("E10:i10")

mapp. Cerrar Verdadero

Siguiente i

Fin Sub