Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
352to356
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
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateiname

Dateiname
18.12.2003 14:11:12
Jan
Hallo Forum!

Gibt es einen Befehl, der mir einen Dateinamen wiedergibt?
Hier gibt mir d nur einen Pfad wieder.

Dim d As Variant
On Error Resume Next
d = Application.GetOpenFilename("Text Files (*.txt), *.txt")

If d <> False Then
Workbooks.OpenText Filename:=d,

Wer kann helfen??

Danke Jan

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

Betreff
Datum
Anwender
Anzeige
AW: DIR(..) oT.
18.12.2003 14:21:09
Galenzo
AW: Dateiname
18.12.2003 14:24:09
Reinhard
Hallo Jan,
d gibt dir Pfad und Dateinamen zurück.
Den reinen Dateinamen musst du wie unten etrahieren.
Oder habe ich dich missverstanden?
Gruß
Reinhard


Sub tt()
Dim d As Variant
On Error Resume Next
d = Application.GetOpenFilename("Text Files (*.txt), *.txt")
DateiName = Mid(d, InStrRev(d, "\") + 1)
MsgBox DateiName
'Workbooks.OpenText Filename:=d
End Sub

AW: Dateiname
18.12.2003 14:28:09
Karl-Otto Reimann
Hallo Jan
Vielleicht sowas:


Sub OS_IMP()
Dim sWord As String, sPath As String, sSearchPath As String, FileName As String,InputData
Dim AnzFound As Integer
AnzFound = 0
sWord = "super"
sSearchPath = "c:\Programme\Hallo\*.txt"
sPath = "c:\Programme\Hallo\"
FileName = Dir(sSearchPath)
If FileName <> "" Then
Do While FileName <> ""
Open sPath & FileName For Input As #1
Do While Not EOF(1)
Line Input #1, InputData
If InStr(1, InputData, sWord) > 0 Then
AnzFound = AnzFound + 1
Sheets("Tabelle1").Cells(AnzFound, 11) = FileName
Sheets("Tabelle1").Cells(AnzFound, 10) = InputData
End If
Loop
Close #1
FileName = Dir
Loop
End If
End Sub


mfG KO
Anzeige
AW: Dateiname
19.12.2003 09:35:31
Jan
Danke für die guten Tipps!

Wüsnsche ein frohes Fest!

Jan

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige