- #1
P
PCDjoe
Bekanntes Mitglied
Themenersteller
- Dabei seit
- 01.08.2001
- Beiträge
- 4.143
- Reaktionspunkte
- 0
- Ort
- 31638 Stöckse
Ola,
ich bin am Knobeln und krieg nur eine halbfertige Lösung zustande. Vielleicht hat ja jemand eine Idee:
Danke für die Anregungen
ich bin am Knobeln und krieg nur eine halbfertige Lösung zustande. Vielleicht hat ja jemand eine Idee:
Sub DokumenteAusVerzeichnisInDokument()
'Soll alle Dokumente eines auszuwählenden Verzeichnisses in ein Dokument schreiben.
'Das Verzeichnis soll aber nicht mit dem identisch sein, in dem das Dokument gespeichert ist.
'Verzeichnis wählen fehlt, damit wird CurDir verändert
Set fs = Application.FileSearch
With fs
.LookIn = CurDir()
.FileName = *.doc
'Der Nullwert erscheint, wenn die Suche erfolglos war
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To .FoundFiles.Count
' Hier fehlt das Einschreiben des Dateinamens in das Dokument .FoundFiles(i) liefert den Namen, der soll jeweils in eine neue Zeile
Next i
Else
MsgBox Keine Dokumente gefunden
End If
End With
End Sub
Danke für die Anregungen