20 #include <com/sun/star/table/XCellRange.hpp>
21 #include <com/sun/star/sheet/XCellRangeAddressable.hpp>
22 #include <com/sun/star/sheet/XNamedRange.hpp>
23 #include <com/sun/star/sheet/XNamedRanges.hpp>
31 #include <compiler.hxx>
32 #include <tokenarray.hxx>
44 uno::Reference< frame::XModel >
m_xModel;
45 uno::Reference< sheet::XNamedRanges > m_xNames;
48 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 ) :
EnumerationHelperImpl( xParent, xContext, xEnumeration ), m_xModel( xModel ), m_xNames( xNames ) {}
50 virtual uno::Any SAL_CALL nextElement( )
override
52 uno::Reference< sheet::XNamedRange > xNamed( m_xEnumeration->nextElement(), uno::UNO_QUERY_THROW );
53 return uno::Any( uno::Reference< excel::XName > (
new ScVbaName( m_xParent, m_xContext, xNamed ,m_xNames , m_xModel ) ) );
61 const css::uno::Reference< css::uno::XComponentContext >& xContext,
62 const css::uno::Reference< css::sheet::XNamedRanges >& xNames,
63 const css::uno::Reference< css::frame::XModel >& xModel ):
78 uno::Reference< frame::XModel >
xModel(
getModel() , uno::UNO_SET_THROW );
81 throw uno::RuntimeException(
"No ViewShell available" );
88 const css::uno::Any& RefersTo,
89 const css::uno::Any& ,
90 const css::uno::Any& ,
91 const css::uno::Any& ,
92 const css::uno::Any& ,
93 const css::uno::Any& NameLocal,
94 const css::uno::Any& ,
95 const css::uno::Any& ,
96 const css::uno::Any& RefersToR1C1,
97 const css::uno::Any& RefersToR1C1Local )
100 uno::Reference< excel::XRange > xRange;
101 if ( Name.hasValue() )
103 else if ( NameLocal.hasValue() )
105 if ( !sName.isEmpty() )
110 const sal_Int32
nIndex{ sName.indexOf(
'!') };
112 sName = sName.copy(
nIndex+1);
115 throw uno::RuntimeException(
"This Name is not valid ." );
118 uno::Reference< table::XCellRange > xUnoRange;
119 if ( RefersTo.hasValue() || RefersToR1C1.hasValue() || RefersToR1C1Local.hasValue() )
124 if ( RefersTo.hasValue() )
126 if ( RefersTo.getValueTypeClass() == uno::TypeClass_STRING )
127 RefersTo >>= sFormula;
131 if ( RefersToR1C1.hasValue() )
133 if ( RefersToR1C1.getValueTypeClass() == uno::TypeClass_STRING )
135 RefersToR1C1 >>= sFormula;
139 RefersToR1C1 >>= xRange;
141 if ( RefersToR1C1Local.hasValue() )
143 if ( RefersToR1C1Local.getValueTypeClass() == uno::TypeClass_STRING )
145 RefersToR1C1Local >>= sFormula;
149 RefersToR1C1Local >>= xRange;
151 if ( !xRange.is() && !sFormula.isEmpty() )
155 std::unique_ptr<ScTokenArray> pTokens(aComp.
CompileString(sFormula));
160 if (pTokens->IsValidReference(aRange, aBlank))
166 if ( sFormula.startsWith(
"=") )
167 sFormula = sFormula.copy(1);
173 if ( aCellRanges.
size() == 1 )
177 uno::Reference< sheet::XSheetCellRangeContainer > xRanges(
new ScCellRangesObj( pDocSh, aCellRanges ) );
187 if ( xRange.is() || xUnoRange.is() )
192 uno::Reference< excel::XRange > xArea( xRange->Areas(
uno::Any( sal_Int32(1) ) ), uno::UNO_QUERY );
194 uno::Any aAny = xArea->getCellRange() ;
196 uno::Reference< sheet::XCellRangeAddressable > thisRangeAdd( aAny, ::uno::UNO_QUERY_THROW);
198 table::CellRangeAddress aAddr = thisRangeAdd->getRangeAddress();
202 table::CellAddress aCellAddr( aAddr.Sheet , aAddr.StartColumn , aAddr.StartRow );
203 if (
mxNames->hasByName( sName ) )
205 OUStringBuffer sTmp =
"$";
206 uno::Reference< ov::XCollection > xCol( xRange->Areas(
uno::Any() ), uno::UNO_QUERY );
207 for ( sal_Int32 nArea = 1; nArea <= xCol->getCount(); ++nArea )
209 xArea.set( xRange->Areas(
uno::Any( nArea ) ), uno::UNO_QUERY_THROW );
211 OUString sRangeAdd = xArea->Address( aAny2, aAny2 , aAny2 , aAny2, aAny2 );
214 sTmp.append(
"'" + xRange->getWorksheet()->getName() +
"'." + sRangeAdd);
216 mxNames->addNewByName( sName, sTmp.makeStringAndClear(), aCellAddr, 0);
220 return css::uno::Any();
230 uno::Reference< container::XEnumeration >
233 uno::Reference< container::XEnumerationAccess > xEnumAccess(
mxNames, uno::UNO_QUERY_THROW );
240 uno::Reference< sheet::XNamedRange > xName( aSource, uno::UNO_QUERY );
250 css::uno::Sequence<OUString>
255 "ooo.vba.excel.NamedRanges"
Reference< frame::XModel > m_xModel
css::uno::Reference< css::frame::XModel > mxModel
std::unique_ptr< ScTokenArray > CompileString(const OUString &rFormula)
Tokenize formula expression string into an array of tokens.
virtual css::uno::Sequence< OUString > getServiceNames() override
const css::uno::Reference< css::frame::XModel > & getModel() const
css::uno::Reference< css::frame::XModel2 > mxModel
Sequence< OUString > aServiceNames
ScDocument & GetDocument() const
exports com.sun.star. container
ScViewData & GetViewData()
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)
virtual OUString getServiceImplName() override
ScDocShell * getDocShell(const css::uno::Reference< css::frame::XModel > &xModel)
static SC_DLLPUBLIC IsNameValidType IsNameValid(const OUString &rName, const ScDocument &rDoc)
css::uno::Reference< css::container::XNameAccess > m_xNameAccess
css::uno::WeakReference< ov::XHelperInterface > mxParent
css::uno::Type const & get()
virtual css::uno::Reference< css::container::XEnumeration > SAL_CALL createEnumeration() override
ScTabViewShell * getBestViewShell(const css::uno::Reference< css::frame::XModel > &xModel)
css::uno::Reference< css::uno::XComponentContext > mxContext
static bool getCellRangesForAddress(ScRefFlags &rResFlags, std::u16string_view sAddress, ScDocShell *pDocSh, ScRangeList &rCellRanges, formula::FormulaGrammar::AddressConvention eConv, char cDelimiter)
virtual css::uno::Reference< ov::XHelperInterface > SAL_CALL getParent() override
ScDocument & getScDocument()
virtual css::uno::Any createCollectionObject(const css::uno::Any &aSource) override
Reference< XModel > xModel
virtual css::uno::Type SAL_CALL getElementType() override
virtual css::uno::Any SAL_CALL Item(const css::uno::Any &Index1, const css::uno::Any &) override
css::uno::Reference< css::sheet::XNamedRanges > mxNames
virtual ~ScVbaNames() override
virtual css::uno::Any SAL_CALL Add(const css::uno::Any &aName, const css::uno::Any &aRefersTo, const css::uno::Any &aVisible, const css::uno::Any &aMacroType, const css::uno::Any &aShoutcutKey, const css::uno::Any &aCategory, const css::uno::Any &aNameLocal, const css::uno::Any &aRefersToLocal, const css::uno::Any &aCategoryLocal, const css::uno::Any &aRefersToR1C1, const css::uno::Any &aRefersToR1C1Local) override