Macro que extraiga datos de varias hojas que se encuentran en varios archivo.

Realiza lo siguiente en un libro nuevo

Sigue las Instrucciones para ejecutar la macro
1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Para ejecutarla presiona F5

Sub copia_columna()
'Por.DAM
hoja = "datos"
col = "K"
Application.ScreenUpdating = False
mi = ThisWorkbook.Name
Set h1 = ThisWorkbook.Sheets("Hoja1")
archi = Dir("liba*.xls*")
j = 1
'On Error Resume Next
Do While archi <> ""
    If archi <> mi Then
        Workbooks.Open archi
        'If Err.Number = 0 Then
            Sheets(hoja).Select
            Columns(col).Copy _
            h1.Cells(1, j)
            j = j + 1
        'Else
        '    Err.Number = 0
        'End If
        Application.DisplayAlerts = False
        Workbooks(archi).Close
        Application.DisplayAlerts = True
    End If
    archi = Dir()
Loop
Application.ScreenUpdating = True
MsgBox "Proceso de copiar una columna, Terminado", vbInformation, "Por.DAM.COPIA COLUMNA"
End Sub

Saludos.DAM
Si es lo que necesitas.