Macro for LibreOffice Calc - Export all sheets to CSV

sheets_to_csv

REM  *****  BASIC  *****

Sub Sheets_To_CSV
	sheets=ThisComponent.Sheets.createEnumeration()
	sURL = ThisComponent.getURL()
	oView = ThisComponent.getCurrentController()
	while sheets.hasMoreElements()
	  sh=sheets.nextElement()
	  s=sh.getName()
	  if sh.IsVisible then
	    oView.setActiveSheet(sh)
	    StoreCSV sURL &"_"& s &".csv"
	  endif
	wend
End Sub


sub StoreCSV(sURL As String)
   dim document as object
   
   document = ThisComponent

   dim args(1) as new com.sun.star.beans.PropertyValue
   
   args(0).Name = "FilterName"
   args(0).Value = "Text - txt - csv (StarCalc)"
   args(1).Name = "FilterOptions"
   args(1).Value = "44,34,76,1"

   document.storeToURL(sURL,args)
end sub