title: VBA to save CSV file to Excel with specific column formats
body: <p>I'm fairly sure this is a simple request but I don't generally use any VBA scripts so it's beyond my knowledge.</p>
  
  <p>I have a folder of about 700 .csv files that are "|" delimited, essentially all I want to do is open this particular folder and convert all the .csv files to .xls AND make all columns formatted as "text" rather than "general." I did some searching and found the exact code to convert the files however I can't figure out how to also make the columns text. Any help would be greatly appreciated! I've tried looking but if the answer is else where please point me in the right direction. (Below is the code that works for the .csv to .xls)</p>
  
  <pre><code>Sub CSVtoXls()
  Dim CSVfolder As String
  Dim XlsFolder As String
  Dim fname As String
  Dim wBook As Workbook 
  CSVfolder = "C:\Users\del44\Desktop\CSV Files\"
  XlsFolder = "C:\Users\del44\Desktop\Excel Files\" 
  fname = Dir(CSVfolder &amp; "*.csv") 
  Do While fname &lt;&gt; ""
  Set wBook = Workbooks.Open(CSVfolder &amp; fname, Format:=6, Delimiter:="|")
  wBook.SaveAs XlsFolder &amp; Replace(fname, ".csv", ".xls")
  wBook.Close False
  fname = Dir
  Loop
  Dim rCell As Range   
  </code></pre>