AW: VBA Linkpfad ausgeben
14.09.2018 11:46:18
jan
Guten Tag, u.g Code liest den Inhalt eines Ordners aus, und gibt diesen
ín einem Tabellenblatt wieder.
Was ich lediglich wissen möchte, was fehlt im Code, so dass auch der eigentliche Ordner
mitangezeigt wird.
Vielen Dank im Voraus & Mit freundlichen GRüßen
Jan Reinbacher
Sub Einlesen_SDBordner()
Dim sFile As String, sPattern As String, sPath As String
Dim iRow As Integer
With ActiveSheet
.Columns(1).ClearContents 'löscht die erste Spalte!
sPath = "\C\Test\"
iRow = 9
If Right(sPath, 1) "\" Then sPath = sPath & "\"
sPattern = "*.*"
sFile = Dir(sPath & sPattern)
Do Until sFile = ""
iRow = iRow + 1
.Cells(iRow, 6).Value = sFile
.Cells(iRow, 7).Formula = "=HYPERLINK(""" & sPath & sFile & """,""" & sFile & """)"
sFile = Dir()
Loop
End With
End Sub