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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen