hilfdirselbst.ch
Facebook Twitter gamper-media
« « 1 2 » »  
mischmaster
Beiträge: 20
20. Okt 2017, 15:00
Beitrag #1 von 16
Bewertung:
(2360 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA


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
Top
 
X
Klaus79 S
Beiträge: 292
20. Okt 2017, 16:40
Beitrag #2 von 16
Beitrag ID: #560060
Bewertung:
(2347 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA


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
als Antwort auf: [#560050] Top
 
mischmaster
Beiträge: 20
20. Okt 2017, 17:46
Beitrag #3 von 16
Beitrag ID: #560064
Bewertung:
(2339 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA


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
als Antwort auf: [#560060]
(Dieser Beitrag wurde von mischmaster am 20. Okt 2017, 17:48 geändert)
Top
 
Klaus79 S
Beiträge: 292
20. Okt 2017, 19:15
Beitrag #4 von 16
Beitrag ID: #560065
Bewertung:
(2325 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA


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
als Antwort auf: [#560064] Top
 
ktedo
Beiträge: 253
20. Okt 2017, 19:18
Beitrag #5 von 16
Beitrag ID: #560066
Bewertung:
(2323 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA


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
als Antwort auf: [#560050] Top
 
mischmaster
Beiträge: 20
20. Okt 2017, 19:22
Beitrag #6 von 16
Beitrag ID: #560067
Bewertung:
(2317 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA


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

Danke
als Antwort auf: [#560065] Top
 
ktedo
Beiträge: 253
21. Okt 2017, 20:02
Beitrag #7 von 16
Beitrag ID: #560085
Bewertung:
(2238 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA


dann brauche ich bitte mal einen Schwung der Dateinamen
VG Thomas
als Antwort auf: [#560067] Top
 
mischmaster
Beiträge: 20
21. Okt 2017, 20:24
Beitrag #8 von 16
Beitrag ID: #560086
Bewertung:
(2234 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA


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
als Antwort auf: [#560085]
(Dieser Beitrag wurde von mischmaster am 21. Okt 2017, 20:26 geändert)
Top
 
ktedo
Beiträge: 253
21. Okt 2017, 20:41
Beitrag #9 von 16
Beitrag ID: #560087
Bewertung:
(2229 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA


nein, das passt so. Die *.wav dürfen zur Bearbeitung per FTP auf einen Server geladen werden?
als Antwort auf: [#560086] Top
 
ktedo
Beiträge: 253
21. Okt 2017, 20:45
Beitrag #10 von 16
Beitrag ID: #560088
Bewertung:
(2228 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA


..und: Wie ist die Nummerierung anzuordnen? Darf der erste Eintrag in der Excel-Spalte zB 1001 sein? Oder gibt es dazu eine Regel?
als Antwort auf: [#560086] Top
 
mischmaster
Beiträge: 20
21. Okt 2017, 20:50
Beitrag #11 von 16
Beitrag ID: #560089
Bewertung:
(2223 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA


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.
als Antwort auf: [#560088] Top
 
mischmaster
Beiträge: 20
21. Okt 2017, 20:53
Beitrag #12 von 16
Beitrag ID: #560090
Bewertung:
(2220 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA


Und es ist ein Mac, falls das eine Rolle spielt...
als Antwort auf: [#560089] Top
 
ktedo
Beiträge: 253
21. Okt 2017, 20:54
Beitrag #13 von 16
Beitrag ID: #560091
Bewertung:
(2220 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA


Dateiname kein Problem. Hab grad einen erfolgreichen Testlauf mit Musterdateien gemacht ;-) Kennst Du Dich mit PHP aus? können wir telefonieren?
als Antwort auf: [#560089] Top
 
mischmaster
Beiträge: 20
21. Okt 2017, 20:57
Beitrag #14 von 16
Beitrag ID: #560092
Bewertung:
(2218 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA


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.
als Antwort auf: [#560091] Top
 
ktedo
Beiträge: 253
21. Okt 2017, 21:06
Beitrag #15 von 16
Beitrag ID: #560094
Bewertung:
(2215 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Dateien anhand einer Excel Reihenfolge nummerieren mit VBA


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.
als Antwort auf: [#560092] Top
 
« « 1 2 » »  
X