title: Converting XLS/XLSX files in a folder to CSV
body: <p>I have written the following code in VBA. When debugging, I am not able to find any problems. It is not creating nor converting any file into .CSV.</p>
  
  <pre><code>Sub SaveToCSVs()
      Dim fDir As String
      Dim Wb As Workbook
      Dim wS As Worksheet
      Dim csvWs As String, csvWb As String
      Dim extFlag As Long '0 = .xls &amp; 1 = .xlsx extension types
      Dim fPath As String
      Dim sPath As String, dd() As String
      fPath = "C:\Users\DA00358662\Documents\XLSCONV\*.*"
  
      sPath = "C:\Users\DA00358662\Documents\XLSCONV\"
      fDir = Dir(fPath)
      extFlag = 2
      Do While (fDir &lt;&gt; "")
          If Right(fDir, 4) = ".xls" Or Right(fDir, 5) = ".xlsx" Then
              extFlag = 0
          Else
              extFlag = 2
          End If
          On Error Resume Next
          If extFlag = 0 Then
              fDir = Dir
              Set Wb = Workbooks.Open(fPath &amp; fDir)
              csvWb = Wb.Name
              dd = Split(csvWb, ".")
              For Each wS In Wb.Sheets
                  wS.SaveAs dd(0) &amp; wS.Name &amp; ".csv", xlCSV
              Next wS
              Wb.Close False
              Set Wb = Nothing
              fDir = Dir
              On Error GoTo 0
          End If
      Loop
  End Sub
  </code></pre>