Combining several .xls files from a folder

[bigdawg]

I am attempting to merge several production support logs in .xls format into 1 spreadsheet.

All of the files are in the same folder C:\support\
All files have the same header information in range A1 to V6

I want to combine the data from all of the spreadsheets (minus the heading info) into 1 spreadsheet.

It's gotta be simple - right?

Thanks in advance for the help[/list]

 

[CraigM]

Try this code out. Paste it into a new workbook, and run it. It will paste all the data from the first sheet of each workbook in your folder (minus headers) into the first sheet of the new workbook. It may not be lightning quick, but it should work. Make sure all of the workbooks to be copied are closed. By the way, There won't be more than 65,536 rows of data in total, will there?

Sub CollectAll()
On Error GoTo Exit_Line
Application.ScreenUpdating = False
Application.EnableEvents = False

Dim wbkTempBook As Workbook
Dim shtPasteSheet As Worksheet, shtTemp As Worksheet
Dim lngMaxRow As Long, lngCopyRows As Long, lngPasteRow As Long, lngIgnoreRows As Long

lngPasteRow = 7 'Row to start copying to
lngIgnoreRows = 6 'Number of Rows to ignore

Set shtPasteSheet = ThisWorkbook.Sheets(1)

sFolderPath = "C:\support\"

sTempName = Dir(sFolderPath & "\*xls")
Do While sTempName <> ""
    Set wbkTempBook = Workbooks.Open(sFolderPath & "\" & sTempName, True, True)
    Set shtTemp = wbkTempBook.Sheets(1)
    lngMaxRow = shtTemp.Cells.SpecialCells(xlCellTypeLastCell).Row
    lngCopyRows = lngMaxRow - lngIgnoreRows
    If lngMaxRow > lngIgnoreRows Then
        shtTemp.Range("A" & lngIgnoreRows + 1 & ":V" & lngMaxRow).Copy _
            shtPasteSheet.Range("A" & lngPasteRow & ":V" & lngPasteRow + lngCopyRows - 1)
        lngPasteRow = lngPasteRow + lngCopyRows
    End If
    wbkTempBook.Close (False)
    sTempName = Dir
Loop

Exit_Line:
Application.EnableEvents = True
Application.ScreenUpdating = True
If Err.Number <> 0 Then MsgBox Err.Description
End Sub

 

[bigdawg]

I will give this a go and I do appreciate the help. Most of the files contain 20-25 rows of data - so the 62k limit is safe.