I think you should take a look at working with Excel automation:

Like this (code is absolutely not correct, but it gives you an idea, my VB install is damaged :-( ):

VB Code:
  1. Dim exc as new Excel.Application
  2. Dim Files as long, fil as long, i as long
  3.  
  4. i = 1
  5. fil = 1
  6. Files = [number_of_files]
  7.  
  8. exc.AddNew"test.xls"
  9.  
  10. for each fil in Files
  11. exc.rows(i).value = fil.data
  12. i = i + 1
  13. next

Hope this will help.