• 🔥 Бесплатный курс от Академии Кодебай: «Анализ защищенности веб-приложений»

    🛡 Научитесь находить и использовать уязвимости веб-приложений.
    🧠 Изучите SQLi, XSS, CSRF, IDOR и другие типовые атаки на практике.
    🧪 Погрузитесь в реальные лаборатории и взломайте свой первый сайт!
    🚀 Подходит новичкам — никаких сложных предварительных знаний не требуется.

    Доступ открыт прямо сейчас Записаться бесплатно

Доступ к Com из Excel

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

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
 
Вопрос снимается.

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

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

Range("C2").Value = Invoice_ID

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

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab