Dateiinhalt auslesen und übertragen

Hallo Experten,
ich habe ein mittelschweres Problem.
Täglich erhalte ich per Datei eine Excel-Tabelle in der in der Zelle A1 bis A10 Daten stehen.Die Datei wird im Ordner D:\temp gespeichert. Der Dateiname ist das Datum in der Form JJJJMMTT.csv. Ich möchte per VBA jeden Tag die Daten der neueste Datei auslesen. Die Werte sollen in einer seperaten Tabelle in den Zellen F1 bis F10 erscheinen. Hier werden dann täglich Berechnungen durchgeführt. Der Wert kann jeden Tag überschrieben werden, da die Berechnung immer neu erfolgen muss.
Mein Problem ist, dass ich die Dateien per FTP abhole. Schaue ich in der Ordner D:\temp haben alle Dateien das selbe Datum in der Spalte "Geändert am". Wie kann ich trotzdem die Neueste filtern?
Bin für jedliche Vorschläge sehr dankbar.
Gruß Herbert

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub SucheDatei() Dim strDatei As String Dim Datum As Date 'Pfad zu der Datei Const Pfad As String = "D:\temp\" 'wieviel Tage darf die Datei in der Vergangenheit sein Const intMax As Integer = 365 'Anfangsdatum = Heute Datum = Date Do While strDatei = "" And (Date - Datum) <= intMax strDatei = Dir(Pfad & "*" & Format(CStr(Datum), "yyyymmdd") & ".csv") Datum = Datum - 1 Loop If strDatei <> "" Then MsgBox "Neueste Datei heißt " & Chr(13) & strDatei End If End Sub

Hallo,
könnte mir vorstellen, dass dies von einer Firewall geblockt wird, sicher bin ich mir aber nicht.
Hier mal eine andere Version mit dem FileSystemObject.
Modul Modul1

Option Explicit 
  
Sub SucheDatei() 
Dim strDatei As String, strTempDatei As String 
Dim Datum As Date 
Dim fs As Object 
'Pfad zu der Datei 
Const Pfad As String = "D:\temp\" 
'wieviel Tage darf die Datei in der Vergangenheit sein 
Const intMax As Integer = 365 
'Anfangsdatum = Heute 
Datum = Date 
  
Set fs = CreateObject("Scripting.FileSystemObject") 
 
Do While (Date - Datum) <= intMax 
    If fs.fileExists(strTempDatei) Then 
      strDatei = strTempDatei 
     Exit Do 
    End If 
    Datum = Datum - 1 
    strTempDatei = Pfad & Format(CStr(Datum), "yyyymmdd") & ".csv" 
Loop 
      
    If strDatei <> "" Then 
     MsgBox "Neueste Datei heißt " & Chr(13) & strDatei 
    End If 
  
  
End Sub

Gruß Tino

Beliebteste Forumthreads (12 Monate)

Dateiinhalt auslesen und übertragen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dateiinhalt auslesen und übertragen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread