Supportnet / Forum / Tabellenkalkulation
Datei von heute aus Excel öffnen
Frage
Hallo Zusammen,
ich möchte aus Excel eine Kundendatei öffnen, aber nur wenn die Kundendatei am heutigen Tag erstellt wurde.
Kann mir jemand da weiterhelfen, ich habe an eine automatisch Abfrage des Erstellungsdatums der Kundendatei mit dem heutigen Datum gedacht. Zusatzlich sollen die Werte aus der Kundendatei (ist eine TXT Datei) in das zweite Arbeitsblatt eingefügt werden, damit ich den Inhalt dort umformatieren kann und anschließend im ersten Blatt die Daten nutzen.
vielen Dank schon mal
Eleve
Antwort 1 von Eleve
Ich bins noch mal.
Kann man eine Abfrage nach dem Erstellungsdatum einer Datei in Excel programmieren?
Das würde mir schon helfen.
Eleve
Kann man eine Abfrage nach dem Erstellungsdatum einer Datei in Excel programmieren?
Das würde mir schon helfen.
Eleve
Antwort 2 von JoeKe
Hi Eleve,
mit folgendem Code wird das Datum und die Zeit der letzten Speicherung angezeigt. Vieleicht hilft dir das.
Sub Erstelldatum()
s = FileDateTime("Einsatz Personal.xls")
MsgBox s
End Sub
Der Name der Datei muss angepasst werden.
MfG JöKe
mit folgendem Code wird das Datum und die Zeit der letzten Speicherung angezeigt. Vieleicht hilft dir das.
Sub Erstelldatum()
s = FileDateTime("Einsatz Personal.xls")
MsgBox s
End Sub
Der Name der Datei muss angepasst werden.
MfG JöKe
Antwort 3 von Eleve
Hallo JöKe
vielen Dank, genau das habe ich gesucht. Jetzt muss ich mir nur noch eine Abfrage zusammenbasteln die das Erstellungsdatum mit dem heutigen Datum vergleicht und dann hab ich mein Problem gelöst.
Nur noch eine kleine Frage, kann ich die Ausgabe auch ohne die Uhrzeit bekommen.
Eleve
vielen Dank, genau das habe ich gesucht. Jetzt muss ich mir nur noch eine Abfrage zusammenbasteln die das Erstellungsdatum mit dem heutigen Datum vergleicht und dann hab ich mein Problem gelöst.
Nur noch eine kleine Frage, kann ich die Ausgabe auch ohne die Uhrzeit bekommen.
Eleve
Antwort 4 von JoeKe
Hi Eleve,
kann ich dir leidr nicht sagen. Ich habe mir den Code auch nur mit Hile der VBA-Hilfe zusammen gebastelt.
Die Hilfe ist in diesem Fall (sowie sehr oft!) nicht besonders umfangreich.
Ein kleinen Tip hätte ich aber noch. Folgender Code gibt das aktuelle Systemdatum aus:
Sub datum()
MsgBox Date
End Sub
Oder sieh dir dies mal an. Ist zwar nicht ganz das was du suchst, geht aber auch um das Einfügen einer .txt Datei.
MfG JöKe
kann ich dir leidr nicht sagen. Ich habe mir den Code auch nur mit Hile der VBA-Hilfe zusammen gebastelt.
Die Hilfe ist in diesem Fall (sowie sehr oft!) nicht besonders umfangreich.
Ein kleinen Tip hätte ich aber noch. Folgender Code gibt das aktuelle Systemdatum aus:
Sub datum()
MsgBox Date
End Sub
Oder sieh dir dies mal an. Ist zwar nicht ganz das was du suchst, geht aber auch um das Einfügen einer .txt Datei.
MfG JöKe
Antwort 5 von JoeKe
Hi Eleve,
durch Änderung des ersten Codes wird nur das Datum ausgegeben.
Option Explicit
Sub Erstelldatum()
Dim s, s1
s = FileDateTime("Einsatz Personal.xls")
s1 = Format(s, "dd.mm.yy")
MsgBox s1
End Sub
Und noch eine Möglichkeit das Bearbeitungsdatum mit dem aktuellen Systemdatum zu vergleichen:
Sub Test()
Dim Datum1 As Date
Dim Msg
Datum1 = FileDateTime("Einsatz Personal.xls")
If DateDiff("d", Now, Datum1) = 0 Then
MsgBox "JA"
End If
End Sub
MfG JöKe
durch Änderung des ersten Codes wird nur das Datum ausgegeben.
Option Explicit
Sub Erstelldatum()
Dim s, s1
s = FileDateTime("Einsatz Personal.xls")
s1 = Format(s, "dd.mm.yy")
MsgBox s1
End Sub
Und noch eine Möglichkeit das Bearbeitungsdatum mit dem aktuellen Systemdatum zu vergleichen:
Sub Test()
Dim Datum1 As Date
Dim Msg
Datum1 = FileDateTime("Einsatz Personal.xls")
If DateDiff("d", Now, Datum1) = 0 Then
MsgBox "JA"
End If
End Sub
MfG JöKe
Antwort 6 von Eleve
Hallo JöKe
wieder mal vielen Dank für die prompte Hilfe.
Letzter Code war der Gesuchte. Funzt prima.
Eleve
wieder mal vielen Dank für die prompte Hilfe.
Letzter Code war der Gesuchte. Funzt prima.
Eleve
Antwort 7 von JoeKe
Hi Eleve,
vielen Dank für die Rückinfo.
Schönen Tag noch
JöKe
vielen Dank für die Rückinfo.
Schönen Tag noch
JöKe