prova questo vbs modificando i percorsi

codice:
FileOrigine = "F:\Documenti\VBS\1.XLSX"
DestFile = "F:\Download\1.CSV"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile(DestFile)
Set ExcelApp = CreateObject("Excel.Application")
Set MySheet = ExcelApp.Workbooks.Open(FileOrigine)
Set zona = MySheet.Worksheets(1).UsedRange 
  For RowCount = 1 To Zona.Rows.Count
    s= ""
    For ColumnCount = 1 To Zona.Columns.Count
      s=s & Zona.Cells(RowCount, ColumnCount).Text & ";"
      If ColumnCount = Zona.Columns.Count Then s=left(s,len(s)-1)
    Next
    f1.WriteLine s
  Next
f1.Close
MySheet.Close
Set MySheet = Nothing
Set zona = Nothing
ExcelApp.Quit
Set ExcelApp = Nothing