sc/source/ui/vba/vbaglobals.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: vbaglobals.cxx,v $
  10  * $Revision: 1.4 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30 #include <vbahelper/helperdecl.hxx>
  31 #include "vbaglobals.hxx"
  32
  33 #include <comphelper/unwrapargs.hxx>
  34
  35 #include <com/sun/star/lang/XMultiComponentFactory.hpp>
  36 #include <com/sun/star/beans/XPropertySet.hpp>
  37 #include <cppuhelper/component_context.hxx>
  38
  39 #include "vbaapplication.hxx"
  40 #include "vbaworksheet.hxx"
  41 #include "vbarange.hxx"
  42 #include <cppuhelper/bootstrap.hxx>
  43 using namespace ::com::sun::star;
  44 using namespace ::com::sun::star::uno;
  45 using namespace ::ooo::vba;
  46
  47
  48
  49 // =============================================================================
  50 // ScVbaGlobals
  51 // =============================================================================
  52
  53 //ScVbaGlobals::ScVbaGlobals(  css::uno::Reference< css::uno::XComponentContext >const& rxContext,  ) : ScVbaGlobals_BASE( uno::Reference< XHelperInterface >(), rxContext )
  54 rtl::OUString sDocCtxName( RTL_CONSTASCII_USTRINGPARAM("ExcelDocumentContext") );
  55
  56 ScVbaGlobals::ScVbaGlobals( uno::Sequence< uno::Any > const& aArgs, uno::Reference< uno::XComponentContext >const& rxContext ) : ScVbaGlobals_BASE( uno::Reference< XHelperInterface >(), rxContext, sDocCtxName )
  57 {
  58     OSL_TRACE("ScVbaGlobals::ScVbaGlobals()");
  59
  60         uno::Sequence< beans::PropertyValue > aInitArgs( 2 );
  61         aInitArgs[ 0 ].Name = rtl::OUString::createFromAscii("Application");
  62         aInitArgs[ 0 ].Value = uno::makeAny( getApplication() );
  63         aInitArgs[ 1 ].Name = sDocCtxName;
  64         aInitArgs[ 1 ].Value = uno::makeAny( getXSomethingFromArgs< frame::XModel >( aArgs, 0 ) );
  65
  66         init( aInitArgs );
  67 }
  68
  69 ScVbaGlobals::~ScVbaGlobals()
  70 {
  71     OSL_TRACE("ScVbaGlobals::~ScVbaGlobals");
  72 }
  73
  74 // =============================================================================
  75 // XGlobals
  76 // =============================================================================
  77 uno::Reference<excel::XApplication >
  78 ScVbaGlobals::getApplication() throw (uno::RuntimeException)
  79 {
  80 //      OSL_TRACE("In ScVbaGlobals::getApplication");
  81         if ( !mxApplication.is() )
  82             mxApplication.set( new ScVbaApplication( mxContext) );
  83     return mxApplication;
  84 }
  85
  86 uno::Reference< excel::XWorkbook > SAL_CALL
  87 ScVbaGlobals::getActiveWorkbook() throw (uno::RuntimeException)
  88 {
  89 //      OSL_TRACE("In ScVbaGlobals::getActiveWorkbook");
  90     uno::Reference< excel::XWorkbook > xWorkbook( getApplication()->getActiveWorkbook(), uno::UNO_QUERY);
  91     if ( xWorkbook.is() )
  92     {
  93         return xWorkbook;
  94     }
  95 // FIXME check if this is correct/desired behavior
  96     throw uno::RuntimeException( rtl::OUString::createFromAscii(
  97         "No activeWorkbook available" ), Reference< uno::XInterface >() );
  98 }
  99
 100
 101 uno::Reference< excel::XWindow > SAL_CALL
 102 ScVbaGlobals::getActiveWindow() throw (uno::RuntimeException)
 103 {
 104     return getApplication()->getActiveWindow();
 105 }
 106
 107 uno::Reference< excel::XWorksheet > SAL_CALL
 108 ScVbaGlobals::getActiveSheet() throw (uno::RuntimeException)
 109 {
 110     return getApplication()->getActiveSheet();
 111 }
 112
 113 uno::Any SAL_CALL
 114 ScVbaGlobals::WorkBooks( const uno::Any& aIndex ) throw (uno::RuntimeException)
 115 {
 116         return uno::Any( getApplication()->Workbooks(aIndex) );
 117 }
 118
 119 uno::Any SAL_CALL
 120 ScVbaGlobals::WorkSheets(const uno::Any& aIndex) throw (uno::RuntimeException)
 121 {
 122         return getApplication()->Worksheets( aIndex );
 123 }
 124 uno::Any SAL_CALL
 125 ScVbaGlobals::Sheets( const uno::Any& aIndex ) throw (uno::RuntimeException)
 126 {
 127     return WorkSheets( aIndex );
 128 }
 129
 130 uno::Any SAL_CALL
 131 ScVbaGlobals::Range( const uno::Any& Cell1, const uno::Any& Cell2 ) throw (uno::RuntimeException)
 132 {
 133         return getApplication()->Range( Cell1, Cell2 );
 134 }
 135
 136 uno::Any SAL_CALL
 137 ScVbaGlobals::Names( const css::uno::Any& aIndex ) throw ( uno::RuntimeException )
 138     {
 139         return getApplication()->Names( aIndex );
 140     }
 141
 142 uno::Reference< excel::XRange > SAL_CALL
 143 ScVbaGlobals::getActiveCell() throw (uno::RuntimeException)
 144 {
 145         return getApplication()->getActiveCell();
 146 }
 147
 148 uno::Reference< XAssistant > SAL_CALL
 149 ScVbaGlobals::getAssistant() throw (uno::RuntimeException)
 150 {
 151         return getApplication()->getAssistant();
 152 }
 153
 154 uno::Any SAL_CALL
 155 ScVbaGlobals::getSelection() throw (uno::RuntimeException)
 156 {
 157         return getApplication()->getSelection();
 158 }
 159
 160 uno::Reference< excel::XWorkbook > SAL_CALL
 161 ScVbaGlobals::getThisWorkbook() throw (uno::RuntimeException)
 162 {
 163         return getApplication()->getThisWorkbook();
 164 }
 165 void SAL_CALL
 166 ScVbaGlobals::Calculate()  throw (::com::sun::star::script::BasicErrorException, ::com::sun::star::uno::RuntimeException)
 167 {
 168         return getApplication()->Calculate();
 169 }
 170
 171 uno::Reference< excel::XRange > SAL_CALL
 172 ScVbaGlobals::Cells( const uno::Any& RowIndex, const uno::Any& ColumnIndex ) throw (uno::RuntimeException)
 173 {
 174         return getApplication()->getActiveSheet()->Cells( RowIndex, ColumnIndex );
 175 }
 176 uno::Reference< excel::XRange > SAL_CALL
 177 ScVbaGlobals::Columns( const uno::Any& aIndex ) throw (uno::RuntimeException)
 178 {
 179         return getApplication()->getActiveSheet()->Columns( aIndex );
 180 }
 181
 182 uno::Any SAL_CALL
 183 ScVbaGlobals::CommandBars( const uno::Any& aIndex ) throw (uno::RuntimeException)
 184 {
 185         uno::Reference< XApplicationBase > xBase( getApplication(), uno::UNO_QUERY_THROW );
 186         return xBase->CommandBars( aIndex );
 187 }
 188
 189 css::uno::Reference< ov::excel::XRange > SAL_CALL
 190 ScVbaGlobals::Union( const css::uno::Reference< ov::excel::XRange >& Arg1, const css::uno::Reference< ov::excel::XRange >& Arg2, const css::uno::Any& Arg3, const css::uno::Any& Arg4, const css::uno::Any& Arg5, const css::uno::Any& Arg6, const css::uno::Any& Arg7, const css::uno::Any& Arg8, const css::uno::Any& Arg9, const css::uno::Any& Arg10, const css::uno::Any& Arg11, const css::uno::Any& Arg12, const css::uno::Any& Arg13, const css::uno::Any& Arg14, const css::uno::Any& Arg15, const css::uno::Any& Arg16, const css::uno::Any& Arg17, const css::uno::Any& Arg18, const css::uno::Any& Arg19, const css::uno::Any& Arg20, const css::uno::Any& Arg21, const css::uno::Any& Arg22, const css::uno::Any& Arg23, const css::uno::Any& Arg24, const css::uno::Any& Arg25, const css::uno::Any& Arg26, const css::uno::Any& Arg27, const css::uno::Any& Arg28, const css::uno::Any& Arg29, const css::uno::Any& Arg30 ) throw (css::script::BasicErrorException, css::uno::RuntimeException)
 191 {
 192         return getApplication()->Union(  Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30 );
 193 }
 194 css::uno::Reference< ov::excel::XRange > SAL_CALL
 195 ScVbaGlobals::Intersect( const css::uno::Reference< ov::excel::XRange >& Arg1, const css::uno::Reference< ov::excel::XRange >& Arg2, const css::uno::Any& Arg3, const css::uno::Any& Arg4, const css::uno::Any& Arg5, const css::uno::Any& Arg6, const css::uno::Any& Arg7, const css::uno::Any& Arg8, const css::uno::Any& Arg9, const css::uno::Any& Arg10, const css::uno::Any& Arg11, const css::uno::Any& Arg12, const css::uno::Any& Arg13, const css::uno::Any& Arg14, const css::uno::Any& Arg15, const css::uno::Any& Arg16, const css::uno::Any& Arg17, const css::uno::Any& Arg18, const css::uno::Any& Arg19, const css::uno::Any& Arg20, const css::uno::Any& Arg21, const css::uno::Any& Arg22, const css::uno::Any& Arg23, const css::uno::Any& Arg24, const css::uno::Any& Arg25, const css::uno::Any& Arg26, const css::uno::Any& Arg27, const css::uno::Any& Arg28, const css::uno::Any& Arg29, const css::uno::Any& Arg30 ) throw (css::script::BasicErrorException, css::uno::RuntimeException)
 196 {
 197         return getApplication()->Intersect(  Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30 );
 198 }
 199
 200 uno::Any SAL_CALL
 201 ScVbaGlobals::Evaluate( const ::rtl::OUString& Name ) throw (uno::RuntimeException)
 202 {
 203         return getApplication()->Evaluate( Name );
 204 }
 205
 206 css::uno::Any SAL_CALL
 207 ScVbaGlobals::WorksheetFunction(  ) throw (css::uno::RuntimeException)
 208 {
 209         return getApplication()->WorksheetFunction();
 210 }
 211
 212 uno::Any SAL_CALL
 213 ScVbaGlobals::Windows( const uno::Any& aIndex ) throw (uno::RuntimeException)
 214 {
 215         return getApplication()->Windows( aIndex );
 216 }
 217
 218 uno::Reference< excel::XRange > SAL_CALL
 219 ScVbaGlobals::Rows( const uno::Any& aIndex ) throw (uno::RuntimeException)
 220 {
 221         return getApplication()->getActiveSheet()->Rows( aIndex );
 222
 223 }
 224
 225 uno::Any SAL_CALL
 226 ScVbaGlobals::MenuBars( const uno::Any& aIndex ) throw (uno::RuntimeException)
 227 {
 228         return uno::Any( getApplication()->MenuBars(aIndex) );
 229 }
 230
 231 uno::Sequence< ::rtl::OUString > SAL_CALL
 232 ScVbaGlobals::getAvailableServiceNames(  ) throw (uno::RuntimeException)
 233 {
 234     static bool bInit = false;
 235     static uno::Sequence< rtl::OUString > serviceNames( ScVbaGlobals_BASE::getAvailableServiceNames() );
 236     if ( !bInit )
 237     {
 238          rtl::OUString names[] = {
 239             ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM ( "ooo.vba.excel.Range" ) ),
 240             ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM ( "ooo.vba.excel.Workbook" ) ),
 241             ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM ( "ooo.vba.excel.Window" ) ),
 242             ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM ( "ooo.vba.excel.Worksheet" ) ),
 243             ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM ( "ooo.vba.excel.Application" ) ),
 244             ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM ( "ooo.vba.excel.Hyperlink" ) ),
 245           };
 246         sal_Int32 nExcelServices = ( sizeof( names )/ sizeof( names[0] ) );
 247         sal_Int32 startIndex = serviceNames.getLength();
 248         serviceNames.realloc( serviceNames.getLength() + nExcelServices );
 249         for ( sal_Int32 index = 0; index < nExcelServices; ++index )
 250              serviceNames[ startIndex + index ] = names[ index ];
 251         bInit = true;
 252     }
 253     return serviceNames;
 254 }
 255
 256 rtl::OUString&
 257 ScVbaGlobals::getServiceImplName()
 258 {
 259         static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaGlobals") );
 260         return sImplName;
 261 }
 262
 263 uno::Sequence< rtl::OUString >
 264 ScVbaGlobals::getServiceNames()
 265 {
 266         static uno::Sequence< rtl::OUString > aServiceNames;
 267         if ( aServiceNames.getLength() == 0 )
 268         {
 269                 aServiceNames.realloc( 1 );
 270                 aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.excel.Globals" ) );
 271         }
 272         return aServiceNames;
 273 }
 274
 275 namespace globals
 276 {
 277 namespace sdecl = comphelper::service_decl;
 278 sdecl::vba_service_class_<ScVbaGlobals, sdecl::with_args<true> > serviceImpl;
 279 extern sdecl::ServiceDecl const serviceDecl(
 280     serviceImpl,
 281     "ScVbaGlobals",
 282     "ooo.vba.excel.Globals" );
 283 }
 284