Attachment 176786 Details for Bug 146099 – LinkToExternalData.bas

LinkToExternalData.bas

LinkToExternalData.bas (text/plain), 1.17 KB, created by Hans-Werner on 2021-12-08 06:16:35 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Hans-Werner

Created: 2021-12-08 06:16:35 UTC

Size: 1.17 KB

patch

obsolete

>  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

Actions: View

Attachments on bug 146099: 176767 | 176768 | 176786 | 176842 | 176863 | 176874 | 176875