Verzeichnis einlesen
30.08.2003 11:36:10
sigi
Wie kann ich den nachfolgenden Code so abändern,
das die Dateien des aktuellen Verzeichnisses eingelesen werden
Ich möchte nicht jeweils den Code angleichen.
Danke!
Gruß Sigi
Sub Einlesen()
Sheets("Text").Select
Columns("B:B").Select
Selection.ClearContents
Dim arrFiles As Variant
Dim intCounter As Integer
Application.ScreenUpdating = False
arrFiles = FileArray("c:\Muster/Ausführung/00 Baustelleneinrichtung", "*.*")
For intCounter = 1 To UBound(arrFiles)
With ThisWorkbook.Worksheets(1)
.Cells(intCounter, 1) = arrFiles(intCounter)
.Hyperlinks.Add Anchor:=.Cells(intCounter, 1), _
Address:="c:\Muster/Ausführung/00 Baustelleneinrichtung\" & .Cells(intCounter, 1).Value
End With
Next intCounter
Columns(2).AutoFit
Sheets("Text").Select
Range("B1").Select
End Sub