VBA/makro; import all files within a directory in excel

[Fientje]

I am new to this forum. I hope someone can help me:
I want to write a VBA or makro to establish the following:
I've got a directory 'xxx' with a number of files in it
I want to import those in excel (I chose within other for .xml, but than have to change it to all files) the columns are separated by :
In the next row beneath the imported file n, the file n+1 should be imported, repeated till all the files within directory 'xxx' have been imported in the excel file in column A.

Thanks in advance for your help!

 

[venkat1926]

from my library I am sending this macro. study each statement and you may have to modify to suit you.

Sub project()
'this macro is taken from various pages of web and modified to suit the project
 
   Application.ScreenUpdating = False
   Application.AskToUpdateLinks = False
   Application.DisplayAlerts = False
   Application.Calculation = xlCalculationManual
 
'   Dim path As Variant
    Dim excelfile As Variant
    With ThisWorkbook.Worksheets("Peer Review File Upload")
    path = .Range("B6")
    End With
     ChDir path
    excelfile = Dir("*.xlsx")
    Do While excelfile <> ""
        Workbooks.Open Filename:=path & excelfile
          source_name = Left(excelfile, Len(excelfile) - 5)
      'Debug.Print source_name
Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Application.AskToUpdateLinks = True
    'Application.Calculation = xlCalculationAutomatic
     MsgBox "projet over"
End sub