Доступ к Com из Excel

Тема в разделе "Другие", создана пользователем from_Minsk, 21 ноя 2006.

Статус темы:
Закрыта.
  1. from_Minsk

    from_Minsk Гость

    Привет всем!

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

    from_Minsk Гость

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

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

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

    Range("C2").Value = Invoice_ID

    End Sub
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей