How Can I Merge Multiple .CSV Files Into One?

[pcguy]

I have nearly 50 .csv files that each have one column of data (in column A) and no column headers.

Is there a simple way to merge them all into one big .csv file?

I've tried some online utilities, but I haven't been able to get them to work properly.

I just want to create a REALLY long column A that aggregates the column A's from all of the 50 .csv's into one .csv.

Thanks for your time.

 

[LockeGarmin]

Put all of the CSV files into a folder and change the 'FolderPath' variable to that folder path.

Option Explicit

Sub CombineCsvs()


Dim FolderPath As String
Dim FileName As String
Dim wbResult As Workbook
Dim WB As Workbook


  FolderPath = "C:\TempFolder"
  If FolderPath Like "*[!\/]" Then
    FolderPath = FolderPath & "/"
  End If
  
  FileName = Dir(FolderPath & "*.csv")
  
  Set wbResult = Workbooks.Add
  
  Application.DisplayAlerts = False
  Application.ScreenUpdating = False
  
  Do While FileName <> vbNullString
    Set WB = Workbooks.Open(FolderPath & FileName)
    WB.ActiveSheet.UsedRange.Copy wbResult.ActiveSheet.UsedRange.Rows(wbResult.ActiveSheet.UsedRange.Rows.Count).Offset(1).Resize(1)
    WB.Close False
    FileName = Dir()
  Loop
  
  wbResult.ActiveSheet.Rows(1).EntireRow.Delete
  
  Application.ScreenUpdating = True
  Application.DisplayAlerts = True
  
End Sub

 

[pcguy]

Put all of the CSV files into a folder and change the 'FolderPath' variable to that folder path.

Option Explicit

Sub CombineCsvs()


Dim FolderPath As String
Dim FileName As String
Dim wbResult As Workbook
Dim WB As Workbook


  FolderPath = "C:\TempFolder"
  If FolderPath Like "*[!\/]" Then
    FolderPath = FolderPath & "/"
  End If
  
  FileName = Dir(FolderPath & "*.csv")
  
  Set wbResult = Workbooks.Add
  
  Application.DisplayAlerts = False
  Application.ScreenUpdating = False
  
  Do While FileName <> vbNullString
    Set WB = Workbooks.Open(FolderPath & FileName)
    WB.ActiveSheet.UsedRange.Copy wbResult.ActiveSheet.UsedRange.Rows(wbResult.ActiveSheet.UsedRange.Rows.Count).Offset(1).Resize(1)
    WB.Close False
    FileName = Dir()
  Loop
  
  wbResult.ActiveSheet.Rows(1).EntireRow.Delete
  
  Application.ScreenUpdating = True
  Application.DisplayAlerts = True
  
End Sub

Is that a .vbs script? Also, where does it dump the file it creates?

 

[pcguy]

I think that's a macro. I will have to look up how to create and run those.

 

[LockeGarmin]

Yep, it's an excel macro. You can open excel, hold down the 'Alt' key, press F11, I, M, release 'Alt' and paste the code into the window that appears. F5 to run.