diff options
Diffstat (limited to 'sc/source/ui/vba/vbanames.cxx')
| -rw-r--r-- | sc/source/ui/vba/vbanames.cxx | 262 |
1 files changed, 0 insertions, 262 deletions
diff --git a/sc/source/ui/vba/vbanames.cxx b/sc/source/ui/vba/vbanames.cxx deleted file mode 100644 index 1e104e7ff..000000000 --- a/sc/source/ui/vba/vbanames.cxx +++ /dev/null @@ -1,262 +0,0 @@ -/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ -/************************************************************************* - * - * 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 "vbanames.hxx" -#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; - -class NamesEnumeration : public EnumerationHelperImpl -{ - uno::Reference< frame::XModel > m_xModel; - uno::WeakReference< XHelperInterface > m_xParent; - uno::Reference< sheet::XNamedRanges > m_xNames; -public: - NamesEnumeration( const uno::Reference< XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext >& xContext, const uno::Reference< container::XEnumeration >& xEnumeration, const uno::Reference< frame::XModel >& xModel , const uno::Reference< sheet::XNamedRanges >& xNames ) throw ( uno::RuntimeException ) : EnumerationHelperImpl( xParent, xContext, xEnumeration ), m_xModel( xModel ), m_xParent( xParent ), m_xNames( xNames ) {} - - virtual uno::Any SAL_CALL nextElement( ) throw (container::NoSuchElementException, lang::WrappedTargetException, uno::RuntimeException) - { - uno::Reference< sheet::XNamedRange > xNamed( m_xEnumeration->nextElement(), uno::UNO_QUERY_THROW ); - return uno::makeAny( uno::Reference< excel::XName > ( new ScVbaName( m_xParent, m_xContext, xNamed ,m_xNames , m_xModel ) ) ); - } - -}; - - -ScVbaNames::ScVbaNames(const css::uno::Reference< ov::XHelperInterface >& xParent, - const css::uno::Reference< css::uno::XComponentContext >& xContext, - const css::uno::Reference< css::sheet::XNamedRanges >& xNames, - const css::uno::Reference< css::frame::XModel >& xModel ): - ScVbaNames_BASE( xParent , xContext , uno::Reference< container::XIndexAccess >( xNames, uno::UNO_QUERY ) ), - mxModel( xModel ), - mxNames( xNames ) -{ - m_xNameAccess.set( xNames, uno::UNO_QUERY_THROW ); -} - -ScVbaNames::~ScVbaNames() -{ -} - -ScDocument * -ScVbaNames::getScDocument() -{ - uno::Reference< frame::XModel > xModel( getModel() , uno::UNO_QUERY_THROW ); - ScTabViewShell * pTabViewShell = excel::getBestViewShell( xModel ); - if ( !pTabViewShell ) - throw uno::RuntimeException( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("No ViewShell available")), uno::Reference< uno::XInterface >() ); - ScViewData* pViewData = pTabViewShell->GetViewData(); - if ( !pViewData ) - throw uno::RuntimeException( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("No ViewData available")), uno::Reference< uno::XInterface >() ); - return pViewData->GetDocument(); -} - -void GetRangeOrRefersTo( const css::uno::Any& RefersTo, const uno::Reference< uno::XComponentContext >& xContext, css::uno::Reference< excel::XRange >& xRange, rtl::OUString& sRefersTo ) -{ - if ( RefersTo.getValueTypeClass() == uno::TypeClass_STRING ) - { - RefersTo >>= sRefersTo; - } - else if ( RefersTo.getValueTypeClass() == uno::TypeClass_INTERFACE ) - { - RefersTo >>= xRange; - } - else if ( RefersTo.hasValue() ) - { - uno::Reference< script::XTypeConverter > xConverter = getTypeConverter( xContext ); - try - { - if ( xConverter.is() ) - { - uno::Any aConverted = xConverter->convertTo( RefersTo, getCppuType((rtl::OUString*)0) ); - aConverted >>= sRefersTo; - } - } - catch( uno::Exception& ) - { - } - } -} - -css::uno::Any -ScVbaNames::Add( const css::uno::Any& Name , - const css::uno::Any& RefersTo, - const css::uno::Any& /*Visible*/, - const css::uno::Any& /*MacroType*/, - const css::uno::Any& /*ShoutcutKey*/, - const css::uno::Any& /*Category*/, - const css::uno::Any& NameLocal, - const css::uno::Any& /*RefersToLocal*/, - const css::uno::Any& /*CategoryLocal*/, - const css::uno::Any& RefersToR1C1, - const css::uno::Any& RefersToR1C1Local ) throw (css::uno::RuntimeException) -{ - rtl::OUString sSheetName; - rtl::OUString sName; - rtl::OUString sRefersTo; - uno::Reference< excel::XRange > xRange; - if ( Name.hasValue() ) - Name >>= sName; - else if ( NameLocal.hasValue() ) - NameLocal >>= sName; - if ( sName.getLength() != 0 ) - { - sal_Int32 nTokenIndex = sName.indexOf('!'); - if ( nTokenIndex >= 0 ) - { - sSheetName = sName.copy( 0, nTokenIndex ); - sName = sName.copy( nTokenIndex + 1 ); - } - if ( !ScRangeData::IsNameValid( sName , getScDocument() ) ) - { - ::rtl::OUString sResult ; - sal_Int32 nToken = 0; - sal_Int32 nIndex = 0; - sResult = sName.getToken( nToken , '!' , nIndex ); - if ( -1 == nIndex ) - sResult = sName; - else - sResult = sName.copy( nIndex ); - sName = sResult ; - if ( !ScRangeData::IsNameValid( sName , getScDocument() ) ) - throw uno::RuntimeException( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("This Name is a invalid .")), uno::Reference< uno::XInterface >() ); - } - } - if ( RefersTo.hasValue() || RefersToR1C1.hasValue() || RefersToR1C1Local.hasValue() ) - { - if ( RefersTo.hasValue() ) - GetRangeOrRefersTo( RefersTo, mxContext, xRange, sRefersTo ); - if ( RefersToR1C1.hasValue() ) - GetRangeOrRefersTo( RefersToR1C1, mxContext, xRange, sRefersTo ); - if ( RefersToR1C1Local.hasValue() ) - GetRangeOrRefersTo( RefersToR1C1Local, mxContext, xRange, sRefersTo ); - } - - String aContent; - table::CellAddress aPosition; - RangeType nType = RT_NAME; - if ( xRange.is() ) - { - ScVbaRange* pRange = dynamic_cast< ScVbaRange* >( xRange.get() ); - uno::Reference< table::XCellRange > thisRange ; - uno::Any xAny = pRange->getCellRange() ; - if ( xAny.hasValue() ) - xAny >>= thisRange; - uno::Reference< sheet::XCellRangeAddressable > thisRangeAdd( thisRange, ::uno::UNO_QUERY_THROW); - table::CellRangeAddress aAddr = thisRangeAdd->getRangeAddress(); - ScAddress aPos( static_cast< SCCOL >( aAddr.StartColumn ) , static_cast< SCROW >( aAddr.StartRow ) , static_cast< SCTAB >(aAddr.Sheet ) ); - uno::Any xAny2 ; - String sRangeAdd = xRange->Address( xAny2, xAny2 , xAny2 , xAny2, xAny2 ); - aContent += String::CreateFromAscii("$"); - aContent += UniString(xRange->getWorksheet()->getName()); - aContent += String::CreateFromAscii("."); - aContent += sRangeAdd; - aPosition = table::CellAddress( aAddr.Sheet , aAddr.StartColumn , aAddr.StartRow ); - } - else - { - ScDocShell* pDocShell = excel::getDocShell( mxModel ); - ScDocument* pDoc = pDocShell ? pDocShell->GetDocument() : NULL; - excel::CompileExcelFormulaToODF( pDoc, sRefersTo, aContent ); - if ( aContent.Len() == 0 ) - { - aContent = sRefersTo; - } - } - - uno::Reference< sheet::XNamedRange > xNewNamedRange; - if ( mxNames.is() ) - { - if ( mxNames->hasByName( sName ) ) - { - mxNames->removeByName( sName ); - } - mxNames->addNewByName( sName, rtl::OUString( aContent ), aPosition, (sal_Int32) nType ); - xNewNamedRange = uno::Reference< sheet::XNamedRange >( mxNames->getByName( sName ), uno::UNO_QUERY ); - } - if ( xNewNamedRange.is() ) - { - return uno::makeAny( uno::Reference< excel::XName >( new ScVbaName( mxParent, mxContext, xNewNamedRange ,mxNames , mxModel ) ) ); - } - return css::uno::Any(); -} - -// XEnumerationAccess -css::uno::Type -ScVbaNames::getElementType() throw( css::uno::RuntimeException ) -{ - return ov::excel::XName::static_type(0); -} - -uno::Reference< container::XEnumeration > -ScVbaNames::createEnumeration() throw (uno::RuntimeException) -{ - uno::Reference< container::XEnumerationAccess > xEnumAccess( mxNames, uno::UNO_QUERY_THROW ); - return new NamesEnumeration( getParent(), mxContext, xEnumAccess->createEnumeration(), mxModel , mxNames ); -} - -uno::Any -ScVbaNames::createCollectionObject( const uno::Any& aSource ) -{ - uno::Reference< sheet::XNamedRange > xName( aSource, uno::UNO_QUERY ); - return uno::makeAny( uno::Reference< excel::XName > ( new ScVbaName( getParent(), mxContext, xName, mxNames , mxModel ) ) ); -} - -rtl::OUString& -ScVbaNames::getServiceImplName() -{ - static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaNames") ); - return sImplName; -} - -css::uno::Sequence<rtl::OUString> -ScVbaNames::getServiceNames() -{ - static uno::Sequence< rtl::OUString > aServiceNames; - if ( aServiceNames.getLength() == 0 ) - { - aServiceNames.realloc( 1 ); - aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.excel.NamedRanges" ) ); - } - return aServiceNames; -} - - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ |