Clever-Excel-Forum

Hallo zusammen,

ich habe hier ein VBA code gefunden der das tut was ich brauche. Das Problem ist das ich nicht verstehe was ich dort jeweils anpassen muss.

Option Explicit

Sub Dateiliste_Neu()
' erstellt von Hajo.Ziplies@web.de
' jüngste Datei feststellen
' http://home.media-n.de/ziplies/
Dim strVerzeichnis As String
Dim StrDatei As String
Dim I As Integer
Dim StrTyp As String
Dim Dateiname As String
Dim Dateiname_neu As String
Dim Zeit As Date
strVerzeichnis = "D:\Eigene Dateien\Hajo\"
StrTyp = "*.xls"
Dateiname = Dir(strVerzeichnis & StrTyp)
Dateiname_neu = Dateiname
Zeit = FileDateTime(strVerzeichnis & Dateiname)
Do While Dateiname <> ""
If Zeit < FileDateTime(strVerzeichnis & Dateiname) Then
Zeit = FileDateTime(strVerzeichnis & Dateiname)
Dateiname_neu = Dateiname
End If
Dateiname = Dir
Loop
MsgBox " Die jüngste Datei ist " & Dateiname_neu
End Sub

Kann mir bitte jemand erklären was genau hier angepasst werden muss. Ordner bzw. Dateinamen ?

Vielen Dank.

Hallo, :19:

hier wird dir die neueste Datei (nur xls) in einem bestimmten Ordner angezeigt. Wenn der Code das macht, was du willst, musst du doch nichts anpassen. :21:

Hallo,

@Case: vielleicht müsste er ja doch das Verzeichnis anpassen D:\Eigene Dateien\Hajo - ausser er heißt Hajo und nutzt noch Windows XP ;-)

Gruß

Hallo,

Code:
    strVerzeichnis = "D:\Eigene Dateien\Hajo\"

    StrTyp = "*.xls"

Gruß Uwe

Code:
Und verwende bitte Code Tags

Alternative:

Code:
Sub M_snb()

  MsgBox "Die jüngste Datei in " & Application.DefaultFilePath & " ist " & Split(CreateObject("wscript.shell").exec("cmd /c dir """ & Application.DefaultFilePath & "*.xlsx"" /b/o-d").stdout.readall, vbCrLf)(0)

End Sub

Erstmal vielen Dank für die Antworten.

Eigentlich wollte ich das er mit die jüngste Datei öffnet. Stattdessen kommt nur ein pop up fenster der mir das mit den namen von der jüngsten Datei ausgibt

Hat sich erledigt vielen Dank!!

Code:
Sub M_snb()

  workbooks.open Application.DefaultFilePath & Split(CreateObject("wscript.shell").exec("cmd /c dir """ & 

Application.DefaultFilePath & "*.xlsx"" /b/o-d").stdout.readall, 

vbCrLf)(0)

End Sub

crank15

Case

maninweb

Kuwer

snb

crank15

snb