Cómo extraer los valores de una determinada celda (como C5) de todas las celdas de Excel en una carpeta y guardarla como otro ExcelL

Cree un nuevo EXCEL, ejecute este código y seleccione los archivos que se fusionarán

Sub CombineWorkbooksrange()

Dim FilesToOpen, ft

Dim x como entero

Application.ScreenUpdating = False

En caso de error GoTo err

FilesToOpen = Application.GetOpenFilename("Archivo de Excel (*.xls & *.xla & *.xlt *.xlsx *.xlsb),*.xls;*.xla;*.xlt;*.xlsx;*.xlsb", MultiSelect:=True, Title:="Archivos a fusionar" )

Si TypeName(FilesToOpen) = "booleano" Entonces

MsgBox "No hay archivo seleccionado"

Ir a err

Finalizar si

x = 1

Mientras x - 1 < UBound(FilesToOpen)

Establecer wk = Workbooks.Open(Filename:=FilesToOpen(x))

Para i = 1 Para wk.Sheets.Count

Si wk.Sheets(i).Name = "1" Entonces

Establezca xlra = wk.Sheets ( "1").[C5]

Else

Set xlra = wk.Sheets(i).[C5]

End If 'Nota, dentro comillas El 1 es el mismo nombre de la hoja de trabajo que desea. Si no hay ningún requisito para el nombre de la hoja de trabajo, continúe y tome el valor de la celda. Ahora es C5

Sheet1.Range("a65500").End. (xlUp) .Offset(1, 0) = xlra

Siguiente

x = x + 1

semana.Cerrar

Wend

MsgBox "¡Fusión completada exitosamente!"

err:

End Sub