title: excel vba macro reading text files, one line in separate cell
body: <p>Text file looks like below</p>
  
  <p>a,   John,   "2014-2", ...</p>
  
  <p>d,   Will,   "2016-7" , ...</p>
  
  <p>I want to put <strong>element a in row 1, col 1</strong>, <strong>John in row 1 col 2</strong>, <strong>d in cell row 2, col 1</strong>, etc. Please help. Thanks. below are the code I have</p>
  
  <pre><code>Sub Importdata()
  Open "C:\Users\apple\desktop\12345.txt" For Input As #1
  r = 0
    Do Until EOF(1)
      Line Input #1, Data
      ActiveCell.Offset(r, 0) = Data
      r = r + 1
    Loop
  Close #1
  End Sub
  </code></pre>