Datei im Ordner umbenennen wenn

Hallo Profis,
bräuchte bitte eure Hilfe bei folgendem Code.


Sub Lagerbestand_XLS_umbenennen()
'       ======================================================================================== _
_
_
Dim Pfad As String
Pfad = Sheets("BZG").Range("J2").Value
Name = Dir(Pfad)
Application.DisplayAlerts = False
Do Until Name = ""
'++++   If Name().Len > 10 Then
Name Pfad & Name As Pfad & Mid(Name, 25, 2) & "." & Mid(Name, 22, 2) & ". _
_
_
" & Mid(Name, 28, 4) & ".xls"
'++++    End If
Name = Dir()
Loop
Application.DisplayAlerts = True
End Sub

Ziel : in einem Ordner, dessen Pfadangabe sich in der Tab "BZG" / Zelle "J2" befindet, soll dieses Umbenenn-Makro ablaufen.
Bislang - wenn der Ordner leer ist - kopieren wir dort einen Haufen .txt Dateien hinein, die auf Grund der Abfrage in einem anderen Datenverarb.System dort einen längeren Namen bekommen . zB: Zustandsbericht_14-01-2021.txt ( TXT Format )
Mit dem oben verankerten Makro kann ich all diese TXT Dateien in diesem Ordner schon einmal umbenennen in folgenden
Dateinamen xx.xx.xxxx.xls ( entspricht beim Abgleichen in einem anderen Makro dann dort dem jew. Datum TT.MM.JJJJ, und dementsprechend kann das dortige Makro dann die gewünschte Datei finden aus dem Sie partiziell nur entspr. Daten benötigt. Soviel zum Hintergrund.
Meine Frage oder Bitte wäre, bislang leeren wir den Ordner bevor wir wieder neue TXT Daten in diesen Ordner hineinkopieren um diese dort per Makro umzubenennen, wir würden aber diese gerne dort belassen, sodass dann dort sich mit der Zeit viele xls Dateien mit Namensformat Datum ( TT.MM.JJJJ) drinn befinden, aber auch eben dann immerwieder
neu hinzugefügte TXT Dateien mit längerem Dateinamen als wie im Datum mit 10 Positionen.
Ich suche daher eine IF Anweisung die ich an entsprechender Stelle dort mit ins das Makro setzte , und da ist mein
VBA ( Vis.Bas.Anfänger ) Latein am Ende ;-)
Diese IF Abfrage sollte im Idealfall nach Namenslänge prüfen, alles was längers ist wie 10Zeichen wird umbenannt
Bräuchte bitte etwas support von euch,
Lieben Dank
Udo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Lagerbestand_XLS_umbenennen() Dim Pfad As String, StrName As String Pfad = Sheets("BZG").Range("J2").Value StrName = Dir(Pfad & "*.txt", vbNormal) Application.DisplayAlerts = False Do Until StrName = "" If Len(StrName) > 10 Then Name Pfad & StrName As Pfad & Mid(StrName, 25, 2) & "." & Mid(StrName, _ 22, 2) & "." & Mid(StrName, 28, 4) & ".xls" End If Name = Dir() Loop Application.DisplayAlerts = True End Sub

Sub Lagerbestand_XLS_umbenennen() Dim Pfad As String, DatSache As String Pfad = Sheets("BZG").Range("J2").Value DatSache = Dir(Pfad & "*.txt", vbNormal) Application.DisplayAlerts = False If Len(DatSache) > 10 Then Do Until DatSache = "" Name Pfad & DatSache As Pfad & Mid(DatSache, 25, 2) & "." & Mid( _ DatSache, 22, 2) & "." & Mid(DatSache, 28, 4) & ".xls" DatSache = Dir() Loop End If Application.DisplayAlerts = True End Sub

const Pfad as string = "C:\HTMK\DATA Board\" sub Unbenennen() f = Dir(Pfad & "*.txt") Do Until f = "" If Len(f) > 10 Then Datum = Mid(Name, 25, 2) & "." & Mid(Name, 22, 2) & "." & Mid(Name, 28, 4) Name Pfad & f As Pfad & Datum & ".xls" endif f = Dir() Loop end sub

Danke dir nochmals,
hatte deine vorgeschlagene Lösung eben auch noch probiert, kam aber
auch gleich n fehler.
Hab folgende Zeile abgeändert :
Datum = Mid(f, 25, 2) & "." & Mid(f, 22, 2) & "." & Mid(f, 28, 4)
anstatt Name / f verwendet in den Klammern , nun geht es auch damit, prima
nochmals herzlichen Dank für eure Hilfe
@ Fennek:
Der Grund warum wir es kurz umwandeln in xls in dem Fall, liegt an der anderen Marko das sich dort
aus diesem Ordner bedient und eben nach entspr. Exceldateien sucht , derren Namen sie mit einer Zellangabe abgleicht und wenn gefunden dann kurz öffnet, die ersten drei Spalten einliest und dann diese eingelesene xls ( die zuvor ja durch das obrige Marko umbenannt wurde ) dann wieder schliesst, mit diesen umbenannten Txt Dateien in xls aus diesem Ordner arbeitet sonst auch keiner weiters damit, sie enthalten nur Zahlen aus der Abfrage aus einem anderen System.
Das klappt soweit schon mal ganz gut, mir ist auch klar das dies kein Königsweg ist , aber jenes abfragemakro dann mal anzugehen, dass es die TXT auh einliest, mach ich später mal, muss erst vieles andere noch zum Laufen bringen.
Danke für deine wertvollen Tipps
Grüße udo

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

69 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datei im Ordner umbenennen wenn

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

69 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread