VBA-Beispiel 103
mail schreiben
mail schreiben

alle Verweise einer Exceldatei auslesen und auflisten
Listet alle Verweise auf, die im VBA-Editor für diese Exceldatei unter "Extras - Verweise" aktiviert sind.
Sub Verweise_auflisten()
'alle Verweise dieser Datei auflisten
Dim VBE As Object
Dim x As Integer

Cells.Clear

Cells(1, 1) = "Name"
Cells(1, 2) = "Description"
Cells(1, 3) = "Fullpath"
Range("A1:C1").Interior.ColorIndex = 35

Set VBE = Application.VBE.ActiveVBProject

With VBE
  For x = 1 To .References.Count
    Cells(x + 1, 1) = .References(x).Name
    Cells(x + 1, 2) = .References(x).Description
    Cells(x + 1, 3) = .References(x).FullPath
  Next x
End With

Range("A:C").Columns.AutoFit

Set VBE = Nothing
End Sub
Download:   vba103.zip
relevante Links:

top