Microsoft Excel

Herbers Excel/VBA-Archiv

Visual Studio 2010 dll / tlb

Betrifft: Visual Studio 2010 dll / tlb von: Andi
Geschrieben am: 12.11.2012 13:24:06

Hallo Zusammen,
ich habe mit Studio Visual 2010 ein neues Project COM Class erstellt.

Aufruf in VBA

1) Funktioniert

Function Create_Object
Dim oCLS as object
Set oCLS = CreateObject("ClassLibrary1.Class1")
Call oCLS.fBookmark
End Function
2) Funktioniert

Verweis hinzufügen "ClassLibrary1.tlb"
Function VerweisTLB
Dim oCLS as new ClassLibrary1
Call oCLS.fBookmark
End Function
3)Funktioniert nicht!

Private Declare
Sub fBookmark Lib "ClassLibrary1.dll" ()

Private Declare 
Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As  _
Long

Private Declare 
Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long

Function CallDll()

Dim hndModule As Long

hndModule = LoadLibrary(ThisWorkbook.Path & " \" & "ClassLibrary1.dll")

Call fBookmark
    
Call FreeLibrary(hndModule)

End Function

Ich kann in VBA (Excel) einen Verweis auf die zur DLL gehörende tlb Datei hinzufügen.
Warum funktioniert das unter 3) aufgeführte nicht?

Danke.

Gruß Andi