Dateien aus Ordnerliste handeln

31/05/2009 - 10:55 von wbecker53 | Report spam
Ich möchte gerne mit dem Open-Befehl alle Dateien nacheinander
handeln, die sich in den Ordnern einer Ordnerliste befinden:

Beispiel: Ordnerliste.txt

Darin:
c:\Daten\Wolfgang
c:\Daten\Helga
d:\Incoming
usw.

Mit Excel will ich nun jeden Ordner öffnen und in einer Schleife
alle .txt- Dateien mit
Open öffnen und handeln.

Wer kann mir da helfen oder zumindest die Klasse nennen, die sowas
macht.

mfg
Wolfgang
 

Lesen sie die antworten

#1 Andreas Killer
31/05/2009 - 11:18 | Warnen spam
wbecker53 schrieb:

Beispiel: Ordnerliste.txt
Darin:
c:\Daten\Wolfgang
c:\Daten\Helga
d:\Incoming
usw.

Mit Excel will ich nun jeden Ordner öffnen und in einer Schleife
alle .txt- Dateien mit
Open öffnen und handeln.


Eine Fehlerprüfung ob "Ordnerliste.txt" sowie die darin enthaltenen
Ordner vorhanden sind mache ich mal nur rudimentàr ohne Fehlermeldung.

Andreas.

Option Explicit
Option Compare Text

Sub Main()
Const OrdnerListe = "z:\Ordnerliste.txt"
Dim fs As Object
Dim Liste As Object
Dim Ordner As Object
Dim Datei As Object
Dim Zeile As String
Dim Wb As Workbook

Set fs = CreateObject("Scripting.FileSystemObject")
'Gibt es die Ordnerliste?
If Not fs.FileExists(OrdnerListe) Then Exit Sub
'Textdatei öffnen
Set Liste = fs.OpenTextFile(OrdnerListe)
Do While Not Liste.AtEndOfStream
'Zeile lesen
Zeile = Liste.ReadLine
'Gibt es den Ordner?
If fs.FolderExists(Zeile) Then
'Ordner holen
Set Ordner = fs.GetFolder(Zeile)
'Alle Dateien in ihm durchlaufen
For Each Datei In Ordner.Files
'Ist es ein Textfile?
If fs.GetExtensionName(Datei.Name) = "txt" Then
'Mit Excel öffnen
Set Wb = Workbooks.Open(Datei.Name)
'Hier das "handeln"
'Und wieder schließen
Wb.Close
End If
Next
End If
Loop
Liste.Close
End Sub

Ähnliche fragen