Conteúdo

        Dim aPicker As com.sun.star.ui.dialogs.XFilePicker

        aPicker.getDisplayDirectory()

        Dim intVar as Integer

        Sub Some_Calc_UNO_Types
        REM A spreadsheet object
            Dim oSheet As com.sun.star.sheet.XSpreadsheet
            oSheet = ThisComponent.getSheets().getByIndex(0)
        REM A cell object
            Dim oCell As com.sun.star.table.XCell
            oCell = oSheet.getCellByPosition(0,0)
        End Sub

Necessitamos da sua ajuda!