Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1484to1488
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige