Sub LinkToExternalData

'    ODS.ods => Link To External Data => CSV.csv
'   
'                    +---------+
'    CSV.csv Test 1: |0,1,2,3,4|
'                    +---------+
'                    MsgBox: Xmax=4 Ymax=0 | OKAY
'                    +-----------+
'    CSV.csv Test 2: |0,1,2,3,4,5|
'                    |0,1,2,3,4,5|
'                    +-----------+
'                    MsgBox: Xmax=4 Ymax=0 | ERROR - Should be Xmax=5 Ymax=1 !

     Dim HOME    As String : HOME = "E:/APP/LinkToExternalData/" ' MODIFY !
     Dim ODS     As String : ODS  = "ODS.ods"
     
     Dim oODS    As Object
     Dim oCursor As Object
     Dim oSheet  As Object
     Dim Xmax    As Long
     Dim Ymax    As Long
     
     Dim aP(0) As New com.sun.star.beans.PropertyValue
     
     oODS = StarDesktop.loadComponentFromURL(ConvertToUrl(HOME & ODS),"_blank",0,aP())
     
     oSheet  = oODS.Sheets(0)     
     oCursor = oSheet.createCursor
     oCursor.GotoEndOfUsedArea(False)
     Xmax = oCursor.getRangeAddress().endColumn
     Ymax = oCursor.getRangeAddress().endRow
     
     MsgBox("Xmax=" & Xmax & " Ymax=" & Ymax)
     
     oODS.Close(True)
  
  End Sub