Доступ к Com из Excel

  • Автор темы from_Minsk
  • Дата начала
Статус
Закрыто для дальнейших ответов.
F

from_Minsk

Гость
#1
Привет всем!

Имеется приложение, 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
 
F

from_Minsk

Гость
#2
Вопрос снимается.

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

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

Range("C2").Value = Invoice_ID

End Sub
 
Статус
Закрыто для дальнейших ответов.