Herbers Excel-Forum - das Archiv

Pfad einlesen

Bild

Betrifft: Pfad einlesen
von: junny
Geschrieben am: 07.10.2003 15:29:42
Hallo Profis,

folgender Code kopiert mir unter anderem auch den Pfad mit in die Tabelle, dass möchte ich jedoch nicht!! Was muss geändert werden??

Sub ImportZeile()
Dim fs As FileSearch
Dim lRow As Long
Dim iCounter As Integer
Set fs = Application.FileSearch
lRow = 2
With fs
.Filename = "*.xls"
.LookIn = "C:\Zeitenliste" 'Range("A20").Value
.Execute
For iCounter = 1 To .FoundFiles.Count
Cells(lRow, 1).Value = .FoundFiles(iCounter)
lRow = lRow + 1
Workbooks.Open .FoundFiles(iCounter)
Sheets("Zeiten").Select
ActiveSheet.Range("2:2").Copy ThisWorkbook.Worksheets(1).Cells(lRow, 1)
lRow = lRow + Range("2:2").Rows.Count
ActiveWorkbook.Close savechanges:=False
Next iCounter
End With


Danke schon mal
Gruss junny

Bild

Betrifft: AW: Pfad einlesen
von: Nike
Geschrieben am: 07.10.2003 15:47:11
Hi,
ggf. diese Zeile weglassen:
Cells(lRow, 1).Value = .FoundFiles(iCounter)
oder nur den Dateinamen, hm dann müßte man rumprobieren,
z.B. so?
Cells(lRow, 1).Value = .FoundFiles(iCounter).name

Bye

Nike
Bild

Betrifft: Danke Nike (Zeile weg lassen war O.K.)
von: junny
Geschrieben am: 07.10.2003 15:52:18
o.T.
 Bild
Excel-Beispiele zum Thema " Pfad einlesen"
Tabellenblattnamen in ein Listenfeld einlesen Gefilterte Daten in eine ListBox einlesen
Einlesen von Zellinhalten in Variablen 1000 Arbeitsblätter aus 1000 Arbeitsmappen einlesen
Tabellenblattnamen in eine ListBox einlesen Text aus UserForm-Textbox in Variable einlesen
Blätter in ComboBox-Feld einlesen und auswählen Dateinamen in Tabelle einlesen
Namen einer Arbeitsmappe einlesen