Thema Datum  Von Nutzer Rating
Antwort
25.09.2018 09:02:11 Tom
NotSolved
25.09.2018 09:13:47 Gast22681
NotSolved
25.09.2018 11:30:00 Gast51486
NotSolved
25.09.2018 11:36:28 Gast85740
NotSolved
25.09.2018 12:27:32 Gast14545
NotSolved
Blau VBA csv auswertung
 25.09.2018 14:36:40 Gast82112
NotSolved
26.09.2018 14:59:54 Tom
NotSolved

Ansicht des Beitrags:
Von:
Gast82112		 Datum:
25.09.2018 14:36:40		 Views:
541		 Rating:
     
Antwort:
  Ja
Thema:
VBA csv auswertung

Hallo Tom,

hier mal ein Makro zum Öffnen der neuesten .CSV Datei in einem Ordner.

Der Code ist aus dem Netz, ursprünglich von Hajo Ziplies, und ein wenig angepasst.

Sub Dateiliste_Neu()
'von Hajo Ziplies aus dem Netz
Dim strPfad As String, StrDatei As String, strTyp As String
Dim strName As String, strNeu As String, daZeit As Date

strPfad = "C:\Eigene Dateien\Ordner\Unterordner\" 'Pfad anpassen
strTyp = "*.csv"
strName = Dir(strPfad & strTyp)
strNeu = strName
If strName <> "" Then
    daZeit = FileDateTime(strPfad & strName)
    Do While strName <> ""
        If daZeit < FileDateTime(strPfad & strName) Then
            daZeit = FileDateTime(strPfad & strName)
            strNeu = strName
        End If
        strName = Dir
    Loop
    'die Messagebox ist nur zum Testen, kann gelöscht werden
    MsgBox " Die jüngste Datei ist " & strNeu
    'die neueste .CSV Datei aus dem Ordner wird geöffnet
    Workbooks.Open strPfad & strNeu
Else
    MsgBox "Es ist keine Datei vom Typ " & strTyp & " vorhanden."
End If
End Sub

 

 

Gruß Werner

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.09.2018 09:02:11 Tom
NotSolved
25.09.2018 09:13:47 Gast22681
NotSolved
25.09.2018 11:30:00 Gast51486
NotSolved
25.09.2018 11:36:28 Gast85740
NotSolved
25.09.2018 12:27:32 Gast14545
NotSolved
Blau VBA csv auswertung
 25.09.2018 14:36:40 Gast82112
NotSolved
26.09.2018 14:59:54 Tom
NotSolved