mit VBA Ordner öffnen und Dateinamen in Variable packen

[slowboarder]

Hast Du etwas Einfacheres (ich meine natürlich Geschickteres)?

Gruß Ralf

Wenn Excel 365 verwendet werden wird, sollte man auch die Funktion TEXTNACH in VBA verwenden können.
Da wäre die Formel dann einfacher:

WorksheetFunction.TextAfter(fullname, "\", -1)

Hab jetzt aber nicht geprüft, ob die Funktion auch unter diesem Namen im WF-Katalog steht

---

Hi

Wenn man für GetOprnFilename den Startpfad vorgeben will, dann funktioniert das so, sofern das Laufwerk einem Buchstaben zugeordnet ist:

ChDrive "D"
ChDir "D:\D-Dokumente\sonstiges\Testordner"
FullName =Application.GetOpenFilename(...)

Gruß Daniel

[RPP63]

TEXTAFTER funktioniert nicht per WSF.
   

Es ginge mit Evaluate():
Evaluate("TEXTAFTER(""" & ThisWorkbook.FullName & """, ""\"", -1)")
da finde ich Dir(ThisWorkbook.FullName) etwas griffiger.

Disclaimer:
ThisWorkbook.FullName dient hier nur als Platzhalter …

[knobbi38]

Hallo,

jetzt wird es langsam aber etwas kurios, Dir() und Evaluate() für das Ermitteln eines Dateinamens aus einem absoluten Dateiangabe und ein "Exit Sub" fehlt da auch nicht.  

Ein schönes Beispiel findet man z.B. hier:
https://vbaplanet.com/filedialogs.php

Den Dateinamen kann man dann einfach mit VBA Mitteln so ermitteln:

Code:

mid$(strFullFilename, InStrRev(strFullFilename, "\")+1)

 
Dir() seht zwar elegant aus, ist es aber nicht und sollte eigentlich, weil es nicht reentrant fähig ist, gar nicht erst verwendet werden. Mal abgesehen davon unterstützt Dir() m.W. keine Unicode-Zeichen in Dateinamen. 

Je nach Anforderung könnte man Ersatzweise auch das FSO dafür verwenden. 

Knobbi38

[snb]

Code:

Sub M_snb()
  With Application.FileDialog(3)
    .InitialFileName = "D:\snb_\OF\*.*"
    If .Show Then MsgBox CreateObject("scripting.filesystemobject").getfile(.SelectedItems(1)).Name
  End With
End Sub

oder

Code:

Sub M_snb()
  With Application.FileDialog(3)
    .InitialFileName = "D:\snb_\OF\*.*"
    If .Show Then MsgBox Dir(.SelectedItems(1))
  End With
End Sub

[Crazy Tom]

moin,

ich sehe schon es gibt mehrere Wege mein Ziel zu erreichen
schade, dass ich nicht einen davon kannte 

mfg Tom 

[Andreas Killer]

schade, dass ich nicht einen davon kannte 

Mach Dir mal keinen Kopf, Du bist halt an dem Punkt wo wir vor Jahrzehnten waren.

Mut zur Lücke, Versuch macht kluch, mit der Zeit wird das. In ein paar Jahren bist Du an dem Punkt wo sich der Käse anfängt zu wiederholen.

Andreas.

[snb]

Oder als Nachbrenner

Code:

Sub M_snb()
  With Application.FileDialog(3)
    .InitialFileName = "D:\snb_\OF\"
    If .Show Then MsgBox Replace(.SelectedItems(1), .InitialFileName, "")
  End With
End Sub

[slowboarder]

moin,

ich sehe schon es gibt mehrere Wege mein Ziel zu erreichen
schade, dass ich nicht einen davon kannte 

mfg Tom 

kein Problem. Es ist die Grundlage des Programmierens, dass man sich aus aus den Werkzeugen die man kennt, selber die Werkzeuge zusammenbastelt, die man braucht aber noch nicht hat.

Wenn man keine Spezialfunktionen (TextNach, InstrRev, Dir) für sowas kennt, würde man sich das selber programmieren

Code:

for i = Len(VollständigerDateiname) to 1 step -1
    if Mid(VollständigerDateiname, i, 1) = "\" then Exit for
    Dateiname = Mid(VollständigerDateiname, i, 1) & Dateiname
Next 
 

[Crazy Tom]

moin,

mein Problem bestand weniger darin den Dateinamen aus dem kompletten Pfad zu ermitteln
sondern den festgelegten Ordner zu öffnen 
und durch klick auf die Datei die Information 
zum Dateinamen, oder von mir aus auch den Fullname, zu ermitteln
aus dem Fullname den Dateinamen zu holen, hätte ich schon hinbekommen

mfg Tom