Hallo zusammen,
ich habe folgendes Problem: ich habe ein vba-makro (Zugriff über Microsoft Access auf Catia, um Schweißpunktkoordinaten aus einer Punktewolke auszulesen) geschrieben, welches auch super funktioniert. Natürlich müssen die Bibliotheken eingebunden werden, doch leider hatte ich keine Ahnung welche genau ich brauchte und deshalb habe ich stumpf alles eingebunden, was CATIA V5 im namen trägt.
Die Access-Datenbank kann neben dem Punktewolken-Auslesen noch viele andere Sachen, welche mit CATIA nichts zu tun haben und verschiedene Leute benutzen diese Funktionen.
Neuerdings ist folgende Fehlermeldung beim Starten der Access-Datenbank erschienen: bei einem Rechner, auf dem KEINE Catia-Installation vorhanden ist, kommt eine Fehlermeldung, dass die CATIA V5 Bibliotheken nicht gefunden werden (und demzufolge auch nicht eingebunden werden können - logisch!). Aufgrund dessen kann die Access-Datenbank nicht weiter verwendet werden...
Nun möchte ich die notwendigen Bibliotheken dynamischen beim Ausführen des Punktewolkenauslese-Makros einbinden. Und dazu muss ich natürlich wissen, welche genau ich einbinden muss.
Nun zu meiner Frage: Gibt es eine Übersicht, was welche Bibliothek den genau tut, bzw. woher weiss ich, welche Verweise ich setzen muss, damit das Makro funktioniert? Ich möchte nicht stumpf ausprobieren, indem ich einfach irgendwo ein Haken setze und dann schaue, ob es funktioniert.
Hier mal ein Teil der Variablendeklaration meines Makros, vielleicht hilft es ja zur beantwortung der Frage:
Code:
'*~*~*~*~*~*~*~Variablendeklaration*~*~*~*~*~*~*~*~*~*~*~*~*~
'*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~
'*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~
Dim intI As Integer
Dim docDocuments
Dim prodWurzel As Product
Dim prodDoc As ProductDocument
Dim prodProducts As Products
Dim arrPosDocument() As Integer
Dim Workbook As Object
Dim objExcel As Object
Dim objNeueArbeitsmappe As Object
Dim objAktuelleArbeitsmappe As Object
Dim Sheet As Object
Dim productsVariant As Object
Dim DatAnfang As Date
Dim intEbene As Integer
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP