mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
569c019883f0c1bb624d2dddb12914facd30e82b
libreoffice/sc/source/ui/vba/vbaworkbook.cxx
Noel Power 569c019883 add Workbook.Save method 
has limited support for paramaters ( only FileName and Format are processed )

Change-Id: I669f264679101ab3697dfaa3a3fb3b2d75f5a14b
2013-05-09 14:11:20 +01:00

428 lines
15 KiB
C++
Raw Blame History

/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
/*
* This file is part of the LibreOffice project.
*
* This Source Code Form is subject to the terms of the Mozilla Public
* License, v. 2.0. If a copy of the MPL was not distributed with this
* file, You can obtain one at http://mozilla.org/MPL/2.0/.
*
* This file incorporates work covered by the following license notice:
*
* Licensed to the Apache Software Foundation (ASF) under one or more
* contributor license agreements. See the NOTICE file distributed
* with this work for additional information regarding copyright
* ownership. The ASF licenses this file to you under the Apache
* License, Version 2.0 (the "License"); you may not use this file
* except in compliance with the License. You may obtain a copy of
* the License at http://www.apache.org/licenses/LICENSE-2.0 .
*/
#include <vbahelper/helperdecl.hxx>
#include <tools/urlobj.hxx>
#include <comphelper/unwrapargs.hxx>
#include <comphelper/servicehelper.hxx>
#include <com/sun/star/util/XModifiable.hpp>
#include <com/sun/star/util/XProtectable.hpp>
#include <com/sun/star/sheet/XSpreadsheetView.hpp>
#include <com/sun/star/sheet/XSpreadsheetDocument.hpp>
#include <com/sun/star/frame/XStorable.hpp>
#include <com/sun/star/frame/XFrame.hpp>
#include <com/sun/star/beans/XPropertySet.hpp>
#include <ooo/vba/excel/XlFileFormat.hpp>
#include <ooo/vba/excel/XApplication.hpp>
#include "scextopt.hxx"
#include "vbaworksheet.hxx"
#include "vbaworksheets.hxx"
#include "vbaworkbook.hxx"
#include "vbawindows.hxx"
#include "vbastyles.hxx"
#include "excelvbahelper.hxx"
#include "vbapalette.hxx"
#include <osl/file.hxx>
#include <stdio.h>
#include "vbanames.hxx"
#include "nameuno.hxx"
#include "docoptio.hxx"
#include "unonames.hxx"
// Much of the impl. for the equivalend UNO module is
// sc/source/ui/unoobj/docuno.cxx, viewuno.cxx
using namespace ::ooo::vba;
using namespace ::com::sun::star;
uno::Sequence< sal_Int32 > ScVbaWorkbook::ColorData;
void ScVbaWorkbook::initColorData( const uno::Sequence< sal_Int32 >& sColors )
{
const sal_Int32* pSource = sColors.getConstArray();
sal_Int32* pDest = ColorData.getArray();
const sal_Int32* pEnd = pSource + sColors.getLength();
for ( ; pSource != pEnd; ++pSource, ++pDest )
*pDest = *pSource;
}
void SAL_CALL
ScVbaWorkbook::ResetColors( ) throw (::script::BasicErrorException, ::uno::RuntimeException)
{
uno::Reference< container::XIndexAccess > xIndexAccess( ScVbaPalette::getDefaultPalette(), uno::UNO_QUERY_THROW );
sal_Int32 nLen = xIndexAccess->getCount();
ColorData.realloc( nLen );
uno::Sequence< sal_Int32 > dDefaultColors( nLen );
sal_Int32* pDest = dDefaultColors.getArray();
for ( sal_Int32 index=0; index < nLen; ++pDest, ++index )
xIndexAccess->getByIndex( index ) >>= (*pDest);
initColorData( dDefaultColors );
}
::uno::Any SAL_CALL
ScVbaWorkbook::Colors( const ::uno::Any& Index ) throw (::script::BasicErrorException, ::uno::RuntimeException)
{
uno::Any aRet;
if ( Index.getValue() )
{
sal_Int32 nIndex = 0;
Index >>= nIndex;
aRet = uno::makeAny( XLRGBToOORGB( ColorData[ --nIndex ] ) );
}
else
aRet = uno::makeAny( ColorData );
return aRet;
}
bool ScVbaWorkbook::setFilterPropsFromFormat( sal_Int32 nFormat, uno::Sequence< beans::PropertyValue >& rProps )
{
bool bRes = false;
for ( sal_Int32 index = 0; index < rProps.getLength(); ++index )
{
if ( rProps[ index ].Name == "FilterName" )
{
switch( nFormat )
{
case excel::XlFileFormat::xlCSV:
rProps[ index ].Value = uno::Any( OUString("Text - txt - csv (StarCalc)") );
break;
case excel::XlFileFormat::xlDBF4:
rProps[ index ].Value = uno::Any( OUString("DBF") );
break;
case excel::XlFileFormat::xlDIF:
rProps[ index ].Value = uno::Any( OUString("DIF") );
break;
case excel::XlFileFormat::xlWK3:
rProps[ index ].Value = uno::Any( OUString("Lotus") );
break;
case excel::XlFileFormat::xlExcel4Workbook:
rProps[ index ].Value = uno::Any( OUString("MS Excel 4.0") );
break;
case excel::XlFileFormat::xlExcel5:
rProps[ index ].Value = uno::Any( OUString("MS Excel 5.0/95") );
break;
case excel::XlFileFormat::xlHtml:
rProps[ index ].Value = uno::Any( OUString("HTML (StarCalc)") );
break;
case excel::XlFileFormat::xlExcel9795:
default:
rProps[ index ].Value = uno::Any( OUString("MS Excel 97") );
break;
}
bRes = true;
break;
}
}
return bRes;
}
::sal_Int32 SAL_CALL
ScVbaWorkbook::getFileFormat( ) throw (::uno::RuntimeException)
{
sal_Int32 aFileFormat = 0;
OUString aFilterName;
uno::Sequence< beans::PropertyValue > aArgs = getModel()->getArgs();
// #FIXME - seems suspect should we not walk through the properties
// to find the FilterName
if ( aArgs[0].Name == "FilterName" ) {
aArgs[0].Value >>= aFilterName;
} else {
aArgs[1].Value >>= aFilterName;
}
if (aFilterName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM("Text - txt - csv (StarCalc)"))) {
aFileFormat = excel::XlFileFormat::xlCSV; //xlFileFormat.
}
if ( aFilterName == "DBF" ) {
aFileFormat = excel::XlFileFormat::xlDBF4;
}
if ( aFilterName == "DIF" ) {
aFileFormat = excel::XlFileFormat::xlDIF;
}
if ( aFilterName == "Lotus" ) {
aFileFormat = excel::XlFileFormat::xlWK3;
}
if ( aFilterName == "MS Excel 4.0" ) {
aFileFormat = excel::XlFileFormat::xlExcel4Workbook;
}
if ( aFilterName == "MS Excel 5.0/95" ) {
aFileFormat = excel::XlFileFormat::xlExcel5;
}
if ( aFilterName == "MS Excel 97" ) {
aFileFormat = excel::XlFileFormat::xlExcel9795;
}
if (aFilterName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM("HTML (StarCalc)"))) {
aFileFormat = excel::XlFileFormat::xlHtml;
}
if ( aFilterName == "calc_StarOffice_XML_Calc_Template" ) {
aFileFormat = excel::XlFileFormat::xlTemplate;
}
if (aFilterName.equalsAsciiL(RTL_CONSTASCII_STRINGPARAM("StarOffice XML (Calc)"))) {
aFileFormat = excel::XlFileFormat::xlWorkbookNormal;
}
if ( aFilterName == "calc8" ) {
aFileFormat = excel::XlFileFormat::xlWorkbookNormal;
}
return aFileFormat;
}
void
ScVbaWorkbook::init()
{
if ( !ColorData.getLength() )
ResetColors();
}
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 )
{
init();
}
ScVbaWorkbook::ScVbaWorkbook( uno::Sequence< uno::Any> const & args,
uno::Reference< uno::XComponentContext> const & xContext ) : ScVbaWorkbook_BASE( args, xContext )
{
init();
}
uno::Reference< excel::XWorksheet >
ScVbaWorkbook::getActiveSheet() throw (uno::RuntimeException)
{
uno::Reference< frame::XModel > xModel( getCurrentExcelDoc( mxContext ), uno::UNO_SET_THROW );
uno::Reference< sheet::XSpreadsheetView > xView( xModel->getCurrentController(), uno::UNO_QUERY_THROW );
uno::Reference< sheet::XSpreadsheet > xSheet( xView->getActiveSheet(), uno::UNO_SET_THROW );
// #162503# return the original sheet module wrapper object, instead of a new instance
uno::Reference< excel::XWorksheet > xWorksheet( excel::getUnoSheetModuleObj( xSheet ), uno::UNO_QUERY );
if( xWorksheet.is() ) return xWorksheet;
// #i116936# excel::getUnoSheetModuleObj() may return null in documents without global VBA mode enabled
return new ScVbaWorksheet( this, mxContext, xSheet, xModel );
}
uno::Any SAL_CALL
ScVbaWorkbook::Sheets( const uno::Any& aIndex ) throw (uno::RuntimeException)
{
return Worksheets( aIndex );
}
uno::Any SAL_CALL
ScVbaWorkbook::Worksheets( const uno::Any& aIndex ) throw (uno::RuntimeException)
{
uno::Reference< frame::XModel > xModel( getModel() );
uno::Reference <sheet::XSpreadsheetDocument> xSpreadDoc( xModel, uno::UNO_QUERY_THROW );
uno::Reference<container::XIndexAccess > xSheets( xSpreadDoc->getSheets(), uno::UNO_QUERY_THROW );
uno::Reference< XCollection > xWorkSheets( new ScVbaWorksheets( this, mxContext, xSheets, xModel ) );
if ( aIndex.getValueTypeClass() == uno::TypeClass_VOID )
{
return uno::Any( xWorkSheets );
}
// pass on to collection
return uno::Any( xWorkSheets->Item( aIndex, uno::Any() ) );
}
uno::Any SAL_CALL
ScVbaWorkbook::Windows( const uno::Any& aIndex ) throw (uno::RuntimeException)
{
uno::Reference< excel::XWindows > xWindows( new ScVbaWindows( getParent(), mxContext ) );
if ( aIndex.getValueTypeClass() == uno::TypeClass_VOID )
return uno::Any( xWindows );
return uno::Any( xWindows->Item( aIndex, uno::Any() ) );
}
void SAL_CALL
ScVbaWorkbook::Activate() throw (uno::RuntimeException)
{
VbaDocumentBase::Activate();
}
void
ScVbaWorkbook::Protect( const uno::Any &aPassword ) throw (uno::RuntimeException)
{
VbaDocumentBase::Protect( aPassword );
}
::sal_Bool
ScVbaWorkbook::getProtectStructure() throw (uno::RuntimeException)
{
uno::Reference< util::XProtectable > xProt( getModel(), uno::UNO_QUERY_THROW );
return xProt->isProtected();
}
::sal_Bool SAL_CALL ScVbaWorkbook::getPrecisionAsDisplayed() throw (uno::RuntimeException)
{
uno::Reference< frame::XModel > xModel( getModel(), uno::UNO_QUERY_THROW );
ScDocument* pDoc = excel::getDocShell( xModel )->GetDocument();
return pDoc->GetDocOptions().IsCalcAsShown();
}
void SAL_CALL ScVbaWorkbook::setPrecisionAsDisplayed( sal_Bool _precisionAsDisplayed ) throw (uno::RuntimeException)
{
uno::Reference< frame::XModel > xModel( getModel(), uno::UNO_QUERY_THROW );
ScDocument* pDoc = excel::getDocShell( xModel )->GetDocument();
ScDocOptions aOpt = pDoc->GetDocOptions();
aOpt.SetCalcAsShown( _precisionAsDisplayed );
pDoc->SetDocOptions( aOpt );
}
void
ScVbaWorkbook::SaveCopyAs( const OUString& sFileName ) throw ( uno::RuntimeException)
{
OUString aURL;
osl::FileBase::getFileURLFromSystemPath( sFileName, aURL );
uno::Reference< frame::XStorable > xStor( getModel(), uno::UNO_QUERY_THROW );
uno::Sequence< beans::PropertyValue > storeProps(1);
storeProps[0].Name = OUString( "FilterName" );
storeProps[0].Value <<= OUString( "MS Excel 97" );
xStor->storeToURL( aURL, storeProps );
}
void SAL_CALL
ScVbaWorkbook::SaveAs( const uno::Any& FileName, const uno::Any& FileFormat, const uno::Any& /*Password*/, const uno::Any& /*WriteResPassword*/, const uno::Any& /*ReadOnlyRecommended*/, const uno::Any& /*CreateBackup*/, const uno::Any& /*AccessMode*/, const uno::Any& /*ConflictResolution*/, const uno::Any& /*AddToMru*/, const uno::Any& /*TextCodepage*/, const uno::Any& /*TextVisualLayout*/, const uno::Any& /*Local*/ )
{
OUString sFileName;
FileName >>= sFileName;
OUString sURL;
osl::FileBase::getFileURLFromSystemPath( sFileName, sURL );
// detect if there is no path if there is no path then we need
// to use the current current folder
INetURLObject aURL( sURL );
sURL = aURL.GetMainURL( INetURLObject::DECODE_TO_IURI );
if( sURL.isEmpty() )
{
// need to add cur dir ( of this workbook ) or else the 'Work' dir
sURL = getModel()->getURL();
if ( sURL.isEmpty() )
{
// not path available from 'this' document
// need to add the 'document'/work directory then
uno::Reference< excel::XApplication > xApplication ( Application(),uno::UNO_QUERY_THROW );
OUString sWorkPath = xApplication->getDefaultFilePath();
OUString sWorkURL;
osl::FileBase::getFileURLFromSystemPath( sWorkPath, sWorkURL );
aURL.SetURL( sWorkURL );
}
else
{
aURL.SetURL( sURL );
aURL.Append( sFileName );
}
sURL = aURL.GetMainURL( INetURLObject::DECODE_TO_IURI );
}
sal_Int32 nFileFormat = excel::XlFileFormat::xlExcel9795;
FileFormat >>= nFileFormat;
uno::Sequence< beans::PropertyValue > storeProps(1);
storeProps[0].Name = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "FilterName" ) );
setFilterPropsFromFormat( nFileFormat, storeProps );
uno::Reference< frame::XStorable > xStor( getModel(), uno::UNO_QUERY_THROW );
OUString sFilterName;
storeProps[0].Value >>= sFilterName;
xStor->storeAsURL( sURL, storeProps );
}
css::uno::Any SAL_CALL
ScVbaWorkbook::Styles( const uno::Any& Item ) throw (uno::RuntimeException)
{
// quick look and Styles object doesn't seem to have a valid parent
// or a least the object browser just shows an object that has no
// variables ( therefore... leave as NULL for now )
uno::Reference< XCollection > dStyles = new ScVbaStyles( uno::Reference< XHelperInterface >(), mxContext, getModel() );
if ( Item.hasValue() )
return dStyles->Item( Item, uno::Any() );
return uno::makeAny( dStyles );
}
uno::Any SAL_CALL
ScVbaWorkbook::Names( const uno::Any& aIndex ) throw (uno::RuntimeException)
{
uno::Reference< frame::XModel > xModel( getModel(), uno::UNO_SET_THROW );
uno::Reference< beans::XPropertySet > xProps( xModel, uno::UNO_QUERY_THROW );
uno::Reference< sheet::XNamedRanges > xNamedRanges( xProps->getPropertyValue( OUString("NamedRanges") ), uno::UNO_QUERY_THROW );
uno::Reference< XCollection > xNames( new ScVbaNames( this, mxContext, xNamedRanges, xModel ) );
if ( aIndex.hasValue() )
return uno::Any( xNames->Item( aIndex, uno::Any() ) );
return uno::Any( xNames );
}
OUString
ScVbaWorkbook::getServiceImplName()
{
return OUString("ScVbaWorkbook");
}
uno::Sequence< OUString >
ScVbaWorkbook::getServiceNames()
{
static uno::Sequence< OUString > aServiceNames;
if ( aServiceNames.getLength() == 0 )
{
aServiceNames.realloc( 1 );
aServiceNames[ 0 ] = OUString("ooo.vba.excel.Workbook" );
}
return aServiceNames;
}
OUString SAL_CALL
ScVbaWorkbook::getCodeName() throw (css::uno::RuntimeException)
{
uno::Reference< beans::XPropertySet > xModelProp( getModel(), uno::UNO_QUERY_THROW );
return xModelProp->getPropertyValue( OUString( "CodeName" ) ).get< OUString >();
}
sal_Int64
ScVbaWorkbook::getSomething(const uno::Sequence<sal_Int8 >& rId ) throw(css::uno::RuntimeException)
{
if (rId.getLength() == 16 &&
0 == memcmp( ScVbaWorksheet::getUnoTunnelId().getConstArray(), rId.getConstArray(), 16 ))
{
return sal::static_int_cast<sal_Int64>(reinterpret_cast<sal_IntPtr>(this));
}
return 0;
}
namespace workbook
{
namespace sdecl = comphelper::service_decl;
sdecl::vba_service_class_<ScVbaWorkbook, sdecl::with_args<true> > serviceImpl;
extern sdecl::ServiceDecl const serviceDecl(
serviceImpl,
"ScVbaWorkbook",
"ooo.vba.excel.Workbook" );
}
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
Reference in New Issue View Git Blame Copy Permalink