Как подключить dll к VBA?

@inetcoyote · Регистрация: 25.03.2013

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

пробовал так,

Visual Basic

Private Declare Function Suma Lib "D:\testDLL.dll" (x As Integer, y As Integer) As Integer
 
Dim a, b, c As Integer
c = Suma(2, 1)
TextBox1.Text = c

Но выдается ошибка 453: Can`t find Dll entry point Suma

@IvanOK · 25.03.2013, 16:51

Сообщение от inetcoyote

"D:\testDLL.dll

надо запхнуть в реєстр

@inetcoyote · 25.03.2013, 16:56 **[ТС]**

Сообщение от IvanOK

надо запхнуть в реєстр

пробовал и так, но выдавалась ошибка на совместимость dll и версией Windows

@Catstail · 25.03.2013, 18:25

Смотря какую... dll-ки бывают процедурные, а бывают ActiveX.

То, что Вы написали - правильно, если dll процедурная (т.е. написана С/С++ или любом языке, поддерживающем создание процедурных dll). Процедурную dll "запихивать в реестр" не надо (да она и не "запихнется").

ActiveX-dll должна быть зарегистрирована, для этого нужно один раз с правами админа выполнить команду:

regsvr32 имя_dll

После успешной регистрации появляются два способа использования dll.

1) Раннее связывание. К VBA проекту подключаем нашу dll-ку: Tools -> References -> галочку против нужного имени

Создание объектов из dll:

Set myObj = new Имя_Библ.Имя_класса

2) Позднее связывание:

Set myObj = CreateObject("Имя_Библ.Имя_класса")

Первый способ обеспечивает значительный выигрыш в скорости, а второй применим в скриптовых языках.

@inetcoyote · 25.03.2013, 19:38 **[ТС]**

Сообщение от Catstail

Смотря какую...

Set myObj = new Имя_Библ.Имя_класса
и

Set myObj = CreateObject("Имя_Библ.Имя_класса")

dll оказалась Active Х и всё таки зарегистрировалась, а вот насчет использования dll возникли проблемы,
конкретно писал строку "Set myObj = new Имя_Библ.Имя_класса" и выдает ошибку
Compile error: User-defined type not defined
С чем это может быть связано?

@Казанский · 25.03.2013, 20:43

Сообщение от inetcoyote

dll оказалась Active Х и всё таки зарегистрировалась

Сделайте следующее: Tools - References, найдите эту библиотеку и поставьте галочку. Если не найдете, нажмите Browse и выберите dll.
После этого в Object Explorer (F2) можете изучить объекты, которые содержит библиотека.
В программе наберите "dim myObj as new " - появится выпадающий список типов, выберите Имя_класса.
При наборе myObj. будет появляться выпадающий список свойств и методов этого класса.

@inetcoyote · 25.03.2013, 22:20 **[ТС]**

Сообщение от Казанский

"dim myObj as new "

Спасибо большое, это и правда сработало

Но появилась другая проблема. При загрузке ещё одной dll, она не захотела регистрироваться - видно была, не active x, а процедурной! После чего при попытке добавить её в "Tools -> References ->Brose..." выдается ошибка "Can`t add reference to the specified file" и dll не добавляется в reference? Это значит что такого типа dll невозможно подключить к VBA?

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	25.03.2013, 16:51	2
	Сообщение от inetcoyote "D:\testDLL.dll надо запхнуть в реєстр 0

@inetcoyote 1 / 1 / 0 Регистрация: 25.03.2013 Сообщений: 129
	25.03.2013, 16:56 [ТС]	3
	Сообщение от IvanOK надо запхнуть в реєстр пробовал и так, но выдавалась ошибка на совместимость dll и версией Windows 0

@Catstail Модератор 35517 / 19993 / 4185 Регистрация: 12.02.2012 Сообщений: 33,172 Записей в блоге: 13
	25.03.2013, 18:25	4
	Смотря какую... dll-ки бывают процедурные, а бывают ActiveX. То, что Вы написали - правильно, если dll процедурная (т.е. написана С/С++ или любом языке, поддерживающем создание процедурных dll). Процедурную dll "запихивать в реестр" не надо (да она и не "запихнется"). ActiveX-dll должна быть зарегистрирована, для этого нужно один раз с правами админа выполнить команду: regsvr32 имя_dll После успешной регистрации появляются два способа использования dll. 1) Раннее связывание. К VBA проекту подключаем нашу dll-ку: Tools -> References -> галочку против нужного имени Создание объектов из dll: Set myObj = new Имя_Библ.Имя_класса 2) Позднее связывание: Set myObj = CreateObject("Имя_Библ.Имя_класса") Первый способ обеспечивает значительный выигрыш в скорости, а второй применим в скриптовых языках. 2

@inetcoyote 1 / 1 / 0 Регистрация: 25.03.2013 Сообщений: 129
	25.03.2013, 19:38 [ТС]	5
	Сообщение от Catstail Смотря какую... Set myObj = new Имя_Библ.Имя_класса и Set myObj = CreateObject("Имя_Библ.Имя_класса") dll оказалась Active Х и всё таки зарегистрировалась, а вот насчет использования dll возникли проблемы, конкретно писал строку "Set myObj = new Имя_Библ.Имя_класса" и выдает ошибку Compile error: User-defined type not defined С чем это может быть связано? 0

@Казанский 15141 / 6414 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	25.03.2013, 20:43	6
	Сообщение от inetcoyote dll оказалась Active Х и всё таки зарегистрировалась Сделайте следующее: Tools - References, найдите эту библиотеку и поставьте галочку. Если не найдете, нажмите Browse и выберите dll. После этого в Object Explorer (F2) можете изучить объекты, которые содержит библиотека. В программе наберите "dim myObj as new " - появится выпадающий список типов, выберите Имя_класса. При наборе myObj. будет появляться выпадающий список свойств и методов этого класса. 0

@inetcoyote 1 / 1 / 0 Регистрация: 25.03.2013 Сообщений: 129
	25.03.2013, 22:20 [ТС]	7
	Сообщение от Казанский "dim myObj as new " Спасибо большое, это и правда сработало Но появилась другая проблема. При загрузке ещё одной dll, она не захотела регистрироваться - видно была, не active x, а процедурной! После чего при попытке добавить её в "Tools -> References ->Brose..." выдается ошибка "Can`t add reference to the specified file" и dll не добавляется в reference? Это значит что такого типа dll невозможно подключить к VBA? 0

Опции темы