Hallo,
ich habe folgendes Problem das ich nicht bei jeder datei den namen bzw Ort angeben möchte sondern nur sagen möchte in dem ordner alle datein ... bis keine mehr da ist...das hab ich dann auch gefunden hoffe das ist richtig...
With Application.FileSearch
.LookIn = "C:\xxx\xxx\"
.Filename = "*.xls"
If .Execute() > 0 Then
'MsgBox "Es wurde(n) " & .FoundFiles.Count & _
" Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
For s = 1 To NeueStationen
++++Hier weiß ich jetzt nicht was ich hinschreiben soll++++
Next s
Next i
Else
MsgBox "Es wurden keine Dateien gefunden."
End If
Nun was kann da hin kommen damit dort der dateiname in einer bestimmten Zeile + Spalte steht?
Gruß Kennyger
ich habe folgendes Problem das ich nicht bei jeder datei den namen bzw Ort angeben möchte sondern nur sagen möchte in dem ordner alle datein ... bis keine mehr da ist...das hab ich dann auch gefunden hoffe das ist richtig...
With Application.FileSearch
.LookIn = "C:\xxx\xxx\"
.Filename = "*.xls"
If .Execute() > 0 Then
'MsgBox "Es wurde(n) " & .FoundFiles.Count & _
" Datei(en) gefunden."
For i = 1 To .FoundFiles.Count
For s = 1 To NeueStationen
++++Hier weiß ich jetzt nicht was ich hinschreiben soll++++
Next s
Next i
Else
MsgBox "Es wurden keine Dateien gefunden."
End If
Nun was kann da hin kommen damit dort der dateiname in einer bestimmten Zeile + Spalte steht?
Gruß Kennyger