title: Append data from multiple xls files into one using VBA
body: <p>I am trying to achieve the following using a VBA macro:</p>
  
  <ul>
  <li>I have multiple .xls files, all of which have just one sheet</li>
  <li>In my macro, I want to append all the data from the other files into one sheet, by appending them at the bottom of the document behind each other. I have figured out the iterating through files, but copying and appending data is what is bugging me.</li>
  </ul>
  
  <p>The code I have until now is as follows (missing parts are described within the comments)</p>
  
  <pre><code>Sub Iterate_Files()
  
  Dim Fso As Object, objFolder As Object, objSubFolder As Object
  Dim FromPath As String
  Dim FileInFolder As Object
  
  FromPath = ActiveWorkbook.Path
  Set Fso = CreateObject("Scripting.filesystemobject")
  Set objFolder = Fso.GetFolder(FromPath)
  
  For Each objSubFolder In objFolder.subfolders
      For Each FileInFolder In objSubFolder.Files
      'Copy the data from sheet one of the FileInFolder
      'to the end of sheet in this file :/
      Next FileInFolder
  Next objSubFolder
  
  End Sub
  </code></pre>