AutoHotkey Community

   #SingleInstance force
   
   chosen_folder = %A_ScriptDir%
   ConvertXlsCsv(chosen_folder)
   
   Exitapp

ConvertXlsCsv(folder="") {
   { ;FOLDER
      If folder =
      {
         FileSelectFolder, folder, , , Folder with xls files
         If ErrorLevel = 1
            Return
         IfNotExist %folder%
            Return
      }
   }
   { ;LIST FILES TO BE CONVERTED
      Loop, %folder%\*.xls
         files=%files%`n%A_LoopFileName%
      ;MsgBox, 0, Files to be converted, %files%, 3
   }
   { ;VBS CODE
      ;ORIGINAL VBS CODE FROM Jimmy The Fish
      ;http://forums.xaprief.com/showthread.php?s=&threadid=3159   
      vbs_code =
      (
      option explicit

      dim a, arg, oArgs, ArgNum
      a = 0

      Set oArgs = WSCript.arguments
      ArgNum = oArgs.Count

      if ArgNum <> 1 then
         WSCript.echo "Syntax: cscript <Script> filename_root"
         WScript.quit(1)
      end if

      dim filename_root, oldfilename, pos,newname
      oldfilename = oArgs(0)

      rem Remove .xls file extension if it was provided
      dim ext
      ext = right( oldfilename, 4 )
      if lcase( ext ) = ".xls" then
       oldfilename = left( oldfilename, len( oldfilename ) - 4 )
      end if

      pos = instr(oldfilename, " ")

      if pos > 0 then

       newname = right(oldfilename, len(oldfilename) - instrrev(oldfilename, "\"))
       newname = replace(newname," ","_")
       filename_root = left(oldfilename, instrrev(oldfilename, "\")) & newname

       dim oShell
       set oShell = Wscript.CreateObject("WScript.Shell")
       Wscript.echo "cmd.exe /c ren """ & oldfilename & ".xls"" " & newname & ".xls"
       oShell.run "cmd.exe /c ren """ & oldfilename & ".xls"" " & newname & ".xls"

      else
       filename_root = oldfilename
      end if

      dim app
      set app = createobject("Excel.Application")
         
      dim wb
      set wb = app.workbooks.open( filename_root & ".xls" )

      const xlXMLSpreadsheet = 46
      const xlCSV = 6

      app.DisplayAlerts = false
      dim sht
      for each sht in wb.worksheets
       sht.activate
       dim output_filename
       'output_filename = filename_root & "_" & replace( sht.name, " ", "_" ) & ".csv"
      '--------------------------------------------------------------------------------------
      ' ----------MODIFIED to save to with original file name but use.dat extention----------
      '--------------------------------------------------------------------------------------
      output_filename = filename_root & ".dat"
       wb.saveAs output_filename, xlCSV
      '--------------------------------------------------------------------------------------
      ' ---------------------Break stops script after first workbook-------------------------
      '--------------------------------------------------------------------------------------
      'break
      app.DisplayAlerts = true
      wb.close false
      WScript.quit
      next
      'wb.saveAs filename_root & ".xml", xlXMLSpreadsheet
      app.DisplayAlerts = true

      wb.close false

      'app.close

      WScript.quit
      )   
      FileDelete, %folder%\xls2csv.vbs
      FileAppend, %vbs_code%, %folder%\xls2csv.vbs
   }
   { ;BATCH FILE
      FileDelete, %folder%\xls2csv.bat
      FileAppend, for `%`%i in (*.xls) do cscript xls2csv.vbs `%`%~dpni > nul , %folder%\xls2csv.bat
   }
   { ;RUN VBS FILE THROUGH BAT
      RunWait, %folder%\xls2csv.bat, %folder%
   }
   { ;DELETE TEMP FILES
      FileDelete, %folder%\xls2csv.vbs
      FileDelete, %folder%\xls2csv.bat
   }
      { ;WipeXLS files
      FileDelete, %folder%\*.xls

   }
   { ;CONVERT INTO PORTUGUESE FORMAT (OPTIONAL)
      If A_Language = 0416
      {
         ConvertCsvSemiColon(folder)
         MsgBox, 0, Arquivos convertidos em CSV português, Verifique a pasta original, 15
         Return
      }
   }
   ;MsgBox, 0, Files converted, Please check original folder, 15
}
ConvertCsvSemiColon(folder) {
   Loop, %folder%\*.csv
   {
      ;REWRITE ONLY FILES MODIFIED IN THE LAST 5 MINUTES
         FileGetTime, file_time, %A_LoopFileName%, M
         minutes_ago = %A_Now%
         minutes_ago += -5, Minutes
         If file_time < %minutes_ago%
            Continue
      ;READ CONTENT
         FileRead, content, %A_LoopFileName%
      ;REPLACE COMMAS ETC
         StringReplace, content, content, `,, `;, all
         StringReplace, content, content, `., `,, all
      ;REWRITE CSV
         FileDelete, %A_LoopFileName%
         FileAppend, %content%, %A_LoopFileName%
   }
}

MsgBox % GetShortName("C:\Documents and Settings\FooUser\Really Long Path With Spaces\temp.ahk")

GetShortName(File) {
   Loop, %File%
      Return A_LoopFileShortPath
   }