Hi,

ich habe folgendes Problem. Ich habe ca 5000 Audio Dateien und eine Excel Tabelle. In der Excel Tabelle kommen die Dateinamen in einer bestimmten Reihenfolge vor (alle in einer Spalte untereinander). Die Audio Dateien muss ich in einem Audio Schnittprogramm in derselben Reihenfolge, wie in der Tabelle, anordnen.
Mir bleibt also nur übrig, die Dateien in der Reihenfolge, wie sie in der Excel Tabelle vorkommen, durch zu nummerieren. Excel muß also die Datei anhand des Namens in der Spalte finden und vorne eine vierstellige Nummer aufsteigend hinzufügen.

Beispiel:

Alter DateinamenA.wav
Alter DateinamenB.wav
Alter DateinamenC.wav

umbenennen in:

0001 Alter DateinamenA.wav
0002 Alter DateinamenA.wav
0003 Alter DateinamenA.wav

Jetzt habe ich schon einen Code, der auf dem PC mit Excel 2016 auch funktioniert.
Auf dem Mac mit Excel 2016 geht es zwar auch, aber wegen dem Sandboxing muß ich den Zugriff für jede Datei einzeln bestätigen.
Es gibt wohl einen Workaround, aber das übersteigt meine Programmierkenntnisse:

Stichwort Befehl „GrantAccessToMultipleFiles"
https://msdn.microsoft.com/de-de/library/office/mt654020.aspx

Kann mir vielleicht jemand helfen den Code so zu bearbeiten, daß ich nicht mehr jedes Files einzeln bestätigen muß?

Code

sub Test()  
iPath = "c:temp"  
'erster Name in Zeile 1, Spalte A  
lr = cells(rows.count, "A").end(xlup).row  
for i = 1 to lr  
    name iPath & cells(i,"A") as iPath & Format(i, "0###") & " " & cells(i,"A")  
next i  
end sub 

Vielen Dank,

Michi

Hallo Michi,
ich kann es leider nicht testen weil ich noch ein uraltes Excel habe,
aber probier mal:

Sub Test()
Dim fileAccessGranted As Boolean
Dim iPath As String
Dim lastRow As Long, i As Long
Dim oldFile As String, newFile As String
iPath = "c:temp:"
' Letzte Zeile Spalte A
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For i = 1 To lastRow
' Name Spalte A
oldFile = iPath & Cells(i, "A")
fileAccessGranted(oldFile) = True
newFile = iPath & Format(i, "0###") & " " & Cells(i, "A")
Name oldFile As newFile
Next i
End Sub

Gruß
Klaus

Hi,

ich hab es getestet.
Excel gibt mir die Fehlermeldung aus: "Es wurde ein array erwartet."

Anscheinend in der Zeile

fileAccessGranted(oldFile) = True

Und gleich noch ne Frage hinterher. Muß ich beim Pfad die / durch : ersetzen?
Grüß,

Michi

Hi,

zu Deiner 2. Frage:

Unter dem Mac brauchst Du einen Doppelpunkt, unter Windows den Backslash /
Und natürlich muss unter Laufwerk C der Ordner "temp" angelegt sein.

Statt Doppelpunkt oder / kannst Du auch plattformunabhängig den
Application.PathSeparator verwenden:
iPath = "c" & Application.PathSeparator & "temp" & Application.PathSeparator
Für Mac und Windows gültig

Zu Frage 1:
da kann ich dir ohne Testen zu können leider nicht mehr weiter helfen ...

Gruß
Klaus

Servus Michi,

ich hab da eine Idee, die Außerhalb von Excel bewerkstelligt wird. Mit dem Inhalte der Spalte in Excel, die die Dateinamen beinhaltet, kann mit einer z. B. PHP-Script genau das gemacht werden, was gewünscht ist (Umbennennen der Dateien mit vorangestellten Ziffern, passen zur Excel-Reihenfolge).


HG Thomas

Ich bin für jede Hilfe dankbar.
Auch Apple Script würde für mich gehen.

Danke

dann brauche ich bitte mal einen Schwung der Dateinamen
VG Thomas

Die sehen alle ungefähr so aus.
Könnten in der Zukunft aber auch mal anders aussehen.
Und die sind jetzt zufällig nach Alphabet sortiert.
Aber spielt das eine Rolle?


Agrmnt-00006C4C.wav
Agrmnt-00006C75.wav
Attckng-00000428.wav
AttckngIn5Scnds-00005A84.wav
AttckngTm-CptrPnt-InPrgrss-00005A3E.wav
AttckngTm-CptrPnt-InPrgrss-00005A40.wav
AttckngTm-CptrPnt-InPrgrss-000066F8.wav
AttckngTm-Pyld-InPrgrss-00005A2A.wav
AttckngTm-Pyld-InPrgrss-00005A2B.wav
AttckngTm-Pyld-InPrgrss-00005A2C.wav
AttckngTm-Pyld-Stlld-000059FE.wav
AttckngTm-Pyld-Stlld-000059FF.wav
AttckngTm-Pyld-Stlld-00005A00.wav
BhndY-000066EA.wav
Blnk-3inaRw-000001EF.wav
Blnk-3inaRw-000001F1.wav
Blnk-3inaRw-000001F2.wav
Blnk-3inaRw-000001F3.wav
ChckIn-000059B4.wav
ChckIn-000066F2.wav
ClsCll-00006C10.wav
Dfndng-00000429.wav
DfndngTm-CptrPnt-InPrgrss-00005A24.wav
DfndngTm-CptrPnt-InPrgrss-00005A25.wav
DfndngTm-CptrPnt-InPrgrss-00005A26.wav
DfndngTm-Pyld-InPrgrss-00005AAF.wav
DfndngTm-Pyld-InPrgrss-00005AB0.wav
DfndngTm-Pyld-InPrgrss-00005AB1.wav
DmgBffdbyFrndly-00005A01.wav
DmgBffdbyFrndly-00005A02.wav
DmgBffdbyFrndly-00005A03.wav
DmgBffdbyFrndly-000066F9.wav
DmgOvrTm-000067CA.wav
DmgOvrTm-000067CB.wav
DmgOvrTm-000067CC.wav
DmgOvrTm-000067CD.wav
DmgOvrTm-000067CE.wav
DmgOvrTm-Fr-000067CF.wav
DmgOvrTm-Fr-000067D0.wav
DmgOvrTm-Fr-000067D1.wav
DmgOvrTm-Fr-000067D2.wav
DmgOvrTm-Fr-000067D3.wav
DmgOvrTm-Frst-000067D4.wav
DmgOvrTm-Frst-000067D5.wav
DmgOvrTm-Frst-000067D6.wav
DmgOvrTm-Frst-000067D7.wav
DmgOvrTm-Frst-000067D8.wav
Dsgrmnt-00006C4D.wav
Dth-0000001C.wav
Dth-0000001D.wav

nein, das passt so. Die *.wav dürfen zur Bearbeitung per FTP auf einen Server geladen werden?

..und: Wie ist die Nummerierung anzuordnen? Darf der erste Eintrag in der Excel-Spalte zB 1001 sein? Oder gibt es dazu eine Regel?

Also wenn es ohne FTP gehen würde, dann wäre es besser.
Wir haben zwar einen, aber der Rechner an dem ich arbeite hat keinen Netzwerkzugang.

Bei der Nummerierung wäre
0001 - Dateiname.wav
0002 - Dateiname.wav

am besten glaube ich.

Und es ist ein Mac, falls das eine Rolle spielt...

Dateiname kein Problem. Hab grad einen erfolgreichen Testlauf mit Musterdateien gemacht ;-) Kennst Du Dich mit PHP aus? können wir telefonieren?

Ne, sorry, ich hab leider keine Ahnung von Php.
Aber ein Kollege in der Arbeit kennt sich damit aus. Wenn du mir die Infos schreibst, dann wird der sie verstehen.

Vielen Dank, dass du dir Samstag Abend solche Mühen machst.

wenn auf dem Rechner, auf dem die Dateien liegen (oder im gleichen Netzwerk) ein PHP-Server läuft sollte es funktionieren. Sollten die Datenmengen nicht allzugroß und geheim sein, biete ich an, diese nach diesem Schema umzubenennen.