Pfad einlesen
07.10.2003 15:29:42
junny
folgender Code kopiert mir unter anderem auch den Pfad mit in die Tabelle, dass möchte ich jedoch nicht!! Was muss geändert werden??
Sub ImportZeile()
Dim fs As FileSearch
Dim lRow As Long
Dim iCounter As Integer
Set fs = Application.FileSearch
lRow = 2
With fs
.Filename = "*.xls"
.LookIn = "C:\Zeitenliste" 'Range("A20").Value
.Execute
For iCounter = 1 To .FoundFiles.Count
Cells(lRow, 1).Value = .FoundFiles(iCounter)
lRow = lRow + 1
Workbooks.Open .FoundFiles(iCounter)
Sheets("Zeiten").Select
ActiveSheet.Range("2:2").Copy ThisWorkbook.Worksheets(1).Cells(lRow, 1)
lRow = lRow + Range("2:2").Rows.Count
ActiveWorkbook.Close savechanges:=False
Next iCounter
End With
Danke schon mal
Gruss junny