diff options
Diffstat (limited to 'sc/source/ui/vba/vbaname.cxx')
-rw-r--r-- | sc/source/ui/vba/vbaname.cxx | 269 |
1 files changed, 269 insertions, 0 deletions
diff --git a/sc/source/ui/vba/vbaname.cxx b/sc/source/ui/vba/vbaname.cxx new file mode 100644 index 000000000000..464b167df250 --- /dev/null +++ b/sc/source/ui/vba/vbaname.cxx @@ -0,0 +1,269 @@ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Lesser General Public License version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ +#include <vbahelper/helperdecl.hxx> + +#include <com/sun/star/table/XCellRange.hpp> +#include <com/sun/star/sheet/XCellRangeAddressable.hpp> +#include <com/sun/star/sheet/XCellRangeReferrer.hpp> + +#include "vbaname.hxx" +#include "vbarange.hxx" +#include "vbaglobals.hxx" +#include <vector> +#include <rangenam.hxx> +#include <vcl/msgbox.hxx> +#include "tabvwsh.hxx" +#include "viewdata.hxx" + +using namespace ::ooo::vba; +using namespace ::com::sun::star; + +ScVbaName::ScVbaName(const css::uno::Reference< ov::XHelperInterface >& xParent, + const css::uno::Reference< css::uno::XComponentContext >& xContext, + const css::uno::Reference< css::sheet::XNamedRange >& xName, + const css::uno::Reference< css::sheet::XNamedRanges >& xNames, + const css::uno::Reference< css::frame::XModel >& xModel ): + NameImpl_BASE( xParent , xContext ), + mxModel( xModel ), + mxNamedRange( xName ), + mxNames( xNames ) +{ +} + +ScVbaName::~ScVbaName() +{ +} + +css::uno::Reference< ov::excel::XWorksheet > +ScVbaName::getWorkSheet() throw (css::uno::RuntimeException) +{ + uno::Reference< excel::XApplication > xApplication( Application(), uno::UNO_QUERY_THROW ); + return xApplication->getActiveSheet(); +} + +::rtl::OUString +ScVbaName::getName() throw (css::uno::RuntimeException) +{ + String sName; + sName += UniString( getWorkSheet()->getName()); + sName += String::CreateFromAscii("!"); + sName += UniString ( mxNamedRange->getName() ); + return ::rtl::OUString( sName ); +} + +void +ScVbaName::setName( const ::rtl::OUString & rName ) throw (css::uno::RuntimeException) +{ + mxNamedRange->setName( rName ); +} + +::rtl::OUString +ScVbaName::getNameLocal() throw (css::uno::RuntimeException) +{ + return getName(); +} + +void +ScVbaName::setNameLocal( const ::rtl::OUString & rName ) throw (css::uno::RuntimeException) +{ + setName( rName ); +} + +sal_Bool +ScVbaName::getVisible() throw (css::uno::RuntimeException) +{ + return true; +} + +void +ScVbaName::setVisible( sal_Bool /*bVisible*/ ) throw (css::uno::RuntimeException) +{ +} + +::rtl::OUString +ScVbaName::getValue() throw (css::uno::RuntimeException) +{ + ::rtl::OUString sValue = mxNamedRange->getContent(); + ::rtl::OUString sSheetName = getWorkSheet()->getName(); + ::rtl::OUString sSegmentation = ::rtl::OUString::createFromAscii( ";" ); + ::rtl::OUString sNewSegmentation = ::rtl::OUString::createFromAscii( "," ); + ::rtl::OUString sResult; + sal_Int32 nFrom = 0; + sal_Int32 nTo = 0; + nTo = sValue.indexOf( sSegmentation, nFrom ); + while ( nTo != -1 ) + { + ::rtl::OUString sTmpValue = sValue.copy( nFrom, nTo - nFrom ); + if ( sTmpValue.toChar() == '$' ) + { + ::rtl::OUString sTmp = sTmpValue.copy( 1 ); + sTmp = sTmp.replaceAt(0, (sSheetName + ::rtl::OUString::createFromAscii(".")).getLength(), sSheetName + ::rtl::OUString::createFromAscii("!")); + sResult += sTmp; + sResult += sNewSegmentation; + } + nFrom = nTo + 1; + nTo = sValue.indexOf( sSegmentation, nFrom ); + } + ::rtl::OUString sTmpValue = sValue.copy( nFrom ); + if ( sTmpValue.toChar() == '$' ) + { + ::rtl::OUString sTmp = sTmpValue.copy(1); + sTmp = sTmp.replaceAt(0, (sSheetName + ::rtl::OUString::createFromAscii(".")).getLength(), sSheetName + ::rtl::OUString::createFromAscii("!")); + sResult += sTmp; + } + if (sResult.indexOf('=') != 0) + { + sResult = ::rtl::OUString::createFromAscii("=") + sResult; + } + return sResult; +} + +void +ScVbaName::setValue( const ::rtl::OUString & rValue ) throw (css::uno::RuntimeException) +{ + ::rtl::OUString sSheetName = getWorkSheet()->getName(); + ::rtl::OUString sValue = rValue; + ::rtl::OUString sSegmentation = ::rtl::OUString::createFromAscii( "," ); + ::rtl::OUString sNewSegmentation = ::rtl::OUString::createFromAscii( ";" ); + ::rtl::OUString sResult; + sal_Int32 nFrom = 0; + sal_Int32 nTo = 0; + if (sValue.indexOf('=') == 0) + { + ::rtl::OUString sTmp = sValue.copy(1); + sValue = sTmp; + } + nTo = sValue.indexOf( sSegmentation, nFrom ); + while ( nTo != -1 ) + { + ::rtl::OUString sTmpValue = sValue.copy( nFrom, nTo - nFrom ); + sTmpValue = sTmpValue.replaceAt(0, (sSheetName + ::rtl::OUString::createFromAscii("!")).getLength(), sSheetName + ::rtl::OUString::createFromAscii(".")); + if (sTmpValue.copy(0, sSheetName.getLength()).equals(sSheetName)) + { + sTmpValue = ::rtl::OUString::createFromAscii("$") + sTmpValue; + } + sTmpValue += sNewSegmentation; + sResult += sTmpValue; + nFrom = nTo + 1; + nTo = sValue.indexOf( sSegmentation, nFrom ); + } + ::rtl::OUString sTmpValue = sValue.copy( nFrom ); + sTmpValue = sTmpValue.replaceAt(0, (sSheetName + ::rtl::OUString::createFromAscii("!")).getLength(), sSheetName + ::rtl::OUString::createFromAscii(".")); + if (sTmpValue.copy(0, sSheetName.getLength()).equals(sSheetName)) + { + sTmpValue = ::rtl::OUString::createFromAscii("$") + sTmpValue; + } + sResult += sTmpValue; + mxNamedRange->setContent(sResult); +} + +::rtl::OUString +ScVbaName::getRefersTo() throw (css::uno::RuntimeException) +{ + return getValue(); +} + +void +ScVbaName::setRefersTo( const ::rtl::OUString & rRefersTo ) throw (css::uno::RuntimeException) +{ + setValue( rRefersTo ); +} + +::rtl::OUString +ScVbaName::getRefersToLocal() throw (css::uno::RuntimeException) +{ + return getRefersTo(); +} + +void +ScVbaName::setRefersToLocal( const ::rtl::OUString & rRefersTo ) throw (css::uno::RuntimeException) +{ + setRefersTo( rRefersTo ); +} + +::rtl::OUString +ScVbaName::getRefersToR1C1() throw (css::uno::RuntimeException) +{ + return getRefersTo(); +} + +void +ScVbaName::setRefersToR1C1( const ::rtl::OUString & rRefersTo ) throw (css::uno::RuntimeException) +{ + setRefersTo( rRefersTo ); +} + +::rtl::OUString +ScVbaName::getRefersToR1C1Local() throw (css::uno::RuntimeException) +{ + return getRefersTo(); +} + +void +ScVbaName::setRefersToR1C1Local( const ::rtl::OUString & rRefersTo ) throw (css::uno::RuntimeException) +{ + setRefersTo( rRefersTo ); +} + +css::uno::Reference< ov::excel::XRange > +ScVbaName::getRefersToRange() throw (css::uno::RuntimeException) +{ + uno::Reference< ov::excel::XRange > xRange = ScVbaRange::getRangeObjectForName( + mxContext, mxNamedRange->getName(), excel::getDocShell( mxModel ), formula::FormulaGrammar::CONV_XL_R1C1 ); + return xRange; +} + +void +ScVbaName::setRefersToRange( const css::uno::Reference< ov::excel::XRange > /*rRange*/ ) throw (css::uno::RuntimeException) +{ +} + +void +ScVbaName::Delete() throw (css::uno::RuntimeException) +{ + mxNames->removeByName( mxNamedRange->getName() ); +} + +rtl::OUString& +ScVbaName::getServiceImplName() +{ + static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaName") ); + return sImplName; +} + +uno::Sequence< rtl::OUString > +ScVbaName::getServiceNames() +{ + static uno::Sequence< rtl::OUString > aServiceNames; + if ( aServiceNames.getLength() == 0 ) + { + aServiceNames.realloc( 1 ); + aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.excel.Name" ) ); + } + return aServiceNames; +} + |