Как создать файл DLL так, чтобы его можно было подключить к VBA Excel?

@Thor · Регистрация: 12.12.2014

Студворк — интернет-сервис помощи студентам

Пытаясь научиться подключать к VBA хотя бы самую тривиальную функцию на C++.

Для примера написал на C++ простую функцию Kvadrat и попытался сделать DLL. Сначала использовал Dev-C++. Создаю там проект, выбираю иконку "DLL". Появляется два файла. "dll.h" и "dllmain.cpp".

"dll.h" содержит:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#ifndef _DLL_H_
#define _DLL_H_
 
#if BUILDING_DLL
#define DLLIMPORT __declspec(dllexport)
#else
#define DLLIMPORT __declspec(dllimport)
#endif
 
class DLLIMPORT DllClass
{
    public:
        DllClass();
        virtual ~DllClass();
        void HelloWorld();
};
 
#endif

После этого в "dll.h" я дописываю следующее:

C++
1
double kvadtar( double x);

Далее в изначально пустой файл "dllmain.cpp" я дописываю:

C++
1
2
3
4
double kvadtar( double x)
{
    return x*x;
}

Компилирую. Ошибок нет, всё ОК.

Далее в VBA Excel написал следующее (как прочитал в соседних ветках форума, это правильно):

Visual Basic
1
2
3
4
5
6
Declare Function kvadrat Lib "F:\CODING\CPP\dll03\Project1.dll" (x As Double) As Double
Sub TTTTT()
    Dim x As Double
    x = 4
    Debug.Print kvadrat(a)
End Sub

При запуске кода выдаёт ошибку - "File not found F:\CODING\CPP\dll03\Project1.dll". Хотя файл там есть!

Ладно. Наверное Dev-C++ что-то делает не так.

Скачал с сайта Microsoft Visual Studio 2015. Установил. Создаю в нём проект (Консольное приложение Win32, далее галочка "Библиотека DLL". Все остальные параметры по умолчанию. Проект содержит 5 файлов: stdafx.h, targetver.h, ConsoleApplication1.cpp, dllmain.cpp, stdafx.cpp.
В файл "dllmain.cpp" дописываю свою функцию. Теперь он содержит:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
// dllmain.cpp: определяет точку входа для приложения DLL.
#include "stdafx.h"
 
BOOL APIENTRY DllMain( HMODULE hModule,
                       DWORD  ul_reason_for_call,
                       LPVOID lpReserved
                     )
{
    switch (ul_reason_for_call)
    {
    case DLL_PROCESS_ATTACH:
    case DLL_THREAD_ATTACH:
    case DLL_THREAD_DETACH:
    case DLL_PROCESS_DETACH:
        break;
    }
    return TRUE;
}
 
double kvadtar( double x)
{
    return x*x;
}

Компилирую. Ошибок нет. Меняю в своём коде VBA (см. выше) путь к файлу DLL. Запускаю. Снова ошибка:
"Can't find DLL entry point kvadrat in F:\CODING\CPP\testvs\ConsoleApplication1 \Debug\ConsoleApplication1.dll".

Далее сделал всё так, как написано в ссылке. Однако и теперь ни выдаётся та же ошибка (Can't find DLL entry point).

Что я делаю не так?

@nmcf · 23.07.2016, 20:44

Так попробуй:

C++
1
__declspec(dllexport) double __stdcall kvadtar(double x)

@Thor · 23.07.2016, 23:19 **[ТС]**

nmcf, увы, но выскакивает та же ошибка (Can't find DLL entry point).

@DrOffset · 23.07.2016, 23:36

Thor, у экспортированной функции должна быть декорация в стиле С. Добавь extern "C". Т.е. заголовочный файл должен выглядеть так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#ifndef _DLL_H_
#define _DLL_H_
 
#if BUILDING_DLL
#define DLLIMPORT __declspec(dllexport)
#else
#define DLLIMPORT __declspec(dllimport)
#endif
 
#ifdef __cplusplus
extern "C" {
#endif
 
DLLIMPORT double _stdcall kvadtar(double x);
 
#ifdef __cplusplus
}
#endif
 
#endif

dllmain.cpp:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#include "stdafx.h"
#include "dll.h"
 
BOOL APIENTRY DllMain( HMODULE hModule,
                       DWORD  ul_reason_for_call,
                       LPVOID lpReserved
                     )
{
    switch (ul_reason_for_call)
    {
    case DLL_PROCESS_ATTACH:
    case DLL_THREAD_ATTACH:
    case DLL_THREAD_DETACH:
    case DLL_PROCESS_DETACH:
        break;
    }
    return TRUE;
}
 
double _stdcall kvadtar( double x )
{
    return x*x;
}

Новые блоги и статьи Все статьи Все блоги /
Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .

@Thor 2 / 2 / 0 Регистрация: 12.12.2014 Сообщений: 87
	23.07.2016, 23:19 [ТС]
	nmcf, увы, но выскакивает та же ошибка (Can't find DLL entry point). 0