habe folgendes Problem möchte nur den Dateinamen ohne .xls meherer excel datei als variable haben.
Momentan lese ich so die datei ein. Da aber die Dateinamen nicht immer 5 stellig sind habe ich ein Problem. Ich mochte das mir das VBA programm .xls abschneidt und was vor dem . steht in die variable "Dateinamen" schreibt.
Hat da wer eine Lösung dafür?
----------------------------
FN = FreeFile()
Open "c:\temp\daten.txt" For Input As #FN
z = 1
While Not EOF(FN)
Line Input #FN, strLineText
'MsgBox strLineText
Dateinamen = strLineText
Dateinamen = Left(Dateinamen, 5)
--------------------------------