Hallo Holger,
danke für deine Mühe. Nur will mein Rechner auch mit diesem, voller -für mich interessanten neuen- Befehlen steckenden Code nicht das machen, was ers soll. Er setzt einfach den Fokus nicht auf das entsprechende Laufwerk. Vielleicht liegt es an der Version oder ich hab noch irgendwo eine Einstellung tu viel oder zu wenig. Ich werd mal einen anderen Rechner mit meinem Progrämmchen belästigen. Ich halte dich auf dem Laufenden.
Viele Grüße
Zülvi
Holger schrieb am 21.08.2009 16:15:32:
Hallo Zülvi,
soweit ich dich verstanden habe, öffnet Excel die CSV-Dateien ordnungsgemäß, wenn du die angegebenen Einstellung triffst. Deshalb kann es an der Datei wohl nicht liegen. Wenn die Probleme aber weiterhin bestehen, könntest du auch Workbooks.OpenText (s. VBA-Hilfe) verwenden. Ich kann aber nicht sagen, worin das Problem besteht. Dein Code scheint i.O. zu sein.
Versuche mal folgenden Code einzusetzen. Er sucht nacheinander alle csv-Dateien im Ordner "C:\Temp\FL" und öffnet sie. Andere Dateien stören nicht.
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Fldr = Fso.getFolder("C:\Temp\FL")
Set Dateien = Fldr.Files
For Each d In Dateien
If LCase(Right(d, 3)) = "csv" Then
Workbooks.Open Filename:=d, UpdateLinks:=0, Format:=4, local:=True
'sonstige Anweisungen
End If
Next
Zülvi schrieb am 21.08.2009 13:42:38:
Hallo Holger,
tatsächlich stehen zwei csv in dem Verzeichnis. Die soll Excel auch nacheinander abarbeiten. Ich hab das Makro mal schrittweise ausgeführt und Excel hat keine der beiden Dateien geladen. Es erkennt sie erst, wenn ich manuell über Datei --> öffnen das Verzeichnis, wo beide Dateien drinstehen anklicke und das Format "Alle Dateien" anklicke.
Ich dachte, mit dem Befehl Chdir setzt Excel automatisch den Focus auf den Pfad. oder hat er vielleicht Probleme mit dem csv-Format?
Grüße
Zülvi
Holger schrieb am 21.08.2009 11:49:46:
Hallo Zülvi,
hier ist die Ferndiagnose schwieriger. Führe mal diesen Teil des Makros schrittweise aus und stelle fest, was in der Variablen csv steht. Ich vermute, dass dort nicht die csv-Datei enthalten ist, sondern irgendetwas anderes, denn "Dir" schreibt die erste gefundene Datei in die Variable. Wenn das der Fall ist, kannst du eventuell den zweiten Stern durch die Endung der csv-Datei ersetzen, z.B.
pfad = "C:\Temp\FL"
csv = Dir(pfad + "\*.csv")
Das funktioniert aber auch nur sicher, wenn nur eine csv-Datei in diesem Verzeichnis ist.
Gruß
Holger
Zülvi schrieb am 21.08.2009 09:27:32:
Hello again,
meine letzte Anfrage wurde so prompt und erfolgreich beantwortet, da dachte ich in meinem jugendlichen Leichtsinn, ich stelle noch eine Frage. Dieses Mal geht es mir um das automatische Öffnen einer Datei aus einem bestimmten Pfad. Ich lege zur weiteren Bearbeitung unter C täglich eine csv ab. Ein Makro greift dann auf diesen Pfad zu, öffnet die csv und verarbeitet die Daten. Das funtioniert alles super, nur bringt Excel den Laufzeitfehler '1004'- Datei nicht gefunden, wenn ich nicht vor Start des Makros über Datei öffnen, manuell den Pfas eingestellt habe. Der Code für das automatische Öffnen sieht wie folgt aus:
pfad = "C:\Temp\FL"
ChDir pfad
csv = Dir(pfad + "\*.*")
Workbooks.Open Filename:=csv, UpdateLinks:=0, Format:=4, local:=True
Was kann ich tun, um diesen manuellen Schritt zu umgehen?
1000 Dank!
Zülvi |