<15-1 특정 경로의 텍스트 파일 가져오기>

<15-1 특정 경로의 텍스트 파일 가져오기> 
   Dim c As Range 
   Dim FilePath As String 
   Dim data As String 
   Dim i As Integer 
   Dim arr 
    
   Set c = Sheet1.Range("a1") 
   c.CurrentRegion.Clear 
    
   FilePath = Environ("userprofile") & "\Desktop\VBA_109\학자금상환현황.txt" 
   Open FilePath For Input As #1 
    
   Do Until EOF(1) 
      Line Input #1, data 
       
      arr = Split(data, ",") 
      c.Offset(i).Resize(1, UBound(arr) + 1) = arr 
      i = i + 1 
   Loop 
    
   Close #1 

   c.CurrentRegion.Columns.AutoFit

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