Legen Sie programmgesteuert DLL-Suchpfad in VBA-makro

Das problem

Ich habe eine word-Vorlage, die verwendet VBA die Declare - Anweisung, um einen link zu einer dll, deren Pfad kann bestimmt werden, innerhalb des VBA-makro
Ich will delploy dies der Benutzer %APPDATA%\Microsoft\Word\STARTUP-Verzeichnis
Ich will NICHT dauerhaft wechseln des Benutzers PATH-Umgebungsvariablen (vorübergehend wäre OK, aber das scheint nicht zu funktionieren, da Sie nicht aktualisiert werden, bis ein Neustart der Applikation)

Lösungsversuch

Ich habe versucht, dynamisch code hinzufügen, mit dem Declare Aussagen über ThisDocument.VBProject.CodeModule.AddFromString(code) die funktioniert beim laden der Vorlage von einem normalen Verzeichnis, aber wenn die Vorlage in Word\STARTUP es gibt die folgende Fehlermeldung:

Run-time error '50289':

Nicht ausführen, da die
Projekt geschützt ist.

Und Einstellung der registry-Schlüssel "HKEY___LOCAL_MACHINE\Software\Microsoft\Office\11.0\Word\Security\AccessVBOM" zu 1 nicht dadurch beheben, wenn die Vorlage in Word\STARTUP

Ich bin wirklich kämpfen, um eine Lösung zu finden. Wenn jemand eine Möglichkeit kennt, dies zu tun, das wäre toll.

Zusammenhang für MSAccess stackoverflow.com/questions/28977285/...

InformationsquelleAutor Steve Ridout | 2009-01-16

8

Ehrlich gesagt, ich weiß nicht, was das problem mit diesen VBA-code-injection -, Montage-generation für die LoadLibrary () - Aufrufe, usw. Techniken, die ich gesehen habe verwendet für diese einfache Aufgabe. In meinem Projekt verwende ich einfache code zum laden der dll aus dem gleichen Ort wie die Arbeitsmappe, wie diese:
```
Declare Function MyFunc Lib "MyDll.dll" (....) As ...

Sub Test()
  ....
  ChDir ActiveWorkbook.Path
  ... = MyFunc(....)
End Sub
```
Excel 2003 zumindest, hat keine problem beim laden der dll aus dem aktuellen Pfad Einstellen ChDir, um was auch immer Pfad der DLL hat. Möglicherweise müssen Sie auch ändern Sie Ihre aktuelle Laufwerk, das getrennt ist vom aktuellen Pfad. Sie tun es nur einmal, bevor die erste Funktion aufrufen, nachdem Sie die DLL bleibt an, egal wo sich Ihre aktuelle Pfad ist, so können Sie es einmal tun in workbook_open und sich nicht die Mühe, über den Pfad später. Ich biete eine leere dummy-Funktion in der DLL nur für diesen Zweck. Ich glaube nicht, dass MS Word ist anders.
```
Private Declare Sub Dummy Lib "MyDLL.dll" ()

Private Sub Workbook_Open()
    ChDrive Left$(Me.Path, 1)
    ChDir Me.Path
    Dummy
End Sub
```
Ha, eine so elegante Lösung, um ein anderes kompliziertes problem, danke! 😀
Das funktioniert nicht immer. Aktuelles Verzeichnis ist ein langer Weg nach unten die Liste der Pfade, die durchsucht werden, und in einigen Szenarien ist das aktuelle Verzeichnis kann nicht sein, der Suchpfad, auf alle. Plus Sie sind Schrauben, die mit dem Prozess Breite Arbeitsverzeichnis. Die explizite LoadLibrary Ansatz mit einem absoluten Pfad ist der beste Weg, dies zu tun.
Angenommen, Sie benötigen den aktuellen Pfad für eine Access-Datei anstelle von Excel, seiner CurrentProject.Path

InformationsquelleAutor panda-34

Können Sie LoadLibrary-api.

Z.B. in meinen Projekten der code sieht so aus:

If LibraryLoaded() Then
   Call MyFunc ...
End If


Public Function LibraryLoaded() As Boolean

 Static IsLoaded As Boolean
 Static TriedToLoadAlready As Boolean

 If TriedToLoadAlready Then
    LibraryLoaded = IsLoaded
    Exit Function
  End If
  Dim path As String
 path = VBAProject.ThisWorkbook.path
 path = Left(path, InStrRev(path, "\") - 1)
 IsLoaded = LoadLibrary(path & "\bin\" & cLibraryName)
 TriedToLoadAlready = True

 LibraryLoaded = IsLoaded

End Function

InformationsquelleAutor SparcU

2

Es ist eine wirklich wirklich hässliche Lösung, aber diese blogger es herausgefunden, und ich kann nicht herausfinden, jede andere Art und Weise:

http://blogs.msdn.com/pranavwagh/archive/2006/08/30/How-To-Load-Win32-dlls-Dynamically-In-VBA.aspx

Im Grunde, Sie schreiben eine Prozedur, erzeugt ein code-Modul im VBA während der Laufzeit. Dieses Modul muss eine Referenz auf die dll und muss es schaffen eine dummy-Funktion (oder Prozedur) als Bestandteil dieses Moduls, ruft die dll. Dann, aus dem code, die Sie verwenden, Anwendung.Run(dummyfunction(), arg1, arg2...). Dies ist notwendig, da ansonsten das Projekt wird nicht kompiliert, da dummyfunction ist noch keine Funktion.

Sie werden bemerken, in seinem code, den er verwendet, InputBox (), um den Speicherort der die .dll, aber offensichtlich konnte man die Lage aus einem Bereich in der Tabellenkalkulation. Der folgende code-snippet nützlich sein können.
```
Dim cm As CodeModule
Dim vbc As VBComponent

Set cm = Application.VBE.ActiveVBProject.VBComponents.Add(vbext_ct_StdModule).CodeModule
cm.AddFromString (decString & funcString)
cm.Name = "MyNewModule"
Set vbc = cm.Parent
Application.VBE.ActiveVBProject.VBComponents.Remove vbc
```
'decString' und 'funcString' waren nur strings, die ich gebaut, wie sein 'ss'. Das snippet zeigt, wie Sie Sie umbenennen können Sie den code-Modul, so dass man Sie später löschen, wenn nötig. Offensichtlich ist diese nur löscht es, nachdem es erstellt wird, und Sie wahrscheinlich würde nicht wollen, das zu tun, aber mindestens es zeigt Ihnen, wie es gemacht werden würde.

Nachdem alles gesagt, dass wir meistens nur schreiben .exe ' s jetzt und shell aus. Wenn Sie brauchen, VBA-warten auf die shell zu beenden, gibt es Lösungen für das Problem als gut.

InformationsquelleAutor oob

Hier ist, was ich am Ende machen, mit Pranav Wagh Methodik weiter oben verlinkt und der code von C Pearson Website (http://www.cpearson.com/excel/vbe.aspx). Dieser code fordert den Benutzer auf, wählen Sie den Pfad zu der dll mit einem Datei-Öffnen-Fenster, baut ein neues Modul mit einer Declare-Funktion mit den eingegebenen Pfad und eine Funktion zum ausführen eines handshake mit der dll. Der Zweck der Funktion in der dll gibt 1 zurück, wenn erfolgreich:

Public rtn As Integer

Sub LinkToDll()

Dim path As String, default As String
MsgBox "Select Geo_DLL.dll file from next window"

With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = False
    .Title = "Select Geo_DLL.dll file"
    If .Show = True Then
        path = .SelectedItems(1)
    End If
End With

'Add a module
Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent

Set VBProj = ActiveWorkbook.VBProject
Set VBComp = VBProj.VBComponents.Add(vbext_ct_StdModule)
VBComp.Name = "LinkModule"

'Add procedure to module
Dim CodeMod As VBIDE.CodeModule
Dim LineNum As Long

Set VBComp = VBProj.VBComponents("LinkModule")
Set CodeMod = VBComp.CodeModule

With CodeMod
LineNum = .CountOfLines + 1
.InsertLines LineNum, "Declare Function RegDll Lib " & Chr(34) & path & Chr(34) & " (ByRef rtn As Integer)"
LineNum = LineNum + 1
.InsertLines LineNum, "Sub runthisfunc(rtn)"
LineNum = LineNum + 1
.InsertLines LineNum, "On Error Resume Next"
LineNum = LineNum + 1
.InsertLines LineNum, "rtn = 0"
LineNum = LineNum + 1
.InsertLines LineNum, "RegDll rtn"
LineNum = LineNum + 1
.InsertLines LineNum, "If rtn = 1 Then MsgBox (" & Chr(34) & "DLL linked" & Chr(34) & ")"
LineNum = LineNum + 1
.InsertLines LineNum, "If rtn = 0 Then MsgBox (" & Chr(34) & "DLL not found" & Chr(34) & ")"
LineNum = LineNum + 1
.InsertLines LineNum, "End Sub"
End With

'This is what CodeMod.InsertLines is writing:
'--------------------------------------------
'Declare Function RegDll Lib "C:\path\Geo_DLL.dll" (ByRef rtn As Integer)
'Sub runthisfunc(rtn)
'On Error Resume Next
'rtn = 0
'RegDll rtn
'If rtn = 1 Then MsgBox ("DLL Linked")
'If rtn = 0 Then MsgBox (DLL not found")
'End Sub

Application.Run "runthisfunc", rtn

'Delete Module
VBProj.VBComponents.Remove VBComp

End Sub

Allerdings, wenn ich um die Arbeitsmappe (xlsm) in ein add-in (xlam), habe ich festgestellt, dass Excel nicht zulassen würde, dass die makro erstellen neuer Module also meine LinkToDll nicht funktionieren würde. Das Update war um die Declare-Funktion wieder in LinkToDll nur mit den dll-Dateinamen ("Geo_DLL.dll") als die Lib zusammen mit der runthisfunc sub. Ich fand, dass der Benutzer wählen Sie einfach die dll-Datei über den Datei-Öffnen-Fenster war genug, um zu zeigen Sie Excel, um die dll auch mit nur den Namen der Datei in der Lib-Teil die Declare Function-Anweisung.

Chris

InformationsquelleAutor Chris Iriarte

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.