Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1484to1488
1484to1488
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

txt & xls Öffnen

Forumthread: txt & xls Öffnen

txt & xls Öffnen
31.03.2016 15:58:12
Raphael
Hallo Zusammen,
ich versuche hier verzweifelt txt und xls Dateien aus einem Ordner zu öffnen.
schaffe es aber nicht :-(
Mit dem folgenden Bestandteil öffnen sich nur die txt dateien nicht aber die xls Dateien in dem Ordner.
sFile = Dir(sPath & "*.txt")
um xls und txt zu öffnen müsste es doch irgendwie so ausschauen:
sFile = Dir(sPath & "*.txt &.xls")
funktioniert aber leider nicht!
kann mir jemand helfen?
Beste Grüße
Raphael

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: txt & xls Öffnen
31.03.2016 16:06:21
ChrisL
Hi Raphael
Die einfachste Variante wäre erst einen Suchlauf für txt und anschliessend einen weiteren Suchlauf für xls zu machen. Der gleiche Code wäre somit zweimal vorhanden.
Oder du lässt die Einschränkung zur Dateiendung im Suchlauf weg (also *.*) und prüfst erst vor dem Öffnen, ob der Pfad die richtige Endung enthält.
If Right(VariablePfad, 3) = "txt" Or Right(VariablePfad, 3) = "xls" Then...
cu
Chris

Anzeige
DANKE!
31.03.2016 16:16:11
Raphael
das *.* hat mir geholfen!

AW: txt & xls Öffnen
31.03.2016 16:07:15
Rudi
Hallo,
das geht nur einzeln.
etwa so 
varr = Array("*.xls","*.txt")
for i = lbound(varr) to ubound(varr)
sFile = Dir(sPath & varr(i))
'mach was
next i
Gruß
Rudi
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige