Dateieigenschaften auslesen in Excel
Schritt-für-Schritt-Anleitung
Um die Länge eines Videos in Excel auszulesen, kannst du den folgenden VBA-Code verwenden. Dieser Code ermöglicht es dir, spezifische Dateieigenschaften auszulesen, wie zum Beispiel die Videolänge.
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Füge ein neues Modul hinzu (
Einfügen > Modul).
- Kopiere den folgenden Code in das Modul:
Sub filmlänge()
Dim objFolder As Object
Dim objShell As Object
Dim objItem As Object
Dim myFilename As String
myFilename = "Urlaub2010.mp4" ' Ersetze dies durch deinen Dateinamen
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("C:\test\urlaub\") ' Pfad zu deinem Ordner
Set objItem = objFolder.ParseName(myFilename)
Cells(3, 10) = objFolder.GetDetailsOf(objItem, 27) ' 27 steht für die Länge
End Sub
- Ändere den Pfad und den Dateinamen entsprechend deiner Datei.
- Schließe den VBA-Editor und führe das Makro aus, um die Videolänge in die Zelle J3 einzufügen.
Häufige Fehler und Lösungen
Alternative Methoden
Wenn du die Videolänge nicht mit VBA auslesen möchtest, kannst du auch Power Query verwenden, um Dateieigenschaften zu importieren.
- Gehe zu
Daten > Daten abrufen > Aus Datei > Aus Ordner.
- Wähle den Ordner, in dem sich dein Video befindet.
- Wähle die Datei aus und lade die Daten in Excel.
Diese Methode ist besonders hilfreich, wenn du regelmäßig mehrere Dateien analysieren möchtest.
Praktische Beispiele
- Um die Länge mehrerer Videos in einem Ordner auszulesen, kannst du eine Schleife verwenden:
Sub alleFilmlängen()
Dim objFolder As Object
Dim objShell As Object
Dim objItem As Object
Dim myFolder As String
Dim i As Integer
myFolder = "C:\test\urlaub\" ' Pfad zum Ordner
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(myFolder)
For i = 0 To objFolder.Items.Count - 1
Set objItem = objFolder.Items.Item(i)
Cells(i + 3, 10) = objFolder.GetDetailsOf(objItem, 27) ' Videolänge
Next i
End Sub
- Diese Schleife wird die Länge aller Videos im angegebenen Ordner ab der Zelle J3 auflisten.
Tipps für Profis
- Nutze die
On Error Resume Next-Anweisung, um Fehler zu ignorieren, wenn eine Datei möglicherweise nicht geöffnet werden kann.
- Experimentiere mit den verschiedenen Indexwerten in
GetDetailsOf, um andere Dateieigenschaften auszulesen, wie z.B. die Bitrate oder das Erstellungsdatum.
FAQ: Häufige Fragen
1. Warum wird die Länge nicht korrekt angezeigt?
Es kann sein, dass das Format der Datei nicht unterstützt wird oder dass der Pfad zur Datei nicht korrekt ist. Überprüfe die Eingaben.
2. Muss ich eine bestimmte Excel-Version verwenden?
Der VBA-Code sollte in Excel 2010 und späteren Versionen funktionieren, solange die Shell-Anwendung verfügbar ist.
3. Wie kann ich die Dateieigenschaften für verschiedene Dateitypen abrufen?
Ändere einfach den Dateinamen und den Pfad im Code. Achte darauf, dass die Indexnummer in GetDetailsOf den jeweiligen Dateityp unterstützt.