sc/source/filter/excel/expop2.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20 #include <unotools/fltrcfg.hxx>
  21
  22 #include <osl/diagnose.h>
  23 #include <sfx2/objsh.hxx>
  24 #include <sfx2/docinf.hxx>
  25 #include <filter/msfilter/svxmsbas.hxx>
  26
  27 #include <oox/ole/vbaexport.hxx>
  28
  29 #include <scerrors.hxx>
  30
  31 #include <root.hxx>
  32 #include <excdoc.hxx>
  33 #include <exp_op.hxx>
  34
  35 #include <xehelper.hxx>
  36
  37 #include <officecfg/Office/Calc.hxx>
  38
  39 #include <com/sun/star/document/XDocumentPropertiesSupplier.hpp>
  40
  41 namespace com { namespace sun { namespace star { namespace document { class XDocumentProperties; } } } }
  42
  43 namespace {
  44
  45 enum class VBAExportMode
  46 {
  47     NONE,
  48     REEXPORT_STREAM,
  49     FULL_EXPORT
  50 };
  51
  52 }
  53
  54 ExportBiff5::ExportBiff5( XclExpRootData& rExpData, SvStream& rStrm ):
  55     ExportTyp( rStrm ),
  56     XclExpRoot( rExpData )
  57 {
  58     // only need part of the Root data
  59     pExcRoot = &GetOldRoot();
  60     pExcRoot->pER = this;   // ExcRoot -> XclExpRoot
  61     pExcRoot->eDateiTyp = Biff5;
  62     pExcDoc.reset( new ExcDocument( *this ) );
  63 }
  64
  65 ExportBiff5::~ExportBiff5()
  66 {
  67 }
  68
  69 ErrCode ExportBiff5::Write()
  70 {
  71     SfxObjectShell* pDocShell = GetDocShell();
  72     OSL_ENSURE( pDocShell, "ExportBiff5::Write - no document shell" );
  73
  74     tools::SvRef<SotStorage> xRootStrg = GetRootStorage();
  75     OSL_ENSURE( xRootStrg.is(), "ExportBiff5::Write - no root storage" );
  76
  77     VBAExportMode eVbaExportMode = VBAExportMode::NONE;
  78     if( GetBiff() == EXC_BIFF8 )
  79     {
  80         if (officecfg::Office::Calc::Filter::Import::VBA::UseExport::get())
  81             eVbaExportMode = VBAExportMode::FULL_EXPORT;
  82         else
  83         {
  84             const SvtFilterOptions& rFilterOpt = SvtFilterOptions::Get();
  85             if (rFilterOpt.IsLoadExcelBasicStorage())
  86                 eVbaExportMode = VBAExportMode::REEXPORT_STREAM;
  87         }
  88     }
  89
  90     if ( pDocShell && xRootStrg.is() && eVbaExportMode == VBAExportMode::FULL_EXPORT)
  91     {
  92         VbaExport aExport(pDocShell->GetModel());
  93         if (aExport.containsVBAProject())
  94         {
  95             tools::SvRef<SotStorage> xVBARoot = xRootStrg->OpenSotStorage("_VBA_PROJECT_CUR");
  96             aExport.exportVBA( xVBARoot.get() );
  97         }
  98     }
  99     else if( pDocShell && xRootStrg.is() && eVbaExportMode == VBAExportMode::REEXPORT_STREAM )
 100     {
 101         SvxImportMSVBasic aBasicImport( *pDocShell, *xRootStrg );
 102         const ErrCode nErr = aBasicImport.SaveOrDelMSVBAStorage( true, EXC_STORAGE_VBA_PROJECT );
 103         if( nErr != ERRCODE_NONE )
 104             pDocShell->SetError(nErr);
 105     }
 106
 107     pExcDoc->ReadDoc();         // ScDoc -> ExcDoc
 108     pExcDoc->Write( aOut );     // wechstreamen
 109
 110     if( pDocShell && xRootStrg.is() )
 111     {
 112         using namespace ::com::sun::star;
 113         uno::Reference<document::XDocumentPropertiesSupplier> xDPS(
 114                 pDocShell->GetModel(), uno::UNO_QUERY_THROW);
 115         uno::Reference<document::XDocumentProperties> xDocProps
 116                 = xDPS->getDocumentProperties();
 117         if ( SvtFilterOptions::Get().IsEnableCalcPreview() )
 118         {
 119             std::shared_ptr<GDIMetaFile> xMetaFile =
 120                 pDocShell->GetPreviewMetaFile();
 121             uno::Sequence<sal_Int8> metaFile(
 122                 sfx2::convertMetaFile(xMetaFile.get()));
 123             sfx2::SaveOlePropertySet( xDocProps, xRootStrg.get(), &metaFile );
 124         }
 125         else
 126             sfx2::SaveOlePropertySet( xDocProps, xRootStrg.get() );
 127     }
 128
 129     const XclExpAddressConverter& rAddrConv = GetAddressConverter();
 130     if( rAddrConv.IsRowTruncated() )
 131         return SCWARN_EXPORT_MAXROW;
 132     if( rAddrConv.IsColTruncated() )
 133         return SCWARN_EXPORT_MAXCOL;
 134     if( rAddrConv.IsTabTruncated() )
 135         return SCWARN_EXPORT_MAXTAB;
 136
 137     return ERRCODE_NONE;
 138 }
 139
 140 ExportBiff8::ExportBiff8( XclExpRootData& rExpData, SvStream& rStrm ) :
 141     ExportBiff5( rExpData, rStrm )
 142 {
 143     pExcRoot->eDateiTyp = Biff8;
 144 }
 145
 146 ExportBiff8::~ExportBiff8()
 147 {
 148 }
 149 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */