meine Frage ist wohl : wie kann man ein bestimmter Name von eine Excel-Datei, das in ein beliebigen Folder auf D:/ Laufwerk liegt in meine Excel Blatt kopieren, via VBA ?
Danke sehr falls ihr mir helfen könnt.
Sub alle_Dateien_Verzeichnis() '
Dim Dlg As FileDialog, Z&
Dim Si, Ext$, Datei$, VB, Objekt
Set Dlg = Application.FileDialog(msoFileDialogFolderPicker) 'Verzeichnis wählen
If Dlg.Show = True Then
For Each Si In Dlg.SelectedItems 'Die Abfrage für den selektierten Eintrag
Ext = "*.xls*" 'Dateiextension (auch .xlsm von XL 2007 berücksichtigt)
Si = IIf(Right(Si, 1) = "\", Si, Si & "\")
Datei = Dir(Si & Ext)
Do While Len(Datei) > 0
Z = Z + 1
ActiveSheet.Cells(Z, 1) = Datei
Datei = Dir() ' nächste Datei
Loop
Next
End If
End Sub