Thema Datum  Von Nutzer Rating
Antwort
Rot Datei öffnen Excel
 25.03.2021 09:28:03 Marcel12
NotSolved
25.03.2021 10:07:23 MRUTOR
NotSolved
25.03.2021 10:14:50 Marcel12
NotSolved
25.03.2021 10:19:45 MRUTOR
NotSolved
25.03.2021 11:38:51 Mase
NotSolved

Ansicht des Beitrags:
Von:
Marcel12		 Datum:
25.03.2021 09:28:03		 Views:
1419		 Rating:
     
Antwort:
  Ja
Thema:
Datei öffnen Excel

Moin zusammen,

ich habe folgenden Code der es mit ermöglicht die neuste Datei aus einem Ordner zu erkennen und in einer Msg Box den Namen wiedergibt.

Ich würde die entsprechende Excel Tabelle die sich aus dem Code ergibt auch gerne danach öffnen lassen, weiß allerdings nicht wie...Könnte mir da bitte jemand behilflich sein. Danke schonmal für jede Antwort :-)

Der Code:

Dim AktuellstesDatum As Date
Dim NeuesteDatei As String
Dim FS As Object
Dim Drv As Object
Dim Datei As Object
Sub neuesteDateiermitteln()
 AktuellstesDatum = DateValue("1.1.1900")
 NeuesteDatei = ""
 Set FS = CreateObject("scripting.filesystemobject")
 Set Drv = FS.GetFolder("H:\Hallo")
 For Each Datei In Drv.Files
 If Datei.DateLastModified > AktuellstesDatum Then
 NeuesteDatei = Datei.Name
 AktuellstesDatum = Datei.DateLastModified
 End If
 Next Datei
 MsgBox NeuesteDatei
End Sub

 

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
Rot Datei öffnen Excel
 25.03.2021 09:28:03 Marcel12
NotSolved
25.03.2021 10:07:23 MRUTOR
NotSolved
25.03.2021 10:14:50 Marcel12
NotSolved
25.03.2021 10:19:45 MRUTOR
NotSolved
25.03.2021 11:38:51 Mase
NotSolved