Подключить свою dll к модулю VBA

@igushchin · Регистрация: 30.01.2016

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

Здравствуйте,
это мой первый пост на этом форуме - прошу сильно не ругать.

Я пытаюсь сделать свою dll на VB.NET и подключить ее к модулю VBA (как .tlb). И почти все получается за исключением того, что в коде VBA не видно метода класса из dll. То есть:

- имею код dll:

VB.NET

Public Class MainClass
 
    Private _Name As String
 
    Public Property Name As String
        Get
            Return _Name
        End Get
 
        Set(ByVal val As String)
            _Name = val
        End Set
    End Property
 
    Public Function Current(ByRef P As Integer, ByRef U As Integer, ByRef Cos As Double, ByRef KPD As Double) As Double
        Select Case U
            Case 220
                Return P / (U * Cos * KPD)
            Case 380
                Return P / (Math.Sqrt(3) * U * Cos * KPD)
            Case Else
                Return 0
        End Select
    End Function
 
End Class

- имею код модуля VBA:

Visual Basic

Sub Test()
Dim Mine As third.MainClass, MyInt As Double
 
    'отсюда все работает нормально
    Set Mine = New third.MainClass
    Mine.Name = "Ilya"
    MsgBox Mine.Name
    
   'а вот с этого места не работает. Пишет "Object doesn't support this property or method"
    MyInt = Mine.current(1000, 220, 0.9, 1)
 
End Sub

Почему из модуля VBA не доступна функция Current? Почему не появляется выпадающего списка с членами классов при наборе кода?
Заранее спасибо

@Yury Komar · 30.01.2016, 17:51

Зделайте функцию как

VB.NET

1	Public Shared Function Current(....) As Double

@Sklifosofsky · 30.01.2016, 17:54

Добавьте после Public Shared

Public Shared Function Current...

Опередили =)

@igushchin · 30.01.2016, 19:40 **[ТС]**

увы, так то же не работает...
может, в свойствах dll что-то подправить?
а то что это VS Express может играть роль?

@Sklifosofsky · 01.02.2016, 19:35

Так должно заработать.
Ссылка для дополнительной инфы https://msdn.microsoft.com/lib... .100).aspx

Технология Interop работает как с библиотеками созданные вне среды СIL (.net), так и в обратную сторону, но для этого надо указать атрибуты в класса.

Guid ключи можно сгенерировать при помощи GuidGen.exe, находится обычно в "C:\Program Files (x86)\Microsoft Visual Studio 12.0\Common7\Tools". Сразу скажу, что некоторые фишки из .Net работать не будут.

Visual Basic

1	Dim a as New MainClass

VB.NET

<Microsoft.VisualBasic.ComClass(MainClass.ClassId, MainClass.InterfaceId, MainClass.EventsId)> _
Public Class MainClass
 
    Public Const ClassId As String = "7666AC25-855F-4534-BC55-27BF09D49D46"
    Public Const InterfaceId As String = "54388137-8A76-491e-AA3A-853E23AC1217"
    Public Const EventsId As String = "EA329A13-16A0-478d-B41F-47583A761FF2"
 
    Private _Name As String
 
    Public Property Name As String
        Get
            Return _Name
        End Get
 
        Set(ByVal val As String)
            _Name = val
        End Set
    End Property
 
    Public Function Current(ByRef P As Integer, ByRef U As Integer, ByRef Cos As Double, ByRef KPD As Double) As Double
        Select Case U
            Case 220
                Return P / (U * Cos * KPD)
            Case 380
                Return P / (Math.Sqrt(3) * U * Cos * KPD)
            Case Else
                Return 0
        End Select
    End Function
 
 
    Sub New()
        MyBase.New()
    End Sub
 
End Class

@igushchin · 02.02.2016, 17:20 **[ТС]**

Спасибо! Все получилось!

@Sklifosofsky 1047 / 898 / 211 Регистрация: 29.09.2015 Сообщений: 1,004
	30.01.2016, 17:54	3
	Добавьте после Public Shared Public Shared Function Current... Опередили =) 1

@igushchin 0 / 0 / 0 Регистрация: 30.01.2016 Сообщений: 3
	30.01.2016, 19:40 [ТС]	4
	увы, так то же не работает... может, в свойствах dll что-то подправить? а то что это VS Express может играть роль? 0

@igushchin 0 / 0 / 0 Регистрация: 30.01.2016 Сообщений: 3
	02.02.2016, 17:20 [ТС]	6
	Спасибо! Все получилось! 0

Подключить свою dll к модулю VBA

Решение