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