Copy columns from multiple workbooks and paste into one worksheet

Re: I need to copy data from every single file I choose:
So you plan on choosing 200 files, one file at the time?
Would it not be easier to copy all the files to be copied from into a temp folder, like "C:\Temp" and just cycle through all of these without opening a window for each file so you can choose?
When you say "specific column", does that mean always the same column, like Column D or a Column with a particular Header?.

Here is an example
This should copy all 4th Columns From All Workbooks into Master providing that all, incl Workbook with code ("Master"?) are saved in one and the same Folder.
Change references, like Sheet names, as required.

Sub Get_Columns()
    Dim sPath As String
    Dim sFil As String
    Dim owb As Workbook
    Dim twb As Workbook


    With Application
        .Calculation = xlCalculationManual
        .EnableEvents = False
        .ScreenUpdating = False
    End With


    Set twb = ThisWorkbook
    sPath = ThisWorkbook.Path & "\"
    sFil = Dir(sPath & "*.xl*")


    Do While sFil <> "" And sFil <> twb.Name
        Set owb = Workbooks.Open(sPath & sFil)
        owb.Sheets("data").Columns(4).Copy twb.Sheets("report").Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)    '<----- Change sheet names
        owb.Close False 'Close no save
        sFil = Dir
    Loop


        With Application
        .Calculation = xlAutomatic
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub

Quote from jolivanes

Here is an example
This should copy all 4th Columns From All Workbooks into Master providing that all, incl Workbook with code ("Master"?) are saved in one and the same Folder.
Change references, like Sheet names, as required.

Code

Sub Get_Columns()
    Dim sPath As String
    Dim sFil As String
    Dim owb As Workbook
    Dim twb As Workbook


    With Application
        .Calculation = xlCalculationManual
        .EnableEvents = False
        .ScreenUpdating = False
    End With


    Set twb = ThisWorkbook
    sPath = ThisWorkbook.Path & "\"
    sFil = Dir(sPath & "*.xl*")


    Do While sFil <> "" And sFil <> twb.Name
        Set owb = Workbooks.Open(sPath & sFil)
        owb.Sheets("data").Columns(4).Copy twb.Sheets("report").Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)    '<----- Change sheet names
        owb.Close False 'Close no save
        sFil = Dir
    Loop


        With Application
        .Calculation = xlAutomatic
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub

Display More

Hi,

When I was trying to use this in a folder with excel files named Image001, Image002 ... ect, some how only the last excel file information is getting copied, any help??

Would it be safe to assume row 1 in blank?

I tried other ways also for some reason it is not copying from all the worksheets or it is replacing the content so I see only last worksheet content , please help me here , I'm beginner

Two things.

1) This thread is just about ready for old age pension benefits.

2) Do not hijack someone else's thread. Start your own and refer to this Post if need be.

When you start your own, explain in detail what is needed and if possible at all attach a workbook so people can see what it looks like. Like Dave mentioned, an empty Row where none should be for the code to work

Thank you for reply, I haven't really hijacked anything or have an intension. My requirement is very similar so i was just refering the code. I'm new to this so I didn't know how it works . Sorry if it's an offense or to be termed as hijack. And I'll take the suggestion to start a POST.

Thanks a lot.