title: convert excel file to txt file (without carriage returns)
body: <p>i want to convert excel files into tab limited txt files(without carriage returns). Currently i'm using the script(found in this forum) which converts mass excel files into .txt files.</p>
  
  <p>the script is</p>
  
  <pre><code>    ' @file:    xl2tab.vbs
  ' @author:  stephen brown - sb09d@fsu.edu
  ' @date:    2009-Dec-10
  ' 
  ' @description: mass convert excel files to tab-delimited files
  '
  ' @usage:   place in top-level directory where excel files are contained and double-click.
  '           script will recursively access all subdirectories and convert each excel file to
  '           tab delimited file. All output will be in "output" folder, which retains structure
  '           of original directories
  
  Dim saveDirBase
  
  set fso = CreateObject("Scripting.FileSystemObject")
  set shell = CreateObject("WScript.Shell")
  set objExcel = CreateObject("Excel.Application")
  
  set top = fso.GetFolder(shell.CurrentDirectory)
  saveDirBase = top &amp; "\" &amp; "output"
  
  Sub TraverseFolders(path)
      set folder = fso.GetFolder(path)
  
      XL2Tab(folder)
  
      For each item in folder.SubFolders
          If item.Path &lt;&gt; saveDirBase Then
              Call TraverseFolders(item.Path)
          End If
      Next
  
      set folder = Nothing
  End Sub
  
  Sub XL2Tab(folder)
      Dim saveDir
      set files = folder.Files
  
      If folder.Name &lt;&gt; top.Name Then
          saveDir = saveDirBase &amp; "\" &amp; folder.Name
      Else
          saveDir = saveDirBase
      End If
  
      If fso.FolderExists(saveDir) = False Then
          fso.CreateFolder(saveDir)   
      End If
  
      For each file In files
          If file.Name &lt;&gt; Wscript.ScriptName Then
              objExcel.Application.DisplayAlerts = False
              Set objWorkbook = objExcel.Workbooks.open(folder.Path &amp; "\" &amp; file.Name)   
              objWorkbook.SaveAs saveDir &amp; "\" &amp; file.Name &amp; ".txt", -4158    
              objWorkbook.close
              objExcel.Application.DisplayAlerts = True
          End If
      Next
  End Sub
  
  If fso.FolderExists(saveDirBase) = False Then
      fso.CreateFolder(saveDirBase)   
  End If
  
  Call TraverseFolders(top)
  </code></pre>
  
  <p>Before converting i want to remove carriage return in every excel file.</p>
  
  <p>Please guide me anyone...!</p>