1*cdf0e10cSrcweir<?xml version="1.0" encoding="UTF-8"?> 2*cdf0e10cSrcweir<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 3*cdf0e10cSrcweir<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sheet_XNamedRanges" script:language="StarBasic"> 4*cdf0e10cSrcweir 5*cdf0e10cSrcweir 6*cdf0e10cSrcweir'************************************************************************* 7*cdf0e10cSrcweir' 8*cdf0e10cSrcweir' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 9*cdf0e10cSrcweir' 10*cdf0e10cSrcweir' Copyright 2000, 2010 Oracle and/or its affiliates. 11*cdf0e10cSrcweir' 12*cdf0e10cSrcweir' OpenOffice.org - a multi-platform office productivity suite 13*cdf0e10cSrcweir' 14*cdf0e10cSrcweir' This file is part of OpenOffice.org. 15*cdf0e10cSrcweir' 16*cdf0e10cSrcweir' OpenOffice.org is free software: you can redistribute it and/or modify 17*cdf0e10cSrcweir' it under the terms of the GNU Lesser General Public License version 3 18*cdf0e10cSrcweir' only, as published by the Free Software Foundation. 19*cdf0e10cSrcweir' 20*cdf0e10cSrcweir' OpenOffice.org is distributed in the hope that it will be useful, 21*cdf0e10cSrcweir' but WITHOUT ANY WARRANTY; without even the implied warranty of 22*cdf0e10cSrcweir' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 23*cdf0e10cSrcweir' GNU Lesser General Public License version 3 for more details 24*cdf0e10cSrcweir' (a copy is included in the LICENSE file that accompanied this code). 25*cdf0e10cSrcweir' 26*cdf0e10cSrcweir' You should have received a copy of the GNU Lesser General Public License 27*cdf0e10cSrcweir' version 3 along with OpenOffice.org. If not, see 28*cdf0e10cSrcweir' <http://www.openoffice.org/license.html> 29*cdf0e10cSrcweir' for a copy of the LGPLv3 License. 30*cdf0e10cSrcweir' 31*cdf0e10cSrcweir'************************************************************************* 32*cdf0e10cSrcweir'************************************************************************* 33*cdf0e10cSrcweir 34*cdf0e10cSrcweir 35*cdf0e10cSrcweir 36*cdf0e10cSrcweir' Be sure that all variables are dimensioned: 37*cdf0e10cSrcweiroption explicit 38*cdf0e10cSrcweir 39*cdf0e10cSrcweir 40*cdf0e10cSrcweir 41*cdf0e10cSrcweirSub RunTest() 42*cdf0e10cSrcweir 43*cdf0e10cSrcweir'************************************************************************* 44*cdf0e10cSrcweir' INTERFACE: 45*cdf0e10cSrcweir' com.sun.star.sheet.XNamedRanges 46*cdf0e10cSrcweir'************************************************************************* 47*cdf0e10cSrcweirOn Error Goto ErrHndl 48*cdf0e10cSrcweir Dim bOK As Boolean 49*cdf0e10cSrcweir Dim count As Integer 50*cdf0e10cSrcweir Dim outRange As New com.sun.star.table.CellAddress 51*cdf0e10cSrcweir Dim range As New com.sun.star.table.CellRangeAddress 52*cdf0e10cSrcweir Dim i As Integer 53*cdf0e10cSrcweir 54*cdf0e10cSrcweir Test.StartMethod("addNewByName()") 55*cdf0e10cSrcweir bOK = true 56*cdf0e10cSrcweir outRange.Sheet = 0 57*cdf0e10cSrcweir outRange.Row = 1 58*cdf0e10cSrcweir outRange.Column = 1 59*cdf0e10cSrcweir count = oObj.Count 60*cdf0e10cSrcweir oObj.addNewByName(cIfcShortName, "T4:Y7", outRange, 0) 61*cdf0e10cSrcweir bOK = bOK AND oObj.count = count + 1 62*cdf0e10cSrcweir bOK = bOK AND oObj.hasByName(cIfcShortName) 63*cdf0e10cSrcweir Test.MethodTested("addNewByName()", bOK) 64*cdf0e10cSrcweir 65*cdf0e10cSrcweir Test.StartMethod("addNewFromTitles()") 66*cdf0e10cSrcweir bOK = true 67*cdf0e10cSrcweir count = oObj.count 68*cdf0e10cSrcweir 69*cdf0e10cSrcweir range.Sheet = 0 70*cdf0e10cSrcweir range.StartRow = 1 71*cdf0e10cSrcweir range.StartColumn = 2 72*cdf0e10cSrcweir range.EndRow = 3 73*cdf0e10cSrcweir range.EndColumn = 4 74*cdf0e10cSrcweir 75*cdf0e10cSrcweir for i = 1 to 5 76*cdf0e10cSrcweir oDoc.Sheets(0).getCellByPosition(i, 1).String = "Col" & i 77*cdf0e10cSrcweir next i 78*cdf0e10cSrcweir 79*cdf0e10cSrcweir oObj.addNewFromTitles(range, com.sun.star.sheet.Border.TOP) 80*cdf0e10cSrcweir 81*cdf0e10cSrcweir bOK = bOK AND (oObj.count = count + 3) 82*cdf0e10cSrcweir 83*cdf0e10cSrcweir bOK = bOK AND NOT oObj.hasByName("Col1") 84*cdf0e10cSrcweir bOK = bOK AND oObj.hasByName("Col2") 85*cdf0e10cSrcweir bOK = bOK AND oObj.hasByName("Col3") 86*cdf0e10cSrcweir bOK = bOK AND oObj.hasByName("Col4") 87*cdf0e10cSrcweir bOK = bOK AND NOT oObj.hasByName("Col5") 88*cdf0e10cSrcweir Test.MethodTested("addNewFromTitles()", bOK) 89*cdf0e10cSrcweir 90*cdf0e10cSrcweir Test.StartMethod("removeByName()") 91*cdf0e10cSrcweir bOK = true 92*cdf0e10cSrcweir count = oObj.Count 93*cdf0e10cSrcweir oObj.removeByName(cIfcShortName) 94*cdf0e10cSrcweir bOK = bOK AND (count = oObj.count + 1) 95*cdf0e10cSrcweir bOK = bOK AND NOT oObj.hasByName(cIfcShortName) 96*cdf0e10cSrcweir Test.MethodTested("removeByName()", bOK) 97*cdf0e10cSrcweir 98*cdf0e10cSrcweir Test.StartMethod("outputList()") 99*cdf0e10cSrcweir bOK = true 100*cdf0e10cSrcweir outRange.Sheet = 0 101*cdf0e10cSrcweir outRange.Row = 5 102*cdf0e10cSrcweir outRange.Column = 5 103*cdf0e10cSrcweir 104*cdf0e10cSrcweir count = oObj.count 105*cdf0e10cSrcweir for i = 4 to 5 + count 106*cdf0e10cSrcweir oDoc.Sheets(0).getCellByPosition(5, i).String = "a" 107*cdf0e10cSrcweir oDoc.Sheets(0).getCellByPosition(6, i).String = "b" 108*cdf0e10cSrcweir next i 109*cdf0e10cSrcweir 110*cdf0e10cSrcweir oObj.outputList(outRange) 111*cdf0e10cSrcweir 112*cdf0e10cSrcweir bOK = bOK AND oDoc.Sheets(0).getCellByPosition(5, 4).String = "a" 113*cdf0e10cSrcweir bOK = bOK AND oDoc.Sheets(0).getCellByPosition(6, 4).String = "b" 114*cdf0e10cSrcweir bOK = bOK AND oDoc.Sheets(0).getCellByPosition(5, 5 + count).String = "a" 115*cdf0e10cSrcweir bOK = bOK AND oDoc.Sheets(0).getCellByPosition(6, 5 + count).String = "b" 116*cdf0e10cSrcweir 117*cdf0e10cSrcweir for i = 5 to 4 + count 118*cdf0e10cSrcweir bOK = bOK AND oDoc.Sheets(0).getCellByPosition(5, i).String <> "a" 119*cdf0e10cSrcweir bOK = bOK AND oDoc.Sheets(0).getCellByPosition(6, i).String <> "b" 120*cdf0e10cSrcweir bOK = bOK AND oObj.hasByName(oDoc.Sheets(0).getCellByPosition(5, i).String) 121*cdf0e10cSrcweir next i 122*cdf0e10cSrcweir 123*cdf0e10cSrcweir Test.MethodTested("outputList()", bOK) 124*cdf0e10cSrcweir 125*cdf0e10cSrcweirExit Sub 126*cdf0e10cSrcweirErrHndl: 127*cdf0e10cSrcweir Test.Exception() 128*cdf0e10cSrcweir bOK = false 129*cdf0e10cSrcweir resume next 130*cdf0e10cSrcweirEnd Sub 131*cdf0e10cSrcweir</script:module> 132