Использование ATL класса из COM DLL в обычной DLL

// VBA.h: объявление CVBA
 
#pragma once
#include "resource.h"       // основные символы
#include "BedvitCOM_i.h"
 
 
#if defined(_WIN32_WCE) && !defined(_CE_DCOM) && !defined(_CE_ALLOW_SINGLE_THREADED_OBJECTS_IN_MTA)
#error "Однопотоковые COM-объекты не поддерживаются должным образом платформой Windows CE, например платформами Windows Mobile, в которых не предусмотрена полная поддержка DCOM. Определите _CE_ALLOW_SINGLE_THREADED_OBJECTS_IN_MTA, чтобы принудить ATL поддерживать создание однопотоковых COM-объектов и разрешить использование его реализаций однопотоковых COM-объектов. Для потоковой модели в вашем rgs-файле задано значение 'Free', поскольку это единственная потоковая модель, поддерживаемая не-DCOM платформами Windows CE."
#endif
 
using namespace ATL;
 
class ATL_NO_VTABLE CVBA :
    public CComObjectRootEx<CComSingleThreadModel>,
    public CComCoClass<CVBA, &CLSID_VBA>,
    public IDispatchImpl<IVBA, &IID_IVBA, &LIBID_BedvitCOM, /*wMajor =*/ 1, /*wMinor =*/ 0>
{
public:
 
DECLARE_REGISTRY_RESOURCEID(108)
 
 
BEGIN_COM_MAP(CVBA)
    COM_INTERFACE_ENTRY(IVBA)
    COM_INTERFACE_ENTRY(IDispatch)
END_COM_MAP()
 
 
 
    DECLARE_PROTECT_FINAL_CONSTRUCT()
 
    HRESULT FinalConstruct()
    {
        return S_OK;
    }
 
    void FinalRelease()
    {
    }
 
public:
 
    STDMETHOD(ArraySortS)(VARIANT* array_in_out, VARIANT_BOOL sort_order, LONG key_1, LONG key_2, LONG key_3, LONG sort_orientation, VARIANT_BOOL delete_duplicates, VARIANT_BOOL out_array_index, VARIANT* index_array_ou);
    STDMETHOD(Trim)(BSTR StringIn, BSTR* StringOut);
    STDMETHOD(FilterUnicodeChar)(BSTR StringIn, BSTR EnableChar, BSTR DisableChar, BSTR* ResultOut);
    STDMETHOD(LikeUnicodeChar)(BSTR stringIn, BSTR maskChar, VARIANT_BOOL invertMask, VARIANT_BOOL* result);    
    STDMETHOD(Replace)(BSTR StringIn, BSTR StringFind, BSTR StringReplace, LONG Start, LONG Count, BSTR* StringOut);
    STDMETHOD(InStr)(BSTR StringIn, BSTR StringFind, LONG Start, LONG* Position);
    STDMETHOD(ArraySortV)(VARIANT* array_in_out, LONG key_1, VARIANT_BOOL sort_order1, LONG key_2, VARIANT_BOOL sort_order2, LONG key_3, VARIANT_BOOL sort_order3, BSTR key_and_sort_order_next);
    STDMETHOD(Transpose)(VARIANT* array_in_out);
    STDMETHOD(QRcodePrint)(BSTR QRcodeText, BSTR FileOut, LONGLONG FormatImageOut, LONGLONG SizePixel, LONGLONG PixelColorR, LONGLONG PixelColorG, LONGLONG PixelColorB, LONGLONG VersionSymbol, LONGLONG LevelErrCorrect, LONGLONG QuietZone, BSTR* StringOut);
    STDMETHOD(ConvertFormatImage)(BSTR FileIn, BSTR FileOut, BYTE FormatImageOut);
    STDMETHOD(GetRowsCountCSVansi)(BSTR FileIn, LONG FileFlagNoBuffering, LONG* RowsCountOut);
    STDMETHOD(GetRowCSVansi)(BSTR FileIn, LONG IndexString, LONG FileFlagNoBuffering, BSTR* StringOut);
    STDMETHOD(FindRowsInCSVansi)(BSTR FileIn, BSTR FindString, LONG MultiLine, LONG FileFlagNoBuffering, BSTR* StringOut);
    STDMETHOD(SortDeleteDuplicateRowsCSVansi)(BSTR FileIn, BSTR FileOut, LONG HeaderRowsCount, LONG OnlySort, LONG SortOrder, LONG FileFlagNoBuffering, LONG SetLocale, BSTR Locale, LONGLONG* RowsCountOut);
    STDMETHOD(HashStringSHA)(BSTR StringIn, LONG VersionSHA, BSTR* StringOut);
    //STDMETHOD(ReDimArray)(VARIANT* array_in_out, LONG cDims, LONG cElements1, LONG lLbound1, LONG cElements2, LONG lLbound2, LONG cElements3, LONG lLbound3, LONG cElements4, LONG lLbound4, LONG cElements5, LONG lLbound5);
    STDMETHOD(Array2Dto1D)(VARIANT* array_in_out, LONG lLbound1);
    STDMETHOD(Array1Dto2D)(VARIANT* array_in_out, LONG lLbound1, LONG lLbound2);
 
};
 
OBJECT_ENTRY_AUTO(__uuidof(VBA), CVBA)