xref: /aoo41x/main/sc/source/ui/vba/vbaworkbook.cxx (revision b3f79822)
1 /**************************************************************
2  *
3  * Licensed to the Apache Software Foundation (ASF) under one
4  * or more contributor license agreements.  See the NOTICE file
5  * distributed with this work for additional information
6  * regarding copyright ownership.  The ASF licenses this file
7  * to you under the Apache License, Version 2.0 (the
8  * "License"); you may not use this file except in compliance
9  * with the License.  You may obtain a copy of the License at
10  *
11  *   http://www.apache.org/licenses/LICENSE-2.0
12  *
13  * Unless required by applicable law or agreed to in writing,
14  * software distributed under the License is distributed on an
15  * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16  * KIND, either express or implied.  See the License for the
17  * specific language governing permissions and limitations
18  * under the License.
19  *
20  *************************************************************/
21 
22 
23 #include <vbahelper/helperdecl.hxx>
24 #include <tools/urlobj.hxx>
25 #include <comphelper/unwrapargs.hxx>
26 
27 #include <com/sun/star/util/XModifiable.hpp>
28 #include <com/sun/star/util/XProtectable.hpp>
29 #include <com/sun/star/sheet/XSpreadsheetView.hpp>
30 #include <com/sun/star/sheet/XSpreadsheetDocument.hpp>
31 #include <com/sun/star/frame/XStorable.hpp>
32 #include <com/sun/star/frame/XFrame.hpp>
33 #include <com/sun/star/beans/XPropertySet.hpp>
34 #include <ooo/vba/excel/XlFileFormat.hpp>
35 
36 #include "scextopt.hxx"
37 #include "vbaworksheet.hxx"
38 #include "vbaworksheets.hxx"
39 #include "vbaworkbook.hxx"
40 #include "vbawindows.hxx"
41 #include "vbastyles.hxx"
42 #include "excelvbahelper.hxx"
43 #include "vbapalette.hxx"
44 #include <osl/file.hxx>
45 #include <stdio.h>
46 #include "vbanames.hxx"  // Amelia Wang
47 #include "nameuno.hxx"
48 #include "docoptio.hxx"
49 #include "unonames.hxx"
50 
51 // Much of the impl. for the equivalend UNO module is
52 // sc/source/ui/unoobj/docuno.cxx, viewuno.cxx
53 
54 using namespace ::ooo::vba;
55 using namespace ::com::sun::star;
56 
57 class ActiveSheet : public ScVbaWorksheet
58 {
59 protected:
getModel()60 	virtual uno::Reference< frame::XModel > getModel()
61 	{
62 		return getCurrentExcelDoc( mxContext );
63 	}
getSheet()64 	virtual uno::Reference< sheet::XSpreadsheet > getSheet()
65 	{
66 		uno::Reference< frame::XModel > xModel = getModel();
67 		uno::Reference< sheet::XSpreadsheet > xSheet;
68 		if ( xModel.is() )
69 		{
70 			uno::Reference< sheet::XSpreadsheetView > xSpreadsheet(
71                         	xModel->getCurrentController(), uno::UNO_QUERY );
72 			if ( xSpreadsheet.is() )
73 				xSheet = xSpreadsheet->getActiveSheet();
74 		}
75 		return xSheet;
76 	}
77 public:
ActiveSheet(const uno::Reference<XHelperInterface> & xParent,const uno::Reference<uno::XComponentContext> & xContext)78 	ActiveSheet( const uno::Reference< XHelperInterface >& xParent, const uno::Reference< uno::XComponentContext >& xContext ) : ScVbaWorksheet( xParent, xContext ) {}
79 
80 };
81 
82 uno::Sequence< sal_Int32 > ScVbaWorkbook::ColorData;
83 
initColorData(const uno::Sequence<sal_Int32> & sColors)84 void ScVbaWorkbook::initColorData( const uno::Sequence< sal_Int32 >& sColors )
85 {
86 		const sal_Int32* pSource = sColors.getConstArray();
87 		sal_Int32* pDest = ColorData.getArray();
88 		const sal_Int32* pEnd = pSource + sColors.getLength();
89 		for ( ; pSource != pEnd; ++pSource, ++pDest )
90 			*pDest = *pSource;
91 }
92 
93 
94 void SAL_CALL
ResetColors()95 ScVbaWorkbook::ResetColors(  ) throw (::script::BasicErrorException, ::uno::RuntimeException)
96 {
97 		uno::Reference< container::XIndexAccess > xIndexAccess( ScVbaPalette::getDefaultPalette(), uno::UNO_QUERY_THROW );
98 		sal_Int32 nLen = xIndexAccess->getCount();
99 		ColorData.realloc( nLen );
100 
101 		uno::Sequence< sal_Int32 > dDefaultColors( nLen );
102 		sal_Int32* pDest = dDefaultColors.getArray();
103 		for ( sal_Int32 index=0; index < nLen; ++pDest, ++index )
104 			xIndexAccess->getByIndex( index )  >>= (*pDest);
105 		initColorData( dDefaultColors );
106 }
107 
108 ::uno::Any SAL_CALL
Colors(const::uno::Any & Index)109 ScVbaWorkbook::Colors( const ::uno::Any& Index ) throw (::script::BasicErrorException, ::uno::RuntimeException)
110 {
111 	uno::Any aRet;
112 	if ( Index.getValue() )
113 	{
114 		sal_Int32 nIndex = 0;
115 		Index >>= nIndex;
116 		aRet = uno::makeAny( XLRGBToOORGB( ColorData[ --nIndex ] ) );
117 	}
118 	else
119 		aRet = uno::makeAny( ColorData );
120 	return aRet;
121 }
122 
123 ::sal_Int32 SAL_CALL
FileFormat()124 ScVbaWorkbook::FileFormat(  ) throw (::script::BasicErrorException, ::uno::RuntimeException)
125 {
126         sal_Int32 aFileFormat = 0;
127         rtl::OUString aFilterName;
128         uno::Sequence< beans::PropertyValue > aArgs = getModel()->getArgs();
129 
130 		// #FIXME - seems suspect should we not walk through the properties
131 		// to find the FilterName
132         if (aArgs[0].Name.equalsAscii( "FilterName")) {
133             aArgs[0].Value >>= aFilterName;
134         } else {
135            aArgs[1].Value >>= aFilterName;
136         }
137 
138         if (aFilterName.equalsAscii("Text - txt - csv (StarCalc)")) {
139             aFileFormat = excel::XlFileFormat::xlCSV; //xlFileFormat.
140         }
141 
142         if (aFilterName.equalsAscii("DBF")) {
143             aFileFormat = excel::XlFileFormat::xlDBF4;
144         }
145 
146         if (aFilterName.equalsAscii("DIF")) {
147             aFileFormat = excel::XlFileFormat::xlDIF;
148         }
149 
150         if (aFilterName.equalsAscii("Lotus")) {
151             aFileFormat = excel::XlFileFormat::xlWK3;
152         }
153 
154         if (aFilterName.equalsAscii("MS Excel 4.0")) {
155             aFileFormat = excel::XlFileFormat::xlExcel4Workbook;
156         }
157 
158         if (aFilterName.equalsAscii("MS Excel 5.0/95")) {
159             aFileFormat = excel::XlFileFormat::xlExcel5;
160         }
161 
162         if (aFilterName.equalsAscii("MS Excel 97")) {
163             aFileFormat = excel::XlFileFormat::xlExcel9795;
164         }
165 
166         if (aFilterName.equalsAscii("HTML (StarCalc)")) {
167             aFileFormat = excel::XlFileFormat::xlHtml;
168         }
169 
170         if (aFilterName.equalsAscii("calc_StarOffice_XML_Calc_Template")) {
171             aFileFormat = excel::XlFileFormat::xlTemplate;
172         }
173 
174         if (aFilterName.equalsAscii("StarOffice XML (Calc)")) {
175             aFileFormat = excel::XlFileFormat::xlWorkbookNormal;
176         }
177         if (aFilterName.equalsAscii("calc8")) {
178             aFileFormat = excel::XlFileFormat::xlWorkbookNormal;
179         }
180 
181         return aFileFormat;
182 }
183 
184 void
init()185 ScVbaWorkbook::init()
186 {
187 	if ( !ColorData.getLength() )
188 		ResetColors();
189 }
ScVbaWorkbook(const css::uno::Reference<ov::XHelperInterface> & xParent,const css::uno::Reference<css::uno::XComponentContext> & xContext)190 ScVbaWorkbook::ScVbaWorkbook( 	const css::uno::Reference< ov::XHelperInterface >& xParent, const css::uno::Reference< css::uno::XComponentContext >& xContext) :ScVbaWorkbook_BASE( xParent, xContext )
191 {
192 	//#FIXME this persists the color data per office instance and
193 	// not per workbook instance, need to hook the data into XModel
194 	// ( e.g. we already store the imported palette in there )
195 	// so we should,
196 	// a) make the class that does that a service
197 	// b) make that service implement XIndexContainer
198 	init();
199 }
200 
ScVbaWorkbook(const css::uno::Reference<ov::XHelperInterface> & xParent,const css::uno::Reference<css::uno::XComponentContext> & xContext,css::uno::Reference<css::frame::XModel> xModel)201 ScVbaWorkbook::ScVbaWorkbook( 	const css::uno::Reference< ov::XHelperInterface >& xParent, const css::uno::Reference< css::uno::XComponentContext >& xContext, css::uno::Reference< css::frame::XModel > xModel ) : ScVbaWorkbook_BASE( xParent, xContext, xModel )
202 {
203 	init();
204 }
205 
ScVbaWorkbook(uno::Sequence<uno::Any> const & args,uno::Reference<uno::XComponentContext> const & xContext)206 ScVbaWorkbook::ScVbaWorkbook( uno::Sequence< uno::Any> const & args,
207     uno::Reference< uno::XComponentContext> const & xContext ) : ScVbaWorkbook_BASE( args, xContext )
208 {
209 	init();
210 }
211 
212 uno::Reference< excel::XWorksheet >
getActiveSheet()213 ScVbaWorkbook::getActiveSheet() throw (uno::RuntimeException)
214 {
215 	uno::Reference< frame::XModel > xModel( getCurrentExcelDoc( mxContext ), uno::UNO_SET_THROW );
216 	uno::Reference< sheet::XSpreadsheetView > xView( xModel->getCurrentController(), uno::UNO_QUERY_THROW );
217     uno::Reference< sheet::XSpreadsheet > xSheet( xView->getActiveSheet(), uno::UNO_SET_THROW );
218     // #162503# return the original sheet module wrapper object, instead of a new instance
219     uno::Reference< excel::XWorksheet > xWorksheet( excel::getUnoSheetModuleObj( xSheet ), uno::UNO_QUERY );
220     if( xWorksheet.is() ) return xWorksheet;
221     // #i116936# excel::getUnoSheetModuleObj() may return null in documents without global VBA mode enabled
222     return new ScVbaWorksheet( this, mxContext, xSheet, xModel );
223 }
224 
225 uno::Any SAL_CALL
Sheets(const uno::Any & aIndex)226 ScVbaWorkbook::Sheets( const uno::Any& aIndex ) throw (uno::RuntimeException)
227 {
228 	return Worksheets( aIndex );
229 }
230 
231 uno::Any SAL_CALL
Worksheets(const uno::Any & aIndex)232 ScVbaWorkbook::Worksheets( const uno::Any& aIndex ) throw (uno::RuntimeException)
233 {
234 	uno::Reference< frame::XModel > xModel( getModel() );
235 	uno::Reference <sheet::XSpreadsheetDocument> xSpreadDoc( xModel, uno::UNO_QUERY_THROW );
236 	uno::Reference<container::XIndexAccess > xSheets( xSpreadDoc->getSheets(), uno::UNO_QUERY_THROW );
237 	uno::Reference< XCollection > xWorkSheets(  new ScVbaWorksheets( this, mxContext, xSheets, xModel ) );
238 	if (  aIndex.getValueTypeClass() == uno::TypeClass_VOID )
239 	{
240 		return uno::Any( xWorkSheets );
241 	}
242 	// pass on to collection
243 	return uno::Any( xWorkSheets->Item( aIndex, uno::Any() ) );
244 }
245 uno::Any SAL_CALL
Windows(const uno::Any & aIndex)246 ScVbaWorkbook::Windows( const uno::Any& aIndex ) throw (uno::RuntimeException)
247 {
248 
249 	uno::Reference< excel::XWindows >  xWindows( new ScVbaWindows( getParent(), mxContext ) );
250 	if ( aIndex.getValueTypeClass() == uno::TypeClass_VOID )
251 		return uno::Any( xWindows );
252 	return uno::Any( xWindows->Item( aIndex, uno::Any() ) );
253 }
254 
255 void SAL_CALL
Activate()256 ScVbaWorkbook::Activate() throw (uno::RuntimeException)
257 {
258     VbaDocumentBase::Activate();
259 }
260 
261 ::sal_Bool
getProtectStructure()262 ScVbaWorkbook::getProtectStructure() throw (uno::RuntimeException)
263 {
264 	uno::Reference< util::XProtectable > xProt( getModel(), uno::UNO_QUERY_THROW );
265 	return xProt->isProtected();
266 }
267 
getPrecisionAsDisplayed()268 ::sal_Bool SAL_CALL ScVbaWorkbook::getPrecisionAsDisplayed() throw (uno::RuntimeException)
269 {
270     uno::Reference< frame::XModel > xModel( getModel(), uno::UNO_QUERY_THROW );
271     ScDocument* pDoc = excel::getDocShell( xModel )->GetDocument();
272     return pDoc->GetDocOptions().IsCalcAsShown();
273 }
274 
setPrecisionAsDisplayed(sal_Bool _precisionAsDisplayed)275 void SAL_CALL ScVbaWorkbook::setPrecisionAsDisplayed( sal_Bool _precisionAsDisplayed ) throw (uno::RuntimeException)
276 {
277     uno::Reference< frame::XModel > xModel( getModel(), uno::UNO_QUERY_THROW );
278     ScDocument* pDoc = excel::getDocShell( xModel )->GetDocument();
279     ScDocOptions aOpt = pDoc->GetDocOptions();
280     aOpt.SetCalcAsShown( _precisionAsDisplayed );
281     pDoc->SetDocOptions( aOpt );
282 }
283 
284 void
SaveCopyAs(const rtl::OUString & sFileName)285 ScVbaWorkbook::SaveCopyAs( const rtl::OUString& sFileName ) throw ( uno::RuntimeException)
286 {
287 	rtl::OUString aURL;
288 	osl::FileBase::getFileURLFromSystemPath( sFileName, aURL );
289 	uno::Reference< frame::XStorable > xStor( getModel(), uno::UNO_QUERY_THROW );
290 	uno::Sequence<  beans::PropertyValue > storeProps(1);
291 	storeProps[0].Name = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "FilterName" ) );
292 	storeProps[0].Value <<= rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "MS Excel 97" ) );
293 	xStor->storeToURL( aURL, storeProps );
294 }
295 
296 css::uno::Any SAL_CALL
Styles(const uno::Any & Item)297 ScVbaWorkbook::Styles( const uno::Any& Item ) throw (uno::RuntimeException)
298 {
299 	// quick look and Styles object doesn't seem to have a valid parent
300 	// or a least the object browser just shows an object that has no
301 	// variables ( therefore... leave as NULL for now )
302 	uno::Reference< XCollection > dStyles = new ScVbaStyles( uno::Reference< XHelperInterface >(), mxContext, getModel() );
303 	if ( Item.hasValue() )
304 		return dStyles->Item( Item, uno::Any() );
305 	return uno::makeAny( dStyles );
306 }
307 
308 // Amelia Wang
309 uno::Any SAL_CALL
Names(const uno::Any & aIndex)310 ScVbaWorkbook::Names( const uno::Any& aIndex ) throw (uno::RuntimeException)
311 {
312 	uno::Reference< frame::XModel > xModel( getModel(), uno::UNO_SET_THROW );
313 	uno::Reference< beans::XPropertySet > xProps( xModel, uno::UNO_QUERY_THROW );
314 	uno::Reference< sheet::XNamedRanges > xNamedRanges(  xProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("NamedRanges") ) ), uno::UNO_QUERY_THROW );
315 	uno::Reference< XCollection > xNames( new ScVbaNames( this, mxContext, xNamedRanges, xModel ) );
316     if ( aIndex.hasValue() )
317         return uno::Any( xNames->Item( aIndex, uno::Any() ) );
318 	return uno::Any( xNames );
319 }
320 
321 rtl::OUString&
getServiceImplName()322 ScVbaWorkbook::getServiceImplName()
323 {
324 	static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaWorkbook") );
325 	return sImplName;
326 }
327 
328 uno::Sequence< rtl::OUString >
getServiceNames()329 ScVbaWorkbook::getServiceNames()
330 {
331 	static uno::Sequence< rtl::OUString > aServiceNames;
332 	if ( aServiceNames.getLength() == 0 )
333 	{
334 		aServiceNames.realloc( 1 );
335 		aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.excel.Workbook" ) );
336 	}
337 	return aServiceNames;
338 }
339 
340 ::rtl::OUString SAL_CALL
getCodeName()341 ScVbaWorkbook::getCodeName() throw (css::uno::RuntimeException)
342 {
343     uno::Reference< beans::XPropertySet > xModelProp( getModel(), uno::UNO_QUERY_THROW );
344     return xModelProp->getPropertyValue( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "CodeName" ) ) ).get< ::rtl::OUString >();
345 }
346 
347 namespace workbook
348 {
349 namespace sdecl = comphelper::service_decl;
350 sdecl::vba_service_class_<ScVbaWorkbook, sdecl::with_args<true> > serviceImpl;
351 extern sdecl::ServiceDecl const serviceDecl(
352     serviceImpl,
353     "ScVbaWorkbook",
354     "ooo.vba.excel.Workbook" );
355 }
356