Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1016to1020
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suche Code zum umbenennen von Dateien

Suche Code zum umbenennen von Dateien
23.10.2008 15:59:58
Dateien
Hallo,
ich suche reinen VBcode um die Dateien aus einem Ordner nach dem Dateierstelldatum umzubenennen. Und alles über UserForm ohne sheets.
Hat jemand das schon mal gemacht?
Viele Grüße aus dem mal sonnigen Hamburg
Ray

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suche Code zum umbenennen von Dateien
23.10.2008 16:56:26
Dateien
Hallo Ray
Nur erst mal kurz ne Frage.
Wozu brauchst du denn ein UF?
Wenn ich dich richtig verstand, müsste es doch auch sogar ohne UF gehen, nämlich so:
1. Datei wird gestartet, und es öffnet sich ein Verzeichnisauswahl-Dialog
2. Nachdem du das Verz. ausgewählt und auf OK geklickt hast, werden alle darin befindlichen Dateien so umbenannt, dass sich nun im Dateinamen das Erstelldatum befindet (bei gleichen Daten vielleicht mit _indexnr am Ende des Namens)
3. Fertig
Oder was hab ich nicht verstanden?
Ciao
Thorsten
AW: Suche Code zum umbenennen von Dateien
23.10.2008 21:47:00
Dateien
Hallo Ray,
ob Du ein UF verwendet oder nicht ist dir überlassen.
Folgende Code tut's. Du brauchst ein Verweis auf "Windows Script Host Obejct Model" für die Objekte FileSystemObject und File.

Sub test()
Dim fd As FileDialog
Dim D
Dim F As File
Dim fso As New FileSystemObject
Dim N$, E$
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.AllowMultiSelect = True
If fd.Show  False Then
For Each D In fd.SelectedItems
Set F = fso.GetFile(D)
N = Mid(F.Name, 1, InStrRev(F.Name, ".") - 1)
E = Mid(F.Name, InStrRev(F.Name, ".") + 1)
Debug.Print N & "_" & Format(F.DateLastModified, "YYYYMMDD") & "." & E
Next D
Else
MsgBox "abgebrochen"
End If
End Sub


Viel Erfolg
Yal

Anzeige
AW: Suche Code zum umbenennen von Dateien
24.10.2008 08:43:17
Dateien
Hallo und Danke.
@ Thorsten: Gehe ich recht in der Annahme, dass sich Deine Punkte 1-3 auf den code von Yal beziehen? Und wenn ich den Code von Yal starte dann öffnet sich ein Verzeichnisauswahl-Dialog?
@Yal: Ich hab den Code mal eingegeben, läuft aber nicht. Wie erstelle ich ein Verweis auf "Windows Script Host Obejct Model" für die Objekte FileSystemObject und File?
Vielen Dank für Eure Mühe und schöne Grüße aus dem wieder mal bewölkten Hamburg bei 7,5 Grad. Goldener Oktober war wohl nix....
Ray
AW: Suche Code zum umbenennen von Dateien
24.10.2008 13:12:00
Dateien
Huhu Ray
Ja, genau so war das von mir gemeint.
Und den Verweis für Windows Script Host Obejct Model setzt du so:
(so gehts bei mir - haber XL XP!)
1. VBA-Editor öffnen
2. den Menüpunkt Extras/Verweise aufrufen
3. Haken setzen vor Microsoft Scripting Runtime
des war's.
Aber wie gesagt, ich arbeite mit XL XP. Ich weiß nicht, obs in XL 2003 auch noch so heißt.
Hilft das?
Ciao
Thorsten
Anzeige
zur Ergänzung...
24.10.2008 13:38:00
Yal
Hallo Ray,
ersetze die Zeile
Debug.Print N & "_" & Format(F.DateLastModified, "YYYYMMDD") & "." & E
durch
F.Name = N & "_" & Format(F.DateLastModified, "YYYYMMDD") & "." & E
Was debug.print macht solltest Du aus dem Online-Hilfe gelesen haben.
Oder lasst Du auf deinem Rechner Code laufen lassen, das Du blind vertraust?
Viel Erfolg
Yal

69 Forumthreads zu ähnlichen Themen

Umbenennen von Windows-Ordnern aus VBA
Windows-Ordnern

Hallo!
Ich habe ein Problem mit umbenennen von Windows-Ordnern aus VBA.
In einem Ordner befinden sich viele Vorlagen-Ordner z.B Vorlage1, Vorlage2 usw.
Wie kann man immer den ersten (alphabetisch) Vorlage-Ordner zur Laufzeit umbenennen.
Da ich ja den vollen Ordnernamen vorher ni...
07.04.2009 13:21:31
Thread-ID: 1067383
8 Beiträge
Anzeige
Vba Markro für mehrere Dateien ermöglichen | Herbers Excel-Forum
BENNY
Hallo,
habe ein riesen Problem: Ich soll für meinen Arbeitgeber folgenden VBA Code umbauen. Momentan kann man mit Hilfe dieses Codes eine .fdf Datei einlesen und sie wir in Excel in Zeile 1 (Überschrift) und 2 (Werte) ausgelesen.
Mein Chef möchte nun, dass man mehrere Dateien einlesen kann...
13.01.2010 14:52:54
Thread-ID: 1129510
5 Beiträge
Ordnerpfad auflisten bestimmter Dateien
Andre´

Hallo alle zusammen,
kennt jemand eine Möglichkeit,
den Ordnerpfad in einer Exceltabelle aufzulisten mit entsprechenden Link
für alle Dateien mit der Endung xls.
Versteckt Dateien sollen auch mit angezeigt werden.

Das ganze soll auch unter Excel 2007 funktionieren.
19.05.2010 08:04:49
Thread-ID: 1157751
3 Beiträge
Anzeige
alle Dateien in einem Ordner umbenennen
Joachim

Hallo,
ich hab in einem Ordner ca. 400 pdf-Files. Diese muss ich jetzt umbenennen. Die Dateinamen beginnen immer gleich, erst 7 Zeichen, dann eine 14-stellige Nummer, dann der Rest, der aber unterschiedlich lang sein kann. Ich muss nun aus der 14-stelligen Nummer eine 15-stellige machen, sp...
02.08.2010 11:07:41
Thread-ID: 1169991
23 Beiträge
Dateien im Ordner unbenennen
bruno

Hallo zusammen
Ich habe einen Ordner, in dem eine Variable Anzahl von pdf-Dateien sind. Kann ich mit einem Macro alle Dateien unbennenen? (unter unbenennen meine ich in diesem Fall, den alten Namen verkürzen auf die ersten 14 Zeichen)
Gruess ond Danke
de Bruno
27.10.2010 13:19:04
Thread-ID: 1184116
5 Beiträge
Auswertung aller Dateien in einem Ordner
Joerg.Kaiser1@web.de

Hallo
Habe eine Datei mit folgendem Aufbau:
---- A------B-----------------C----
1-----------------------------------
2-----------------------------------
3-----------------------------------
4--------Drehen---------Schmidt
5--------Fräsen----------Schulze
6------...
13.12.2011 07:22:59
Thread-ID: 1241758
14 Beiträge
VBA: mehrere Dateien nacheinander einlesen
H.Benitz

Hallo,
da meine VBA-Kenntnisse zur Zeit noch recht bescheiden sind, habe ich mir das Script für mein Vorhaben aus verschiedenen Beiträgen zusammengebastelt.
Funktioniert soweit schon ganz gut, aber ein Problem gibt es noch!
Das Ziel ist:
Es sollen aus einem vom Anwender vorgegeb...
06.12.2012 11:06:13
Thread-ID: 1289572
3 Beiträge
Dateien im Ordner mit Exceldatei vergleichen
Sandra

Hallo,
Wie kann ich am einfachsten mit Excel die in einem Ordner gespeicherten Dateinamen mit Dateinamen vergleichen, die in einer Exceldatei sind? Als Ergebnis soll die nicht vorhandenen Dateien ausgegeben werden.Danke im voraus,
sandra

13.06.2002 09:43:18
Thread-ID: 128302
2 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
2
4
2
3
22
4
13
2
1
1
2
3
5
2
1
1
1
7
1
2
1
4
3
3