Wie zu verwenden dll im gleichen Verzeichnis wie die excel-Datei

Dies ist etwas im Zusammenhang mit meiner andere Frage.

Habe ich mit einem dll zu acompany einer excel-Tabelle. Alles ist derzeit mit der dll und die excel nutzt es ganz gut. Aber ist es möglich zu bestimmen, dass eine dll befindet sich im selben Verzeichnis wie die excel-Datei bei der Deklaration von Funktionen?

Declare Sub FortranCall Lib "Fcall.dll" (r1 As Long, ByVal num As String)

Unfortunetly das funktioniert nicht, ich habe Sie etwas wie:

Declare Sub FortranCall Lib "C:\temp\Fcall.dll" (r1 As Long, ByVal num As String)

Dies funktioniert, wird aber zu Kopfschmerzen verursachen, wenn die Verteilung zu meinem Büro-Kollegen. Platzieren Sie die dll in c:\windows\system32 etc. ist nicht wirklich eine option, entweder.

Hi, so was habe man schließlich mit gehen ?

InformationsquelleAutor Rook | 2009-06-09

3

Hier sind drei Möglichkeiten für das dynamische laden/aufrufen von DLLs von VBA, einschließlich links zu relevanten Informationen und Beispielcode. Kann nicht sagen, dass ich jemals in Benutzung hatte keine der beschriebenen Lösungen gibt es, aber es scheint wie eine vernünftige exploration der Optionen im Licht der VBA brauchst für einen statischen Pfad.
1. Erstellen Sie ein neues Modul zur Laufzeit (könnte man importieren .bas-Datei von der Festplatte, keine Notwendigkeit, hart-code-Modul mit string-literalen), mit der VBIDE-Erweiterbarkeit API. Nachteil: keine compile-time-Validierung; Sie brauchen stringly-typed Application.Run Anrufe, um es aufzurufen. Erfordert Vertrauenswürdige programmatischen Zugriff auf die VBIDE-API (d.h. Sie erlauben VBA zum ausführen von code generiert code, der dann ausgeführt wird... wie makro-Viren).
2. Verwenden Sie die LoadLibrary Win32-API... und jetzt hast du den Zeiger und Adressen: diese Angst-code (.zip-download) ist im wesentlichen eine riesige wartbaren hack, der verwendet assembly-Sprache zu ermöglichen aufrufen der API-Funktionen von Namen. Wie es aussieht, funktioniert nur für eine Teilmenge der unterstützten Win32-API-Funktionen aber.
3. Ändern Sie den DLL-Suchpfad, aber dann auch erfordert dynamische code zur Laufzeit Hinzugefügt, so könnte wie gut gehen Sie mit den oben genannten.
Hier eine weitere mögliche Lösung, die nahelegt, dass programmgesteuert aktualisieren der PATH-Umgebungsvariable vor dem Aufruf in der DLL. Keine schlechte Idee, wenn es funktioniert, wie man hinzufügen könnte Ihnen dieses workbook open-Ereignis.

Glück!
- vielen Dank für die Erweiterung, die. 🙂
- Leider ist der link zu der Aktualisierung der PFAD ist tot
- Re der tot zweiten link oben, es sieht aus wie Sie reorganisiert irgendwann und nicht leitet. Ich kann nicht sicher sein, dies ist der gleiche post, aber es scheint auf Thema (siehe die Kommentare für weitere details): communities.bentley.com/products/microstation/f/...
InformationsquelleAutor ewbi
3

Den Weg, den ich in der Regel darauf achten, dieses wird durch das hinzufügen:
```
Dim CurrentPath As String
CurrentPath = CurDir()   
ChDir (ThisWorkbook.Path)
```
Zu: Private Sub Workbook_Open()

InformationsquelleAutor Ricardo Affinito

ChDir() sollte den trick tun. Es funktioniert möglicherweise nicht auf Netzwerk-Ordner, obwohl.

Declare Sub FortranCall Lib "Fcall.dll" (r1 As Long, ByVal num As String)
...
Dim CurrentPath As String
CurrentPath = CurDir()   
ChDir (ThisWorkbook.Path)
Call FortranCall(r, n)
ChDir (CurrentPath) ' Change back to original directory

Nun halten Sie Ihre .dll im gleichen Ordner wie die Arbeitsmappe.

InformationsquelleAutor Rusty

-1

Können Sie die DLL in ein Verzeichnis, und fügen Sie es auf den Pfad EnVar.
- Können Sie bitte erklären, ein wenig mehr, was du meinst. Meinst du füge ich die DLL in den PFAD enviromental variable ? Ich fürchte, das wird nicht sein, eine zufriedenstellende Lösung zu finden - es wäre einfacher, in diesem Fall, um einfach Fragen Sie zu halten, die excel und die dll Datei in einem vordefinierten Verzeichnis scructure. Ich bin zu erreichen versucht so viel wie "tragbare" Lösung wie möglich.
InformationsquelleAutor Assaf Lavie
-2

ActiveWorkbook.Path gibt Sie den vollständigen Pfad zu dem Ordner, der die aktuell aktive Arbeitsmappe. Also versuchen Sie dies:
```
Declare Sub FortranCall Lib ActiveWorkbook.Path & "\Fcall.dll" (r1 As Long, ByVal num As String)
```
- Excel-Berichte, "compile error, erwartet string-Konstante" für das ActiveWorkbook.Pfad ? Vielleicht weißt du ja was das bedeutet (ich weiß nicht, VB viel, so kann dies etwas trivial ...)
- Es bedeutet, dass für eine Declare-Anweisung, müssen Sie eine Konstante string - und ActiveWorkbook.Path ist ein Aufruf der Funktion (oder eine Eigenschaft), so können Sie es nicht verwenden.
InformationsquelleAutor Ken Paul

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.