Привет всем!

Имеется приложение, DLL (ATL COM), шаблон Excel

//Код приложения
...
IReports iRep;
iRep.CreateDispatch("Reports.Reports");
iRep.SetInvoice_iD(m_long);
...
using namespace Excel;
_ApplicationPtr excel("Excel.Application");
excel->Visible[0] = true;
_WorkbookPtr book = excel->Workbooks->Open("D:\\MyDocuments\\Книга1.xls");
...

'Код шаблона Книга1.xls
Private Sub Workbook_Activate()
Dim App As Reports
Set App = New Reports
Range("B2").Value = App.Invoice_iD
End Sub

?Как получить с помощью VBA значение Invoice_iD == m_long

Вопрос снимается.

//Вызов макроса с параметром
excel->Run("GetInvoice_ID",m_long);

'Макрос
Sub GetInvoice_ID(Invoice_ID As Long)

Range("C2").Value = Invoice_ID

End Sub