FileSearch

Sub Inhaltsverzeichnis_aller_XLS_Dateien_aus_einem_Ordner_erstellen() Dim i As Long, verz As String verz = "C:\Test\" On Error GoTo Fehler ChDrive Left(verz, 2) ChDir verz Range("A1").Select With Application.FileSearch .NewSearch .LookIn = verz .SearchSubFolders = False .FileType = msoFileTypeExcelWorkbooks .Execute For i = 1 To .FoundFiles.Count ActiveCell.Value = .FoundFiles(i) ActiveCell.Offset(1, 0).Select Next i End With Exit Sub Fehler: MsgBox "Es gibt kein Verzeichnis mit dem Namen " & verz End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Inhaltsverzeichnis_aller_XLS_Dateien_aus_einem_Ordner_erstellen() Dim i As Long, verz As String verz = "C:\Eigene Dateien" 'On Error GoTo Fehler ChDrive Left(verz, 2) ChDir verz ActiveSheet.Range("A1").Select With Application.FileSearch .NewSearch .LookIn = verz .SearchSubFolders = False .FileType = msoFileTypeExcelWorkbooks .Execute For i = 1 To .FoundFiles.Count ActiveCell.Value = .FoundFiles(i) ActiveCell.Offset(1, 0).Select Next i End With Exit Sub Fehler: MsgBox "Es gibt kein Verzeichnis mit dem Namen " & verz End Sub

Hallo Robert,
... direkt Dein Verzeichnis hinein.

VBA-Code:

Option Explicit
Sub Inhaltsverzeichnis_aller_XLS_Dateien_aus_einem_Ordner_erstellen()
  Dim i As Long
  'On Error GoTo Fehler
  With Application.FileSearch
    .NewSearch
    .LookIn = "C:\irgendwas"
    .SearchSubFolders = False
    .FileType = msoFileTypeExcelWorkbooks
    .Execute
    For i = 1 To .FoundFiles.Count
      Cells(i, "A") = .FoundFiles(i)
    Next i
  End With
  Exit Sub
Fehler:
  MsgBox "Es gibt kein Verzeichnis mit dem Namen " & verz
  End Sub
Gruß Jürgen

.LookIn ="C:\" geht auch nicht..

robert

hi,
hab ich schon probiert- geht auch nicht-
.LookIn ist stur.....
gruß
robert

Alternativvorschlag

Backowe

Hi Robert,
vielleicht wäre das eine Alternative!

VBA-Code:

Sub Inhaltsverzeichnis_aller_XLS_Dateien_aus_einem_Ordner_erstellen()
  Dim i As Long, Datname As String
  Shell "cmd /c dir c:\irgendwas*.xl* /b > c:\xlsdateien.txt", vbHide
  i = 1
  Open "c:\xlsdateien.txt" For Input As #1
  Do While Not EOF(1)
    Line Input #1, Datname
    Cells(i, "A") = Datname
    i = i + 1
  Loop
  Close #1
  Kill "c:\xlsdateien.txt"
End Sub
Gruß Jürgen

AW: Alternativvorschlag

robert

hi jürgen,
danke für deinen vorschlag-ist ok ;-)
wahrscheinlich gibt es noch andere methoden,
aber da das makro ja schon laaange funktioniert hat ist meine
frage was mit .LookIn passiert sein kann, dass eine zuweisung auf einmal nicht geht.
werde wohl auf alternative umsteigen müssen
gruß
robert

Backslash unterschlagen! ;o)

Backowe

Hallo Robert,
ich möchte Dir ja auch gerne eine Antwort auf das Problem geben, nur ich habe keine Antwort. Ich habe in den annähernd 20 Jahren in denen ich mich mit dieser Sch...technik herumschlage, schon Pferde vor der Apotheke ko.... gesehen! ;o)

Shell "cmd /c dir c:\irgendwas\*.xl* /b > c:\xlsdateien.txt", vbHide

Etwas einfacher!

Backowe

Hallo Robert,

VBA-Code:

Sub DateienSuchenUndAuflisten()
Dim i As Long, sName As String

sName = Dir("c:\irgendwas\" & "*.xl*")

i = 1
Do While sName > ""

  Cells(i, "A") = sName

  i = i + 1

  sName = Dir
Loop
End Sub

Gruß Jürgen

					 Beitrag beendet, Danke an..
				
					robert
				
Gerd und Jürgen,

wie gesagt, sehr komischer fall,

werde auf alternativlösung umsteigen.

danke für euer bemühen

gruß

robert

Hi Robert,
vielleicht wäre das eine Alternative!

VBA-Code:

AW: Alternativvorschlag

robert

Backslash unterschlagen! ;o)

Backowe

Shell "cmd /c dir c:\irgendwas\*.xl* /b > c:\xlsdateien.txt", vbHide

Etwas einfacher!

Backowe

Hallo Robert,

VBA-Code:

Sub DateienSuchenUndAuflisten()
Dim i As Long, sName As String

sName = Dir("c:\irgendwas\" & "*.xl*")

i = 1
Do While sName > ""

  Cells(i, "A") = sName

  i = i + 1

  sName = Dir
Loop
End Sub

Gruß Jürgen

					 Beitrag beendet, Danke an..
				
					robert
				
Gerd und Jürgen,

wie gesagt, sehr komischer fall,

werde auf alternativlösung umsteigen.

danke für euer bemühen

gruß

robert

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread