Exporting single XLSX file to multiple CSVs

[ztminhas]

Good AFternoon,

instead of using a command line

"D:\Program Files\LibreOfficePortable\App\libreoffice\program\soffice" --convert-to csv:"Text - txt - csv (StarCalc)":44,34,UTF8,1,,0,false,true,false,false,false,-1 MY_DATA.xlsx

This command line converts all of the sheets into seperate CSV files. Is there a way to macro-fy this? Thank you.

[sokol92]

In the same way:

Sub ToCsv
  Dim props(1) As New com.sun.star.beans.PropertyValue
  props(0).Name="FilterName"  : props(0).Value="Text - txt - csv (StarCalc)"
  props(1).Name="FilterOptions" : props(1).Value="44,34,UTF8,1,,0,false,true,false,false,false,-1"
  ThisComponent.storeToURL ConvertToUrl("C:\temp\NewFile.csv"), props
End Sub

[ztminhas]

Works great!