title: Reading all files in Folder and showing content in Excel
body: <p>I want to show 7000 files content that are in a folder and in excel?</p>
  
  <p>I have a found a piece of code that helped me but its only reading one by one. However, I want to read 7000 all in one go. Please help. </p>
  
  <pre><code> Option Explicit
   Sub Import_TXT_File()
   Dim strg As Variant
   Dim EntireLine As String
   Dim FName As String
   Dim i As String
  
   Application.ScreenUpdating = False
   FName = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Choose File to Import")
   Open FName For Input Access Read As #1
   i = 1
   While Not EOF(1)
   Line Input #1, EntireLine
   strg = EntireLine
   'Change "Sheet1" to relevant Sheet Name
   'Change "A" to the relevant Column Name
   Sheets("Sheet1").Range("A" &amp; i).Value = strg
   i = i + 1
   Wend
   EndMacro:
   On Error GoTo 0
   Application.ScreenUpdating = True
   Close #1
   End Sub
  </code></pre>