Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1188to1192
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
Inhaltsverzeichnis

Dateien umbenennen

Dateien umbenennen
Andreas
Hallo, ich habe ein kleines Problem mit dem umbenennen von Dateien mittels VBA Code aus einer Excel Liste.
Einen entsprechenden Code habe ich hier im Forum schon gefunden, leider funktioniert dieser nicht richtig. Ich habe die original Dateinamen in Spalte A, Zeile 1-11 geladen und in Spalte B Zeile 1-11 die neuen Namen geschrieben. Leider werden nur die Dateien von Zeile 1-10 umbenannt, Zeile 11 enthaelt nur das das Dateityp Kuerzel. Hier mal der Code:
Sub RenameFiles()
Dim i As Integer
Dim DateiNameAlt As String, DateiNameNeu As String, Verzeichnis As String
Dim fs As Object, f As Object
On Error Resume Next
Verzeichnis = "C:\Documents and Settings\andreas.poller\Desktop\2.t Inspection Records (ITR's) ( _
_
by WBS and Series)\"
Set fs = CreateObject("Scripting.FileSystemObject")
For i = 1 To 1000
DateiNameAlt = Cells(i, 1)
DateiNameNeu = Cells(i, 2) & ".pdf"
Set f = fs.GetFile(Verzeichnis & DateiNameAlt)
f.Name = DateiNameNeu
Next i
End Sub

und hier das Resultat:
31.pdf 31
32.pdf 32
33.pdf 33
34.pdf 34
35.pdf 35
36.pdf 36
37.pdf 37
38.pdf 38
39.pdf 39
40.pdf 40
.pdf 41
Ich habe eine englische Excel version, das sollte aber nicht das Problem sein.
Vielen Dank fuer Euer Feedback

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Dateien umbenennen
15.12.2010 19:51:00
Josef

Hallo Andreas,
ohne deine datei zu kennen, wird wohl niemand den Fehler entdecken.
Probiers mal so.

Sub RenameFiles()
  Dim lngRow As Long
  Dim strNameOld As String, strNameNew As String, strDir As String
  
  On Error Resume Next
  
  strDir = "C:\Documents and Settings\andreas.poller\Desktop\2.t Inspection Records (ITR's) (by WBS and Series)\"
  
  For lngRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    strNameOld = Cells(lngRow, 1)
    strNameNew = Cells(lngRow, 2) & ".pdf"
    If Dir(strDir & strNameOld, vbNormal) <> "" Then
      Name strDir & strNameOld As strDir & strNameNew
    Else
      Cells(lngRow, 3) = "Fehler"
    End If
  Next
  
  On Error GoTo 0
End Sub

Gruß Sepp

Anzeige
AW: Dateien umbenennen
16.12.2010 08:59:31
Andreas
Hallo Sepp,
vielen Dank! Hat super funktioniert.
Gruss Andreas

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige