Member
Beiträge: 46
![25](http://www.donkarl.com/forum/images/decorations/multiple/25.gif)
| Hallo,
davon ausgehend, dass es an unterschiedlichen Verweisen liegen könnte, habe ich folgende Funktion laufen lassen:
Public Function ReferenceProperties()
On Error Resume Next
Dim ref As Reference
Dim str_a As String
For Each ref In References
str_a = ""
str_a = "Name: " & ref.NAME & Chr(13)
str_a = str_a & "FullPath: " & ref.FullPath & Chr(13)
str_a = str_a & "Version: " & CStr(ref.Major) & "." & CStr(ref.Minor) & Chr(13)
If ref.IsBroken = False Then
str_a = str_a & "broken: No"
Else
str_a = str_a & "broken: Yes"
End If
MsgBox str_a
Next ref
End Function
Diese weist 8 Verweise aus: VBA, Access, Stdole, DAO,Excel, outlook, Msxml2, VBIDE
Das Programm verwendet Excel um eine Exceltabelle zu erzeugen und dann zu manipulieren sowie outlook, um emailanhänge auszulesen. Aus meiner Sicht sind die Verweise nicht überflüssig.
Auf den anderen beiden Rechnern mit Problemen (Win 7 und win 8) läuft die Funktion nicht durch. Auf dem Windows 7 Rechner steigt sie aus, wenn sie auf den Verweis zu Excel zugreifen will (Objektbibliothek nicht registriert, Fehlernummer 2950), auf dem Win8-Rechner, wenn es um den Outlookverweis geht (Microsoft Access funktioniert nicht mehr...).
Die Versionen der Verweise sind Excel: 12, Outlook 9.3,
Hilft das weiter?
Euer Dirk |