Office: erste Datei (nach Alpahbet) im Ordner öffnen

syme · 3. Februar 2018

Hallo liebe Community!

Mittels VBA CommandButton würde ich gerne im Ordner c:test die erste Datei öffnen. In dem Ordner sind viele Dateien (pdf, jpg etc.) und ich möchte die im Alphabet zuerst vorkommende Datei öffnen (also die ganz oben steht, bei Sortierung nach Dateiname).

Könnt ihr mir da helfen?
Vielen Dank und besten Gruß
syme

:)

MisterBurns · 5. Februar 2018

Hallo Syme,

mir fällt da nur eine indirekte Lösung ein.
1. Lies alle Dateinamen aus besagtem Ordner und schreibe alle in ein separates Tabellenblatt (zB "Dateinamen"), beginnend zB in Zelle A1. Die erste Datei wird dann natürlich in A1 geschrieben
2. Öffne die Datei in Pfad C:test & Dateinamen!A1

Das mag nicht sehr elegant sein, sollte aber funktionieren.
Wie du die Dateinamen auslesen kannst, findest du unter https://www.makro-excel.de/2017/01/3...cel-schreiben/

Ob sichergestellt ist, dass in besagtem Ordner wirklich immer eine von Excel lesbare Datei ist, musst du entscheiden. Ansonsten müsste dein Code noch auf bestimmte Dateiendungen eingeschränkt werden.

Alles klar?

Storax · 5. Februar 2018

Google hilft, diese Funktionen und Code:

Sub TestIt()
Dim vDat As Variant
vDat = SortedFiles("... Dein Pfad ...")
debug.print vdat(lbound(vdat))
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Fennek11 · 5. Februar 2018

Hallo,

da gibt es noch einen Weg:

Rechtsklick auf die Windows-Taste, CMD (oder ausführen: CMD.EXE)

Sieh dir die Schalter des dir-Befehls an (dir /?) und schreibe die sortierte Liste in eine Datei

PHP:

dir /o-d *.* > c:/temp/myList.txt

Luschi · 5. Februar 2018

Hallo MisterBurns,

da es nur ein Element mit dem gleichen Namen im Pfad geben kann, ist diese Variante einfacher und kann sich das Sortieren schenken: Code:

Sub Machmal()
Dim oSortList As Object, sDatei As String, sPfad As String

'Element des Dot.Net-Frameworks, welches automatisch sortiert
'von A --> Z
Set oSortList = CreateObject("System.Collections.SortedList")
oSortList.Capacity = 750

sPfad = "H:DatenExcel"
sDatei = Dir(sPfad & "*.*", vbNormal)
Do While sDatei ""
oSortList(sDatei) = oSortList(sDatei)
sDatei = Dir
Loop
'Anzahl gefundener Dateien
MsgBox oSortList.Count
MsgBox oSortList.GetKey(0) 'kleinster Wert!
MsgBox oSortList.GetKey(1)
MsgBox oSortList.GetKey(2)

oSortList.Clear
Set oSortList = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß von Luschi
aus klein-Paris

Storax · 5. Februar 2018

Okay, dann so
Code:

Sub shortTest()

Dim vdat As Variant
Dim fullPath As String

fullPath = "... Dein Pfad ..."
vdat = Split(CreateObject("WScript.Shell").Exec("CMD /S /C dir /o /b /a:-D " & fullPath & Chr(34) & "").StdOut.ReadAll, vbCrLf)
Debug.Print vdat(LBound(vdat))

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

syme · 5. Februar 2018

Super, vielen Dank euch allen!

Ich denke damit komme ich klar! Ich werde es morgen mal durchtesten.

Besten Gruß!

Office: erste Datei (nach Alpahbet) im Ordner öffnen

erste Datei (nach Alpahbet) im Ordner öffnen

erste Datei (nach Alpahbet) im Ordner öffnen

erste Datei (nach Alpahbet) im Ordner öffnen

erste Datei (nach Alpahbet) im Ordner öffnen - Similar Threads - Datei Alpahbet Ordner

Eine Datei automatisch anhängen, die jeden Tag anders heißt

Dateiname der aktuellen Datei als Variable

Eine Datei mit der Endung .geojson in Excel umwandeln

OneDrive: Verknüpfung eines geteilten Ordners zu "Meine Dateien" nicht möglich

Geoeffnete Dateien sind nicht zu sehen

Verknüpfung oeffne und Datei öffnen

Dateien zusammenführen