Re: Per Makro Bibiliotheken einbinden?
19.12.2002 14:31:36
L.Vira
als Anregung für kalte Winterabende:
Option Explicit
Sub Verweis_Test_L_Vira()
Const DName As String = "MSOWC.DLL"
Dim DSuche As Object, x As Byte
Dim Referenz As String, Vergleich As String
Set DSuche = Application.FileSearch
With DSuche
.NewSearch
.LookIn = "C:\Programme\Microsoft Office\" .FileName = DName
.SearchSubFolders = True
.FileType = msoFileTypeOfficeFiles
If .Execute > 0 Then
For x = 1 To .FoundFiles.Count
Vergleich = .FoundFiles(x)
Exit For
Next
End If
End With
With ThisWorkbook.VBProject
For x = 1 To .References.Count
Referenz = .References(x).FullPath
If UCase(Referenz) = UCase(Vergleich) Then
MsgBox "Verweis vorhanden!"
Exit For
Else
MsgBox "Verweis auf die erforderliche Datei: " & Chr(10) & Chr(10) & _
Vergleich & Space(10) & Chr(10) & Chr(10) & "fehlt!", 64, "weise hin..."
Exit For
End If
Next
End With
Set DSuche = Nothing
End Sub