Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Ordner auslesen

Betrifft: Ordner auslesen von: Max
Geschrieben am: 08.11.2013 10:02:34

Hallo zusammen,

ich lese mit einem Makro meine Ordner aus, z.B. meine MP3-Sammlung. Leider funktioniert es nach Umstellung auf Win7 64 Bit und Office 14 nicht mehr. Es läuft immer in die Fehlermeldung, ich habe den Link aber aus dem Explorer herauskopiert. Ich komme nicht weiter - hat jemand eine Idee?

Gruß
Max

Sub DateienAuflisten()
Dim i As Long

'hier den auszulesenden Pfad eingeben
Const verz = "Y:\2 Audiothek\1 Musik"


On Error GoTo fehler
ChDir verz
Range("A1").Select
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles
.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

  

Betrifft: AW: Ordner auslesen von: Hajo_Zi
Geschrieben am: 08.11.2013 10:04:11

Hallo Max,

Application.FileSearch gibt es ab 2007 nicht mehr.
http://hajo-excel.de/chCounter3/getfile.php?id=21

GrußformelHomepage


  

Betrifft: AW: Ordner auslesen von: Max
Geschrieben am: 08.11.2013 14:34:54

Hallo Hajo,

das funktioniert leider nicht wegen 64bit-Version von Excel. Hast Du auch dafür eine Variante?

Gruß
Max


  

Betrifft: AW: Ordner auslesen von: JoWE
Geschrieben am: 08.11.2013 10:09:26

Hallo Max,

da hast Du anscheinen etwas verpasst!
siehe z.B. hier: http://www.office-loesung.de/ftopic431177_0_0_asc.php

Gruß
Jochen


  

Betrifft: AW: Ordner auslesen von: Max
Geschrieben am: 08.11.2013 14:33:05

Hallo Hajo,

vielen Dank - aber nun kommt eine Fehlermeldung wegen 64 Bit. Hast Du auch dafür eine Variante?

Gruß
Max


  

Betrifft: AW: Ordner auslesen von: Hajo_Zi
Geschrieben am: 08.11.2013 17:15:38

Halo Max,

Nein

GrußformelHomepage


  

Betrifft: AW: Ordner auslesen von: Hajo_Zi
Geschrieben am: 08.11.2013 17:53:51

Hallo Max,

ersetze die Ordner Auswahl durch diesen Code.
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then
GetAOrdner2 = .SelectedItems(1) & "\"
Else
GetAOrdner2 = ""
End If
End With
Variable anpassen.

Gruß Hajo


 

Beiträge aus den Excel-Beispielen zum Thema "Ordner auslesen"