Jüngste Datei aus dem Verzeichnes öffnen

Hallo Zusammen,
ich brauche bitte dringend eure Hilfe.
Und zwar möchte ich in einer Excel Tabelle durch eine Schaltfläche die aktuellste Datei öffnen und wie unten beschrieben bearbeiten.
Die Dateien haben immer die selbe Endung (.col)
Ich habe auch bereits folgenden Makro erstellt, aber so zieht er mir nur explizit die .col Datei die ich im Verzeichnis ausgewählt habe.
Aber wir erstellen jeden Tag eine neue und ich möchte den kompletten Vorgang im Makro automatisch mit der neusten Datei durchführen.
Die .col Dateien sind immer so aufgebaut DFT12220443.COL (DFT= ORT / 12= Monat / 22=Tag / 0443= Uhrzeit)
Nach dem öffnen der .col Datei muss ich es immer mit dem Textkonventierungs-Assistent trennen deshalb auch im Makro der StartRow Bereich, anschließend kopiere ich die Datei und füge es in eine separate Tabelle ein. Im Makro funktioniert alles super bis auf das auswählen mit der neusten Datei.
Mein Makro:

Sub Makro1()
' Makro1 Makro
Workbooks.OpenText Filename:= _
"C:\Users\Z378\Desktop\test\col\DFT12220443.COL", Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 2), Array(10 _
, 2), Array(23, 2), Array(35, 2), Array(39, 2), Array(47, 2), Array(61, 2)), _
TrailingMinusNumbers:=True
Cells.Select
Selection.Copy
Windows("TNT HLG.xls").Activate
Cells.Select
ActiveSheet.Paste
End Sub

Ich danke euch im vor raus für eure Hilfe.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Code: [Cc][+][-] Sub Makro1() Dim sPath As String, oFile As Object Dim sLastFilename As String, oLastFileDate As Variant sPath = "C:\Users\Z378\Desktop\test\col\" With CreateObject("scripting.filesystemobject").GetFolder(sPath) For Each oFile In .Files ' Ordner durchsuchen If Err = 0 Then With oFile If oFile.Name Like "*.xlsb" Then If FileDateTime(oFile) > oLastFileDate Then sLastFilename = oFile.Name oLastFileDate = FileDateTime(oFile) End If End If End With End If Err = 0 Next End With Workbooks.OpenText Filename:= _ sPath & sLastFilename, Origin:=xlMSDOS, _ StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 2), Array(10 _ , 2), Array(23, 2), Array(35, 2), Array(39, 2), Array(47, 2), Array(61, 2)), _ TrailingMinusNumbers:=True Cells.Select Selection.Copy Windows("TNT HLG.xls").Activate Cells.Select ActiveSheet.Paste End Sub

Code: [Cc][+][-] Sub Makro1() Dim sPath As String, oFile As Object Dim sLastFilename As String, oLastFileDate As Variant sPath = "C:\Users\Z378\Desktop\test\col\" With CreateObject("scripting.filesystemobject").GetFolder(sPath) For Each oFile In .Files ' Ordner durchsuchen If Err = 0 Then With oFile If oFile.Name Like "*.col" Then If FileDateTime(oFile) > oLastFileDate Then sLastFilename = oFile.Name oLastFileDate = FileDateTime(oFile) End If End If End With End If Err = 0 Next End With Workbooks.OpenText Filename:= _ sPath & sLastFilename, Origin:=xlMSDOS, _ StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 2), Array(10 _ , 2), Array(23, 2), Array(35, 2), Array(39, 2), Array(47, 2), Array(61, 2)), _ TrailingMinusNumbers:=True Cells.Select Selection.Copy Windows("TNT HLG.xls").Activate Cells.Select ActiveSheet.Paste End Sub

Vielen Dank,
ich habe da noch eine Frage die etwas komplizierter sein könnte.
Und zwar: Ich habe eine weitere Tabelle (bsp. Datei A) die ich in eine weitere Excel Datei einfügen muss (Bsp. Datei B). Die Excel Datei ist von Montag-Freitag aufgeteilt (Jeweils ein Sheet) ich bekomme Morgens die Zahlen für den Vortrag das heißt z.B Dienstag morgens die Zahlen vom Montag ich möchte es so haben das es zb. Dienstag morgens die Daten von Tabelle (Datei A) in die (Datei B) sheet (Montag) einfügt, und mittwochs das selbe spiel mit den Daten von der Tabelle (Datei A) in die (Datei B) sheet Dienstag einfügt, so dass ich Samstag morgens die letzte Datei in den Freitag von der (Datei B) einfüge.
Ist sowas möglich? Das wäre sehr hilfreich.
Vielen vielen vielen Dank.

Sub outfeed() ' outfeed Makro Sheets("Chute+Outfeed").Select Columns("A:BB").Select Selection.Copy ChDir "C:\Users\78DQJ\Desktop\test" Workbooks.Open Filename:="C:\Users\78DQJ\Desktop\test\outfeed testtt.xlsx" ActiveSheet.Paste Windows("HLG.xls").Activate End Sub

Code: [Cc][+][-] Option Explicit Option Compare Text Sub Kopieren() Dim Wkb As Workbook, WSh As Worksheet Dim sPfad As String, sDateiname As String Dim sTag As String, i As Integer, iZeile As Long sPfad = "C:\Users\78DQJ\Desktop\test\" ' Pfad <<< ggf. anpassen>>> sDateiname = "outfeed testtt.xlsx" ' Dateiname <<< ggf. anpassen>>> On Error GoTo Fehler ' Zielblatt anhand des Datums ermitteln i = Weekday(Date - 1) If i < 3 Then i = 7 sTag = Choose(i - 2, "Montag", "Dienstag", "Mittwoch", "Donnerstag", "Freitag") Set WSh = ThisWorkbook.Sheets(sTag) ' Feststellen, ob Quelldatei schon offen ist For Each Wkb In Workbooks If Wkb.Name Like sDateiname Then GoTo Weiter Next Wkb Set Wkb = Workbooks.Open(Filename:=sPfad & sDateiname) Weiter: ' Jetzt die Daten übertragen With Wkb.Sheets("Chute+Outfeed") iZeile = .Cells(Rows.Count, "C").End(xlUp).Row WSh.Range("A1:BB" & iZeile).Value = .Range("A1:BB" & iZeile).Value End With ' Datei schließen Wkb.Close Savechanges:=False MsgBox "Die Daten wurden übertragen!", vbInformation, "Kopieren" Exit Sub Fehler: MsgBox "Es ist der Fehler " & Error & " aufgetreten!", vbCritical, "Kopieren" End Sub

Beliebteste Forumthreads (12 Monate)

Jüngste Datei aus dem Verzeichnes öffnen

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread