Сервер 2К09
[ Обновленные темы · Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: server2009, Сергей  
Форум » VB6 и всё с ним связанное » VB6 ДЛЯ НОВИЧКОВ » подключение DLL в VBA
подключение DLL в VBA
SolidorbДата: Среда, 18.08.2010, 18:54 | Сообщение # 1
Рядовой
Группа: Пользователи
Сообщений: 1
Репутация: 0
Статус: Offline
может кто-нибудь подскажет с чем связана следующая проблема:

в VB6 я создал "болванку" с классом содержащим процедуру выдающую сообщение "OK".
Public Sub Sub1()
MsgBox "Ok test"
End Sub
В Excel через "References" я подключил указанную библиотеку. "Object Explorer" показывает метод реализованный в библиотеке, однако макрос не работает. Может что-нибудь с режимом компиляциями или требуется делать специальные объявления для методов

 
server2009Дата: Пятница, 20.08.2010, 20:18 | Сообщение # 2
Admin
Группа: Администраторы
Сообщений: 18
Репутация: 0
Статус: Offline
Объявляем переменную таким образом:
Код
Dim A As New ИмяDLL


А потом вызываем процедуру в том месте, где нам это необходимо:
Код
A.Sub1
 
ShadeДата: Среда, 19.09.2012, 14:04 | Сообщение # 3
Рядовой
Группа: Пользователи
Сообщений: 3
Репутация: 1
Статус: Offline
Можно воспользоватся CreateObject.
Пример:

Dim Open_Dll As Object

Далее вызываем таким способом

Тут в скобках и кавычках нам надо
Dll - Имя файла динамической библиотеки
NameModulClass - Имя модуля классов

Set Open_Dll = CreateObject("Dll.NameModulClass ")
Call Open_Dll.Sub1
Set Open_Dll = Nothing
 
Форум » VB6 и всё с ним связанное » VB6 ДЛЯ НОВИЧКОВ » подключение DLL в VBA
  • Страница 1 из 1
  • 1
Поиск: