Erstaunlich:
ein kleines VBA-Skript schreibt die Namen aller Dateien eines Ordners in eine Exceltabelle.
Sub AlleVisioZeichnungen()
Dim strPfad As String
Dim strDatei As String
Dim i As Integer
Dim strPfad As String
Dim strDatei As String
Dim i As Integer
strPfad = „D:\Eigene Dateien\Visio\contoso\“
strDatei = Dir(strPfad, vbNormal)
i = 2
Do While strDatei <> „“
If Right(strDatei, 4) = „.vsd“ Or Right(strDatei, 4) = „.vsdx“ Or Right(strDatei, 5) = „.vsdm“ Then
ActiveSheet.Cells(i, 1).Value = strDatei
Range(„A1“).Hyperlinks.Add Anchor:=ActiveSheet.Cells(i, 1), _
Address:=strPfad & strDatei, _
TextToDisplay:=strDatei
i = i + 1
End If
strDatei = Dir
Loop
End Sub
Nicht nur die Dateinamen, sondern erstellt auch einen Hyperlink auf die Datei.
Beim Aktivieren des Hyperlinks wird zwar die Datei geöffnet, allerdings nicht die Schablonen, die eigentlich mit dieser Datei verknüpft sind. Sehr ärgerlich!
