Source : http://www.oaultimate.com/office/merge-multiple-excel-files-into-a-single-spreadsheet-ms-excel-2007.html
Sub mergeExcel()
    Dim bookList As Workbook
    Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object
        Application.ScreenUpdating = False
        Set mergeObj = CreateObject("Scripting.FileSystemObject")
 
        'change folder path of excel files here
        Set dirObj = mergeObj.Getfolder("D:\change\to\excel\files\path\here")
        Set filesObj = dirObj.Files
        For Each everyObj In filesObj
            Set bookList = Workbooks.Open(everyObj)
     
            Range("A2:F27" & Range("A65536").End(xlUp).Row).Copy
            ThisWorkbook.Worksheets(1).Activate


            Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
            Application.CutCopyMode = False
            bookList.Close
        Next
End Sub



'Computer' 카테고리의 다른 글

서시(서C)  (0) 2014.05.25
Javascript Variable Scope : Closure  (0) 2014.03.25
ubuntu에서 PHP 사용시 curl이 없을 경우  (0) 2014.02.25
[VIM] Back Reference  (0) 2014.02.06
문제 다 틀리고 방1등...?!  (0) 2014.01.29