Name einer importierten Datei darstellen

Forumthread: Name einer importierten Datei darstellen
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Name einer importierten Datei darstellen

05.12.2004 19:38:29

Ines

Hallo zusammen,
eine Frage:
Ich importiere über VBA ASCII-Dateien in Excel-Sheets.
Nun möchte ich gerne in einer beliebigen Zelle den Dateinamen der Datei darstellen, die ich gerade importiert habe. Wie kann ich das in VBA erreichen?
Wer könnte mir weiterhelfen?
Vielen Dank.
Ines

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Name einer importierten Datei darstellen

05.12.2004 19:43:24

Josef
AW: Name einer importierten Datei darstellen

05.12.2004 19:52:33

Ines
AW: Name einer importierten Datei darstellen

05.12.2004 19:58:56

Josef
DANKE SEPP!!!

05.12.2004 20:08:03

Ines

AW: Name einer importierten Datei darstellen

05.12.2004 19:43:24

Josef

Hallo Ines!
Wenn du die Datei mit VBA importierst, dann hast du in deinem
Code doch irgendwo den Dateinamen!
Bei "VBA gut" wird es doch kein Problem sein, diesen in eine Zelle zu schreiben!
Gruß Sepp

AW: Name einer importierten Datei darstellen

05.12.2004 19:52:33

Ines

Richtig Sepp,
mein Problem ist jedoch, dass der gesamte Pfad in die Zelle gedrückt wird, ich will jedoch nur den Dateinamen.

AW: Name einer importierten Datei darstellen

05.12.2004 19:58:56

Josef

Hallo Ines!
das geht zB. so:

Sub ines()
Dim strFile As String
Dim strDatei As String
strFile = "C:\Eigene Dateien\Unterlagen\Text\meinText.txt"
strDatei = Right(strFile, InStr(1, StrReverse(strFile), "\") - 1)
MsgBox strDatei 'mit Dateierweiterung
strDatei = Left(strDatei, Len(strDatei) - 4)
MsgBox strDatei 'ohne dateierweiterung
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß Sepp

DANKE SEPP!!!

05.12.2004 20:08:03

Ines

DANKE, Du hast mir sehr geholfen!