Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
340to344
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
340to344
340to344
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

öffen mit unv. Dateinamen

öffen mit unv. Dateinamen
21.11.2003 13:08:55
atikar
Hallo Leute,

ich möchte Dateien öffne, von denen aber nur 1 Teil bekannt ist, es gibt keine doppelnennungen in dem Ordner.

beispiel:

hall.opu
will.sep
dall.nap

jetzt soll von obigen dateien eine geöffnet werden wenn nur ein teil des namens bekannt ist.
z.B. nur hall dann soll hall.opu geöffnet werden
oder nur sep dann soll will.sep geöffnet werden.

mein macro kann auf jeden fall unterscheiden ob der eingegebene name vor oder nach dem punkt steht, blos wie ergänze ich den rest?

geht sowas.

ciao

atikar

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: öffen mit unv. Dateinamen
21.11.2003 13:23:11
Nayus
Hallo,
anbei eine (noch unvollständige Sub), die Dateien öffnet, die einem Suchkriterium im Namen entsprechen.

To Do:
- Suchpfad anpassen
- Bestimmen, wo das Suchkriterium herkommt (hier A1 im 1. Blatt der Mappe)
- Ausprogrammieren, was gemacht werden soll mit der geöffneten Datei

Viel Erfolg,
Nayus


Sub findNopenFile()
Dim sWord As String, sPath As String,
dim sSearchPath As String, FileName As String, InputData
sWord = sheets(1).cells(1,1) '
'Suche nach allen Dateien im Verzeichnis c:\temp\
sSearchPath = "c:\temp\*.*"
sPath = "c:\temp\"
FileName = Dir(sSearchPath)
If FileName <> "" Then
Do While FileName <> ""
If instr(FileName, sWord) > 0 Then
' Datei gefunden, die dem Kriterium entspricht
Open sPath & FileName For Input As #1
Do While Not EOF(1)
Line Input #1, InputData
... tu, was immer Du willst mit der geöffneten Datei
Loop
Close #1
End If
'nächste Datei
FileName = Dir
Loop
End If
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige