VBA Erklärung

[crank15]

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.

[00202]

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:

[maninweb]

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ß

[Kuwer]

Hallo,

Code:

    strVerzeichnis = "D:\Eigene Dateien\Hajo\"
    StrTyp = "*.xls"

Gruß Uwe

[snb]

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

[crank15]

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!!

[snb]

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