<15-2 폴더 내, 모든 텍스트 파일 가져오기>

<15-2 폴더 내, 모든 텍스트 파일 가져오기> 
Dim c As Range, FilePath As String, FileName As String 
   Dim data As String 
   Dim i As Integer, FileNum As Integer 
   Dim arr 
    
   Sheet1.Cells.Clear 
   Set c = Sheet1.Range("a1")      
   '폴더 선택 & 경로 
   With Application.FileDialog(msoFileDialogFolderPicker) 
      .Show 
      If .SelectedItems.Count = 0 Then 
         Exit Sub 
      Else 
         FilePath = .SelectedItems(1) & "\" 
      End If 
   End With    
   '폴더 내,텍스트 파일 존재 여부 
   FileName = Dir(FilePath & "*.txt") 
   If FileName = "" Then 
      MsgBox "폴더 내, 텍스트 파일이 없습니다" 
      Exit Sub 
   End If    
   Do While FileName <> "" 
         FileNum = FreeFile 
         Open FilePath & FileName For Input As #FileNum 
          
         Do Until EOF(FileNum) 
            Line Input #FileNum, data 
            arr = Split(data, ",")             
            If arr(0) <> "구분1" Then 
               c.Offset(i).Resize(1, UBound(arr) + 1) = arr 
               i = i + 1 
            End If 
         Loop 
          
         Close #FileNum 
         FileName = Dir 
   Loop    
   c.CurrentRegion.Columns.AutoFit

출처: https://lesserpainbetterlife.tistory.com/812 [전진수블로그 ✝ = ♥:티스토리]