[컴터] 여러 엑셀 파일(file)의 데이터를 하나의 시트(Sheet) 로 합치기

여러 엑셀 파일의 데이터를 하나의 Sheet 로 합치기
----------------------------------------------
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:="Excel Files(*.csv),*.csv", Title:="파일선택", MultiSelect:=True) '여러개 파일이 선택가능하도록 multiselect속성을 '참'으로 한다
   Set sht = Worksheets("Data") ' "Data" 시트로 가져오기 위함
  
    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