Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Variable Datei per VBA öffnen

Variable Datei per VBA öffnen
28.06.2017 16:30:15
Jens
Hallo Zusammen,
Momentan probier ich aus einem Order eine Datei auszulesen. Problem hierbei ist es das zwei verschiedene CSV Dateien in dem Ordner abgelegt. Ich möchte nur die Datei mit der Bezeichung: DB-Rechnung_VergleichMISxxxxxxxxx. Die xx Werte sind variable. Die letzte erstellte Datei wird bereits abgerufen.
Hat jemand eine Idee wie ich das Problem lösen kann?
Danke
Gruß Jens
Sub neuesteDateiermitteln()
AktuellstesDatum = DateValue("1.1.1900")
NeuesteDatei = ""
Set FS = CreateObject("scripting.filesystemobject")
Set Drv = FS.GetFolder("W:\test\Controlling")
For Each Datei In Drv.Files
If Datei.DateLastModified > AktuellstesDatum Then
NeuesteDatei = Datei.Name
AktuellstesDatum = Datei.DateLastModified
End If
Next Datei
MsgBox NeuesteDatei
Application.Workbooks.OpenText Filename:=Drv & "\" & NeuesteDatei, DataType:=xlDelimited,  _
_
_
_
_
_
_
Semicolon:=True, Local:=True
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Variable Datei per VBA öffnen
28.06.2017 16:59:50
UweD
Hallo
ungetestet....
Sub neuesteDateiermitteln()
    AktuellstesDatum = DateValue("1.1.1900")
    NeuesteDatei = ""
    FileFilter = "DB-Rechnung_VergleichMIS"
    
    Set FS = CreateObject("scripting.filesystemobject")
    Set Drv = FS.GetFolder("W:\test\Controlling")
        
    For Each Datei In Drv.Files
        If InStr(Datei.Name, FileFilter) > 0 Then
        
            If Datei.DateLastModified > AktuellstesDatum Then
                NeuesteDatei = Datei.Name
                AktuellstesDatum = Datei.DateLastModified
            End If
        End If
    Next Datei
    MsgBox NeuesteDatei
      
    Application.Workbooks.OpenText Filename:=Drv & "\" & NeuesteDatei, DataType:=xlDelimited, _
        Semicolon:=True, Local:=True

End Sub


LG UweD
Anzeige

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige