AW: das problem ist:
21.12.2010 17:28:57
Tino
Hallo,
vielleicht hilft es unter Extras Verweise diese einzubinden.
Da ich diese dll nicht kenne, kann es sein dass diese registriert werden muss.
Könnte so funktionieren
Sub registrieren()
Dim DllPath As String
Dim FileDll$
FileDll = "Meine_DLL.dll"
DllPath = _
IIf(Right$(ThisWorkbook.Path, 1) = "\", _
ThisWorkbook.Path & FileDll, _
ThisWorkbook.Path & "\" & FileDll)
Shell "regsvr32 /s " & Chr(34) & DllPath & Chr(34)
ThisWorkbook.VBProject.references.AddFromFile (DllPath)
End Sub
Sub deregistrieren ()
Dim DllPath As String
Dim FileDll$
FileDll = "Meine_DLL.dll"
DllPath = _
IIf(Right$(ThisWorkbook.Path, 1) = "\", _
ThisWorkbook.Path & FileDll, _
ThisWorkbook.Path & "\" & FileDll)
On Error Resume Next
ThisWorkbook.VBProject.references.Remove _
ThisWorkbook.VBProject.references("FindMeFile")
Shell "regsvr32 /s /u " & Chr(34) & DllPath & Chr(34)
End Sub
Dem Zugriff auf VBA-Projekte muss vertraut werden.
Gruß Tino