Получить доступ из dll к данным из программы

#import \
    "C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\vbe6ext.olb"
//Excel Application objects 
#import "C:\Program Files (x86)\Microsoft Office\OFFICE11\EXCEL.EXE" \
try
{
CoInitialize(NULL);
        
Excel::_ApplicationPtr xl;
xl.GetActiveObject(L"Excel.Application");
xl->Visible = true;
Excel::_WorkbookPtr pWorkbook = xl->ActiveWorkbook;
Excel::_WorksheetPtr pSheet =pWorkbook->Worksheets->Item["Auto"];
Excel::RangePtr pRange = pSheet->Cells;
pRange->Item[16][3]= NULLL;
rtAP(&pAPI->pArrays[7],60)=0.0F;// переустановка сохраненного значения торговой системы
} 
//If there has been an error, say so
catch(_com_error & error)
{
    
}
//Finally Uninitialise the COM interface
CoUninitialize();
              }

#include "trans2quik_api.h"
#pragma comment(lib,"TRANS2QUIK.lib")
 extern "C" void __stdcall TRANS2QUIK_TransactionsReplyCallback (long nTransactionResult, long nTransactionExtendedErrorCode, long nTransactionReplyCode, DWORD dwTransId, double dOrderNum, LPCSTR lpcstrTransactionReplyMessage);

void __declspec(dllexport) SetCountA(int countA)
{
   // принимаем CountA, что-то с ней делаем.
   // запомнить, чтобы использовать после выхода из процедуры на стороне С++ не можем.
}

SetCountA(int count){
 
countA=count;
}

void __declspec(dllexport) SetCountA(int countA);
/*******************************************************************************/
IRTAPI_ENTRY main(IRTAPI *p);
/*******************************************************************************/
IRTAPI_ENTRY main(IRTAPI *pAPI) 
{
}
void SetCountA(double count){
 
CountA=count;
}

void __declspec(dllexport) SetCountA(double count);
/*******************************************************************************/
IRTAPI_ENTRY main(IRTAPI *p);
/*******************************************************************************/
IRTAPI_ENTRY main(IRTAPI *pAPI){}
void SetCountA(double count){
 
CountA=count;
}