VBA (access) и самописная dll

[Kuzmit4]

Как вызвать в ВБА функции из длл?
Длл писал на VS Basik 2005. Создал проект ClassLibrary следующего содержания:

Код: Выделить всё

Public Class Class1
    Private Function abc(ByVal a As String) As String
        Return (a)
    End Function
End Class

В ВБА пишу вот так:

Код: Выделить всё

Private Declare Function Class1 Lib "c:/ClassLibrary2.dll" Alias "abc" (ByRef a As String) As String

вызов вот так:

Код: Выделить всё

MsgBox (Class1("aaa"))

во время выполнения получаю ошибку:
Run-time error "453"
Can't find DLL entry point abc in c:/ClassLibrary2.dll

Если попытаться прицепить эту длл через Tools - Reference... выскакивает сообщение "Can't add reference to the specifid file"

[tyomitch]

VBA не позволяет импортировать .нет-сборки.
Нужно создать COM-библиотеку.

[GSerg]

Сначала я просто пробежал глазами пост (как, видимо, и tyomitch).
А потом я его подробно прочитал и пришёл в ужас...

Я не знаю формул синтетических веществ, которые способны заставить написать то, что написано в первом посте. Это уму не постижимо. Его можно рабирать практически посимвольно, наслаждаясь каждой секундой...

Нет, это либо стёб, или я не знаю, как это назвать...

[anvg]

Kuzmit4

"c:/ClassLibrary2.dll"

по мимо всего прочего, путь указан неверно, нужно
"c:/ClassLibrary2.dll"
А так, с учётом, что у тебя библиотека классов, то Tools/Reference "Browse" и указываешь свою библиотеку, содаёшь находящиеся там классы и т. д. Только вот объявление класса у тебя не соответствующее. Используй заготовку COM-класса в VS. Останется только прописать GUID

[Kuzmit4]

а что в пути указано не верно, я что-то не вижу отличий моего и вашего

Через тулс - референс брауз не хочет присоединять выдает сообщение "Can't add reference to the specifid file"

Можно поподробней что за заготовка COM-класса? и как создать ее?

[tyomitch]

Kuzmit4

"c:/ClassLibrary2.dll"

по мимо всего прочего, путь указан неверно, нужно
"c:/ClassLibrary2.dll"

Шикарно

[anvg]

Да с путём по запарке вышло не очень
"c:\ClassLibrary.dll"
Стандартная заготовка COM-класса вызывается в Project/Add New Item - COM-Class

Код: Выделить всё


<ComClass(ComClass1.ClassId, ComClass1.InterfaceId, ComClass1.EventsId)> _
Public Class ComClass1

#Region "COM GUIDs"
    ' These  GUIDs provide the COM identity for this class
    ' and its COM interfaces. If you change them, existing
    ' clients will no longer be able to access the class.
    Public Const ClassId As String = "13d98e59-9427-4ea2-ab8a-47da1fb18333"
    Public Const InterfaceId As String = "356aa17f-580d-476f-91c9-ab426a567dd9"
    Public Const EventsId As String = "fb980ee9-4ea0-4f7c-92d8-af7472ea6f4a"
#End Region

    ' A creatable COM class must have a Public Sub New()
    ' with no parameters, otherwise, the class will not be
    ' registered in the COM registry and cannot be created
    ' via CreateObject.
    Public Sub New()
        MyBase.New()
    End Sub

End Class


tyomitch
Чем хихикать - так помог бы человеку. Нечего сказать так...

[tyomitch]

Чем хихикать - так помог бы человеку. Нечего сказать так...

(Оффтоп) в меру своих сил помог, указав, что нужно делать COM-библиотеку, а не обычную ClassLibrary.
VS.net у меня не стоит, так что показать, в какие места тыкать мышой, я не могу.

И вообще не вижу, где бы я в этом топике хихикал. Хоть раз.

[Kuzmit4]

anvg
tyomitch
Большое спасибо
на простенькой функции все получилось.

еще такой вопрос могу ли я в этой библиотеке использовать все доступные функции из VB 2005? Если нет, то как поределить что можно, что нет
к примеру, сейчас хочу попробовать сделать отправку почты.
буду использовать System.Net.Mail.SmtpClient

p.s. не судите строго я тока учусь