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
1060to1064
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 datei mit mekro öffnen

txt datei mit mekro öffnen
18.03.2009 14:12:06
F
Hallo,
mit diesem code öffne ich txt Dateien.
MsgBox "bitte graph Datei auswählen"
Set Fso = CreateObject("Scripting.FileSystemObject")
Ordnername = "i:\temp"
If Fso.FolderExists(Ordnername) = True Then
ChDrive ("i")
ChDir ("i:\temp")
Else
ChDrive ("c")
ChDir "C:\"
End If
sFiles = "txt Files (*.txt), *.,"
var = Application.GetOpenFilename(sFiles)
If var = False Then
MsgBox "keine Datei angewählt"
Exit Sub
End If
Nun bekomme ich aber alle txt Dateien angezeigt.
Ist es möglich mir nur die Dateien anzeigen zu lassen die graph xxxx.txt heißen?
Wobei xxxx Zahlen von 0000 bis 9999 sind.
graph 0000.txt
graph 0001.txt
graph 0002.txt
graph 0003.txt, usw
Gruß
Frank

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: txt datei mit makro öffnen
18.03.2009 14:15:03
F
soll natürlich makro heißen.
AW: txt datei mit makro öffnen
18.03.2009 14:31:46
F
Sorry, ich habe die Frage noch einmal hier eingetragen und die Frage als noch offen markiert.
Es gibt keine Funktion seinen eigenen Beitrag zu editieren?
Hallo,
mit diesem code öffne ich txt Dateien.
MsgBox "bitte graph Datei auswählen"
Set Fso = CreateObject("Scripting.FileSystemObject")
Ordnername = "i:\temp"
If Fso.FolderExists(Ordnername) = True Then
ChDrive ("i")
ChDir ("i:\temp")
Else
ChDrive ("c")
ChDir "C:\"
End If
sFiles = "txt Files (*.txt), *.,"
var = Application.GetOpenFilename(sFiles)
If var = False Then
MsgBox "keine Datei angewählt"
Exit Sub
End If
Nun bekomme ich aber alle txt Dateien angezeigt.
Ist es möglich mir nur die Dateien anzeigen zu lassen die graph xxxx.txt heißen?
Wobei xxxx Zahlen von 0000 bis 9999 sind.
graph 0000.txt
graph 0001.txt
graph 0002.txt
graph 0003.txt, usw
Gruß
Frank
Anzeige
AW: txt datei mit mekro öffnen
21.03.2009 10:12:51
Tino
Hallo,
versuche es mal so

var = Application.GetOpenFileName("All files (?.txt),*.txt*,Text File(*.txt),*.txt")


Gruß Tino

AW: txt datei mit mekro öffnen
21.03.2009 10:43:25
Tino
Hallo,
ach so Du meinst noch mit "graph" davor
So müsste es gehen.

Var = Application.GetOpenFilename("All Graph (graph?.txt), *.txt,Text File(*.txt),*.txt")


Gruß Tino

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige