VBA 파일합치기-파일에서 첫번째 시트를 하나의 파일로 합침

출처 : http://blog.daum.net/_blog/BlogTypeView.do?blogid=0GRcb&articleno=8020016

Sub 파일쉬트합치기()
 
 
Dim Files As Variant
Dim fileX As Variant
Dim sht As Worksheet
Dim wb As Workbook
Dim rngTarget As Range
 
Files = Application.GetOpenFilename(filefilter:="total Files(*.*),*.*", Title:="파일선택", MultiSelect:=True) '여러개 파일이 선택가능하도록 multiselect속성을 '참'으로 한다
Set sht = Worksheets("Sheet1") ' "정리" 시트로 가져오기 위함
 
For Each fileX In Files
 
Set wb = Workbooks.Open(fileX)
Set rngTarget = sht.Range("a65536").End(xlUp).Offset(1, 0)
 
wb.Worksheets(1).UsedRange.Copy rngTarget '선택한 개별파일들의 usedrange를 복사해서 타겟 시트인 '정리'시트에 붙인다
 
Application.CutCopyMode = False
wb.Close savechanges:=False
 
Next fileX
 
 
 
End Sub