[Issue 127395] setActiveSheet does not work in Hidden mode

[bugzilla]

https://bz.apache.org/ooo/show_bug.cgi?id=127395

--- Comment #5 from mroe <mroe.nos...@gmx.net> ---
(In reply to oooforum (fr) from comment #3)

Please test if you (every time) can really save a sheet other than the first as
CSV.


Sub csvexport
  Dim oDoc as Object
  Dim oSheet as Object
  Dim sDoc as String
  Dim outputUrl As String
  Dim Arg(0) As New com.sun.star.beans.PropertyValue
  Dim Arg2(0) As New com.sun.star.beans.PropertyValue
  Arg(0).Name = "Hidden"
  Arg(0).Value = True
  Arg2(0).Name = "FilterName"
  Arg2(0).Value = "Text - txt - csv (StarCalc)"
  sDoc = ConvertToURL("C:\Temp\export_csv.ods")
  oDoc = StarDesktop.loadComponentFromURL(sDoc, "_default", 0, Arg() )
  oSheet = oDoc.sheets.GetByIndex(2)
  oDoc.CurrentController.setActiveSheet(oSheet)
  outputUrl = ConvertToURL( "C:\Temp\" & oSheet.Name & ".csv")
  'msgbox oDoc.CurrentController.ActiveSheet.Name
  oDoc.storeToURL( outputUrl, Arg2() )
  oDoc.close(true)
End Sub

-- 
You are receiving this mail because:
You are the assignee for the issue.