1*b1cdbd2cSJim Jagielski /**************************************************************
2*b1cdbd2cSJim Jagielski *
3*b1cdbd2cSJim Jagielski * Licensed to the Apache Software Foundation (ASF) under one
4*b1cdbd2cSJim Jagielski * or more contributor license agreements. See the NOTICE file
5*b1cdbd2cSJim Jagielski * distributed with this work for additional information
6*b1cdbd2cSJim Jagielski * regarding copyright ownership. The ASF licenses this file
7*b1cdbd2cSJim Jagielski * to you under the Apache License, Version 2.0 (the
8*b1cdbd2cSJim Jagielski * "License"); you may not use this file except in compliance
9*b1cdbd2cSJim Jagielski * with the License. You may obtain a copy of the License at
10*b1cdbd2cSJim Jagielski *
11*b1cdbd2cSJim Jagielski * http://www.apache.org/licenses/LICENSE-2.0
12*b1cdbd2cSJim Jagielski *
13*b1cdbd2cSJim Jagielski * Unless required by applicable law or agreed to in writing,
14*b1cdbd2cSJim Jagielski * software distributed under the License is distributed on an
15*b1cdbd2cSJim Jagielski * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16*b1cdbd2cSJim Jagielski * KIND, either express or implied. See the License for the
17*b1cdbd2cSJim Jagielski * specific language governing permissions and limitations
18*b1cdbd2cSJim Jagielski * under the License.
19*b1cdbd2cSJim Jagielski *
20*b1cdbd2cSJim Jagielski *************************************************************/
21*b1cdbd2cSJim Jagielski
22*b1cdbd2cSJim Jagielski
23*b1cdbd2cSJim Jagielski
24*b1cdbd2cSJim Jagielski #include "oox/xls/excelvbaproject.hxx"
25*b1cdbd2cSJim Jagielski
26*b1cdbd2cSJim Jagielski #include <list>
27*b1cdbd2cSJim Jagielski #include <set>
28*b1cdbd2cSJim Jagielski #include <com/sun/star/container/XEnumeration.hpp>
29*b1cdbd2cSJim Jagielski #include <com/sun/star/container/XEnumerationAccess.hpp>
30*b1cdbd2cSJim Jagielski #include <com/sun/star/document/XEventsSupplier.hpp>
31*b1cdbd2cSJim Jagielski #include <com/sun/star/frame/XModel.hpp>
32*b1cdbd2cSJim Jagielski #include <com/sun/star/script/ModuleType.hpp>
33*b1cdbd2cSJim Jagielski #include <com/sun/star/sheet/XSpreadsheetDocument.hpp>
34*b1cdbd2cSJim Jagielski #include <rtl/ustrbuf.hxx>
35*b1cdbd2cSJim Jagielski #include "oox/helper/helper.hxx"
36*b1cdbd2cSJim Jagielski #include "oox/helper/propertyset.hxx"
37*b1cdbd2cSJim Jagielski
38*b1cdbd2cSJim Jagielski namespace oox {
39*b1cdbd2cSJim Jagielski namespace xls {
40*b1cdbd2cSJim Jagielski
41*b1cdbd2cSJim Jagielski // ============================================================================
42*b1cdbd2cSJim Jagielski
43*b1cdbd2cSJim Jagielski using namespace ::com::sun::star::container;
44*b1cdbd2cSJim Jagielski using namespace ::com::sun::star::document;
45*b1cdbd2cSJim Jagielski using namespace ::com::sun::star::frame;
46*b1cdbd2cSJim Jagielski using namespace ::com::sun::star::lang;
47*b1cdbd2cSJim Jagielski using namespace ::com::sun::star::script;
48*b1cdbd2cSJim Jagielski using namespace ::com::sun::star::sheet;
49*b1cdbd2cSJim Jagielski using namespace ::com::sun::star::uno;
50*b1cdbd2cSJim Jagielski
51*b1cdbd2cSJim Jagielski using ::rtl::OUString;
52*b1cdbd2cSJim Jagielski using ::rtl::OUStringBuffer;
53*b1cdbd2cSJim Jagielski
54*b1cdbd2cSJim Jagielski // ============================================================================
55*b1cdbd2cSJim Jagielski
ExcelVbaProject(const Reference<XComponentContext> & rxContext,const Reference<XSpreadsheetDocument> & rxDocument)56*b1cdbd2cSJim Jagielski ExcelVbaProject::ExcelVbaProject( const Reference< XComponentContext >& rxContext, const Reference< XSpreadsheetDocument >& rxDocument ) :
57*b1cdbd2cSJim Jagielski ::oox::ole::VbaProject( rxContext, Reference< XModel >( rxDocument, UNO_QUERY ), CREATE_OUSTRING( "Calc" ) ),
58*b1cdbd2cSJim Jagielski mxDocument( rxDocument )
59*b1cdbd2cSJim Jagielski {
60*b1cdbd2cSJim Jagielski }
61*b1cdbd2cSJim Jagielski
62*b1cdbd2cSJim Jagielski // protected ------------------------------------------------------------------
63*b1cdbd2cSJim Jagielski
64*b1cdbd2cSJim Jagielski namespace {
65*b1cdbd2cSJim Jagielski
66*b1cdbd2cSJim Jagielski struct SheetCodeNameInfo
67*b1cdbd2cSJim Jagielski {
68*b1cdbd2cSJim Jagielski PropertySet maSheetProps; /// Property set of the sheet without codename.
69*b1cdbd2cSJim Jagielski OUString maPrefix; /// Prefix for the codename to be generated.
70*b1cdbd2cSJim Jagielski
SheetCodeNameInfooox::xls::__anona5b1270c0111::SheetCodeNameInfo71*b1cdbd2cSJim Jagielski inline explicit SheetCodeNameInfo( PropertySet& rSheetProps, const OUString& rPrefix ) :
72*b1cdbd2cSJim Jagielski maSheetProps( rSheetProps ), maPrefix( rPrefix ) {}
73*b1cdbd2cSJim Jagielski };
74*b1cdbd2cSJim Jagielski
75*b1cdbd2cSJim Jagielski typedef ::std::set< OUString > CodeNameSet;
76*b1cdbd2cSJim Jagielski typedef ::std::list< SheetCodeNameInfo > SheetCodeNameInfoList;
77*b1cdbd2cSJim Jagielski
78*b1cdbd2cSJim Jagielski } // namespace
79*b1cdbd2cSJim Jagielski
prepareImport()80*b1cdbd2cSJim Jagielski void ExcelVbaProject::prepareImport()
81*b1cdbd2cSJim Jagielski {
82*b1cdbd2cSJim Jagielski /* Check if the sheets have imported codenames. Generate new unused
83*b1cdbd2cSJim Jagielski codenames if not. */
84*b1cdbd2cSJim Jagielski if( mxDocument.is() ) try
85*b1cdbd2cSJim Jagielski {
86*b1cdbd2cSJim Jagielski // collect existing codenames (do not use them when creating new codenames)
87*b1cdbd2cSJim Jagielski CodeNameSet aUsedCodeNames;
88*b1cdbd2cSJim Jagielski
89*b1cdbd2cSJim Jagielski // collect sheets without codenames
90*b1cdbd2cSJim Jagielski SheetCodeNameInfoList aCodeNameInfos;
91*b1cdbd2cSJim Jagielski
92*b1cdbd2cSJim Jagielski // iterate over all imported sheets
93*b1cdbd2cSJim Jagielski Reference< XEnumerationAccess > xSheetsEA( mxDocument->getSheets(), UNO_QUERY_THROW );
94*b1cdbd2cSJim Jagielski Reference< XEnumeration > xSheetsEnum( xSheetsEA->createEnumeration(), UNO_SET_THROW );
95*b1cdbd2cSJim Jagielski // own try/catch for every sheet
96*b1cdbd2cSJim Jagielski while( xSheetsEnum->hasMoreElements() ) try
97*b1cdbd2cSJim Jagielski {
98*b1cdbd2cSJim Jagielski PropertySet aSheetProp( xSheetsEnum->nextElement() );
99*b1cdbd2cSJim Jagielski OUString aCodeName;
100*b1cdbd2cSJim Jagielski aSheetProp.getProperty( aCodeName, PROP_CodeName );
101*b1cdbd2cSJim Jagielski if( aCodeName.getLength() > 0 )
102*b1cdbd2cSJim Jagielski {
103*b1cdbd2cSJim Jagielski aUsedCodeNames.insert( aCodeName );
104*b1cdbd2cSJim Jagielski }
105*b1cdbd2cSJim Jagielski else
106*b1cdbd2cSJim Jagielski {
107*b1cdbd2cSJim Jagielski // TODO: once we have chart sheets we need a switch/case on sheet type ('SheetNNN' vs. 'ChartNNN')
108*b1cdbd2cSJim Jagielski aCodeNameInfos.push_back( SheetCodeNameInfo( aSheetProp, CREATE_OUSTRING( "Sheet" ) ) );
109*b1cdbd2cSJim Jagielski }
110*b1cdbd2cSJim Jagielski }
111*b1cdbd2cSJim Jagielski catch( Exception& )
112*b1cdbd2cSJim Jagielski {
113*b1cdbd2cSJim Jagielski }
114*b1cdbd2cSJim Jagielski
115*b1cdbd2cSJim Jagielski // create new codenames if sheets do not have one
116*b1cdbd2cSJim Jagielski for( SheetCodeNameInfoList::iterator aIt = aCodeNameInfos.begin(), aEnd = aCodeNameInfos.end(); aIt != aEnd; ++aIt )
117*b1cdbd2cSJim Jagielski {
118*b1cdbd2cSJim Jagielski // search for an unused codename
119*b1cdbd2cSJim Jagielski sal_Int32 nCounter = 1;
120*b1cdbd2cSJim Jagielski OUString aCodeName;
121*b1cdbd2cSJim Jagielski do
122*b1cdbd2cSJim Jagielski {
123*b1cdbd2cSJim Jagielski aCodeName = OUStringBuffer( aIt->maPrefix ).append( nCounter++ ).makeStringAndClear();
124*b1cdbd2cSJim Jagielski }
125*b1cdbd2cSJim Jagielski while( aUsedCodeNames.count( aCodeName ) > 0 );
126*b1cdbd2cSJim Jagielski aUsedCodeNames.insert( aCodeName );
127*b1cdbd2cSJim Jagielski
128*b1cdbd2cSJim Jagielski // set codename at sheet
129*b1cdbd2cSJim Jagielski aIt->maSheetProps.setProperty( PROP_CodeName, aCodeName );
130*b1cdbd2cSJim Jagielski
131*b1cdbd2cSJim Jagielski // tell base class to create a dummy module
132*b1cdbd2cSJim Jagielski addDummyModule( aCodeName, ModuleType::DOCUMENT );
133*b1cdbd2cSJim Jagielski }
134*b1cdbd2cSJim Jagielski }
135*b1cdbd2cSJim Jagielski catch( Exception& )
136*b1cdbd2cSJim Jagielski {
137*b1cdbd2cSJim Jagielski }
138*b1cdbd2cSJim Jagielski }
139*b1cdbd2cSJim Jagielski
140*b1cdbd2cSJim Jagielski // ============================================================================
141*b1cdbd2cSJim Jagielski
142*b1cdbd2cSJim Jagielski } // namespace xls
143*b1cdbd2cSJim Jagielski } // namespace oox
144