VBA Hilfe txt Datei

Einen schönen guten Morgen,
ich hoffe, das mir jemand helfen kann.
Wir haben per MakroRecorder diesen Befehl:
ChDir "G:\Transfer\Allgemein\Datei Txt"
Workbooks.OpenText Filename:="Z:\T\A\Dateien\Dispo MHD.txt" _
, Origin:=xlMSDOS, StartRow:=6, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:=True
Range("E2") = "=IF(ISTEXT(RC[-4]),RC[-4],R[-1]C)"
Range("e2:e2").AutoFill Destination:=Range("e2:e" & Cells(Rows.Count, "A").End(xlUp).Row), Type:=xlFillDefault
Columns("E:E").Select
.
.
.
.
.
Der Code zieht von einer TXT Dateien Daten aufs Excel.
Jetzt meine Frage :-)
Wäre es möglich, das bevor der Code Anfängt abfrägt, wann die Datei TXT entstanden ist. Wurde diese Datei heute erstellt, dann Code weiter, wenn nicht, dann Meldung" Achtung, die Daten sind nicht von heute, bitte neu aktualisieren".
Würde sowas funktionieren ?
Schönen Tag an ALLE
Gruß Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

If Split(FileDateTime("Z:\T\A\Dateien\Dispo MHD.txt"), " ")(0) = Date Then 'hier dein Code zum Einlesen der Datei Else MsgBox "Achtung, die Daten sind nicht von heute, bitte neu aktualisieren", vbExclamation, "Hinweis!" End If

Hi Peter,
sorry, verstehe ich noch nicht.
Was genau meinst du mit "Datei txt"?
In deinem 1. Beitrag ist "Datei txt" das letzte Verzeichnis im Befehl


ChDir "G:\Transfer\Allgemein\Datei Txt"

Und mit meinem Code wird das Speicherdatum der Datei "Dispo MHD.txt" geprüft, die sich im Verzeichnis "Z:\T\A\Dateien\" befindet.
Wenn 27. ‎Mai ‎2022 das Datum der Datei "Dispo MHD.txt", dann ist die Hinweismeldung natürlich ok, weil ja der 27.5 nicht heute ist - die Datei "Dispo MHD.txt" muss dann aktualisiert und heute erneut gespeichert werden.
Und nach deinen bisherigen Beschreibungen ist "Datei txt" für mich keine Datei, sondern das letzte Verzeichnis eines Speicherpfads.
Daher weiß ich jetzt leider noch nicht, wo das Problem ist.
Aber vllt bekommen wir es ja noch hin :-)
Ciao
Thorsten

Sub Peter() If Int(FileDateTime("Z:\T\A\Dateien\Dispo MHD.txt")) Date Then If MsgBox("Daten nicht von heute! Weiter?", vbYesNo, "Gebe bekannt...") = vbNo Then Exit Sub End If End If Rows("1:1").Select Selection.AutoFilter Columns("A:E").Select Selection.ClearContents Range("H5").Select Application.Run "Starten" End Sub

Sub Peter() If Int(FileDateTime("Z:\T\A\Dateien\Dispo MHD.txt")) Date Then Call MsgBox("Daten nicht von heute!", vbOKOnly, "Gebe bekannt...") ActiveWorkbook.Close False Else Rows("1:1").AutoFilter Columns("A:E").ClearContents Range("H5").Select Application.Run "Starten" End If End Sub

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

VBA Hilfe txt Datei

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread