Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1544to1548
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA: Verweise über Befehl einbinden

VBA: Verweise über Befehl einbinden
08.03.2017 10:49:33
Sven
Hallo Zusammen,
ich habe mal eine Frage bezüglich den Verweisen die man in VBA-Projekte einbinden kann. Da ich sehr viel ADODB-Abfragen nutze, binde ich somit jedesmal die "Microsoft ActiveX Data Objects 6.1 Libary" und "Microsoft ActiveX Data Objects Recordset 6.0 Libary" über "Extras - Verweise" ein. Zeitgleich habe ich mir meine gesamten VBA-Projekte bezüglich der Abfragen als Export für weitere Projekt zum importieren bereitgestellt.
Kann ich diese Verweise (in o.g. Fall "msado15.dll" und "msador15.dll") über einen Befehl einbinden, analog "Private Declare Function xyz Lib msado15.dll ...." oder gibt es hier keinen anderen Weg dran vorbei diese Verweise über das Menü einzubinden.
Falls es eine Möglichkeit gibt, dann würde ich diese in meine Exporte integrieren.
Viele Grüße
Sven

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nutze in dem Fall die...
08.03.2017 16:33:39
Sven
ich kriegs mit Late Binding nicht gebacken...
gerade beim Recordset wird mir der halbe Code als Fehler ausgegeben...
Hatte es wie folgt eingebunden:
Dim rs as Object
Dim cnn as Object
Set rs = CreateObject("ADODB.Recordset")
Set cnn = CreateObject("ADODB.Connection")

Anzeige
Die von Dir gezeigten Codezeilen...
09.03.2017 06:26:59
Dir
Hallo, :-)
... laufen bei mir ohne Probleme. ;-)
Du kannst natürlich auch Verweise setzen. Erstmal auslesen:
Option Explicit
Public Sub Read_Ref()
Dim objTMP As Object
Dim objRef As Object
Set objRef = ThisWorkbook.VBProject.References
For Each objTMP In objRef
With objTMP
Debug.Print .Description
Debug.Print .Name
Debug.Print .GUID
Debug.Print .fullpath
Debug.Print "NEXT REF"
End With
Next objTMP
Set objRef = Nothing
End Sub
Dann die "GUID" setzen:
Option Explicit
Public Sub Ref_ADO()
Dim objTMP As Object
On Error Resume Next
Set objTMP = ThisWorkbook.VBProject.References
'Microsoft ActiveX Data Objects 2.8 Library
objTMP.AddFromGuid "{2A75196C-D9EB-4129-B803-931327F72D5C}", 1, 0
Set objTMP = Nothing
End Sub
Die "GUID" natürlich auf Deine Gegebenheiten anpassen.
Servus
Case

Anzeige
AW: Die von Dir gezeigten Codezeilen...
09.03.2017 08:15:01
Dir
Super, so läuft es wunderbar! Danke Dir
Gerne! Danke für die Rückmeldung, owT
09.03.2017 08:40:26
Case
:-)

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige