Есть тестовый код на C++, в котором описана функция
MyFun001 и класс
MyClass , который содержит функцию
CFun001 и переменную
CVal . Код компилируется в библиотеку DLL (используется Visual Studio 2015).
Описанный тестовый проект С++ содержит два файла:
source.cpp и
DefFile.def .
Файл DefFile.def нужен, как я понимаю, для того, чтобы указать компилятору создать в DLL точки входа для функций (чтобы def-файл учитывался компилятором, в настройках проекта нужно указать имя этого файла - см. подробнее
здесь ).
Содержание кода С++:
source.cpp:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
// заголовки класса и функции
int _stdcall MyFun001(int);
class MyClass
{
public:
MyClass();
int CFun001(int);
private:
int CVal;
};
// реализация класса и функции
int _stdcall MyFun001(int x)
{
MyClass mc;
return mc.CFun001(x);
}
MyClass::MyClass()
{
CVal = 3;
}
int MyClass::CFun001(int y)
{
return CVal * y;
}
1.
2.
3.
LIBRARY "source"
EXPORTS
MyFun001
в MS Excel 2010:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Declare PtrSafe Function MyFun001 Lib "D:\_CPP\TestLib\TestLib001\Debug\TestLib001.dll" _
(ByVal x As Long) As Long
Private Sub TestMyDLL()
x& = 4
Debug.Print MyFun001(x)
Dim o1 As New MyClass
Debug.Print o1.CFun001(x)
End Sub
Функция
MyFun001 из DLL в VBA запускается и корректно работает. Но как создать объект класса
MyClass я не понимаю, приведённый код вызывает ошибку "User-defined type not defined". В файле .def класс описать нельзя так же как функции, а в VBA класс нельзя декларировать (Declare Class...).
