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))
p>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