Variable Datei per VBA öffnen
28.06.2017 16:30:15
Jens
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
Anzeige