Office: Videodateien in Excel

Office 2013:

ich habe jetzt von einem Ordner mit vielen Videodateien, Testweise mehrere Videodateien mittels Hyperlink in eine Excel Datei eingebunden. Das funktioniert ohne Probleme auch werden diese gestartet und einwandfrei abgespielt. Auch das Suchen funktioniert einwandfrei. Nur muss ich jede einzelne Datei mittels Link einbinden. Wie kann ich jetzt alle Video Dateien von deren Ordner mit deren jeweils separaten Link auf einmal einbinden.???

:)

 

Moin!
Per VBA
oder per (kostenlosem) Add-In
Power Query

Link zum Download des Add-Ins:
https://www.microsoft.com/de-DE/down....aspx?id=39379

Gruß Ralf

 

danke, mit power query kann ich zwar alle dateien in Liste bringen, diese starten jedoch nicht.

 

was ich vergessen habe, die Dateien sind mp4 werden nicht erkannt, der VBA Link funktioniert nicht und bei Googeln habe ich unter VBA keine geeignete Funktion für Video oder Musikdateien gesehen.

 

Erkläre doch zunächst mal, warum Du nicht mittels Alt+Drag&Drop aus dem Explorer eine Verknüpfung des Ordners auf dem Desktop erstellst.
Soll es eine Art Datenbank werden?
Ich wüsste nicht, warum in der Registry zugeordnete Dateitypen nicht per Hyperlink in Excel gestartet werden sollten.

Gruß Ralf

 

ich verstehe das nicht was gemeint ist, einen Ordner am Desktop wozu ?? ich will ja in der Excel Spalte nach Worten suchen, ich habe ja viele Videoclips und da will ich nach Interpreten oder Liedernamen suchen. Mit der Hyperlinkfunktion beim normalen Excel (ohne Power Queri) kann ich das ja machen nur müßte ich jede einzelne Datei so einfügen, das ist eine Sisyphusarbeit ohne Ende. Derzeit etwa 1400 Dateien etwa 73 Ordner, die Ordner will ich mit einzelnen Dateien integrieren, dann habe ich noch tausend Videoclips auf selbst gebrannten DVD der letzten 25 Jahre die ich auflösen will, ebenso würde ich gerne Filme ebenso handeln. Da muss ich aber erst DVD in mp4 umwandeln. Ich sehe keinen Sinn am Desktop Ordner anzulegen wo dann wieder hunderte Ordner mit xxxx Dateien vorhanden sind und ich keine Suchfunktion verwenden kann.

 

Moin!
Ich wollte jetzt eigentlich fragen, warum Du meinen VBA-Link nicht ausprobiert hast.
Den hat wohl die Forensoftware zerschossen. *confused.gif*
Mal sehen, ich werde heute mal etwas entwickeln, kann aber etwas dauern.
Grob aber nach diesem Schema:

• Dateien auflisten per file scripting object in nachher ausgeblendeter Hilfsspalte
• Hyperlink per Formel mittels VBA erstellen, friendly Name ist der Dateiname ohne Pfad

Vielleicht hilft Dir ja bereits obiges?

Gruß Ralf

 

Mahlzeit!
Ich hoffe, du weist die nicht unerhebliche Arbeit meinerseits zu schätzen:

Modul Modul1

Makro MainExtractData starten und freuen … *wink.gif*

Gruß Ralf

 

Anmerkung!
Der Forensoftware-Bug des nicht dargestellten Backslashes betrifft hier zwei Zeilen meines Codes:
.Name = "Laufwerk " & Left(MainFolderName, 1) & " " & _
Mid(Replace(MainFolderName, "", "_"), 3, 244)
muss so lauten:
.Name = "Laufwerk " & Left(MainFolderName, 1) & " " & _
Mid(Replace(MainFolderName, "\", "_"), 3, 244)

Statt
x(i, 1) = SubFld.Path & "" & Fil.Name
besser so:
x(i, 1) = SubFld.Path & "\" & Fil.Name

Ich habe meine Testdatei mal angehängt.

Gruß Ralf

 

Danke, ja viel Arbeit und Gehirnschmalz wurden von Dir investiert, nochmals Danke, habe jetzt mal die Korrektur durchgeführt und als txt gespeichert, da ich mich nicht auskenne,meine Frage unter welcher Endung muss ich diese Datei speichern und wie muss der Dateiname sein. Das diese mit dem Excel zusammenarbeitet.

 

Bitte, wie meinen? *boah
Ich habe meine Datei im letzten Post hochgeladen!

Glückwunsch!
(ohne weitere Worte)

Gruß Ralf

 

Hallo RPP63neu,

cooles teil was du da gebaut hast.

Dies funktioniert auch mit anderen Datein wie mit bildern unsw.


ist zwar nicht mein beitrag aber ich kann dies auch super gebrauchen.

hab recht vielen vielen dank dafür.


mfg thomas

 

also tut mir leid, aber wenn ich mit Power Query die Dateien einfüge, starten diese nach wie vor nicht im Player. Oder wie soll ich diese in die Mappe übernehmen ?? Also tut mir leid, aber ich habe keine Ahnung wie ich das nutzen kann.

 

Mir irgendwie auch.
Also war meine Lösung "Perlen vor die Säue"…

Ein letztes EDIT:
Lade meine Datei herunter

 

also die Excel Datei habe ich ja heruntergeladen und in dieser die Datien zu integrieren versucht, das funktioniert ja, aber diese kann mich starten, also wie bisher. Im Menü gibt es keinen neuen Punkt zur Integration, alle anderen sind immer nur für eine Datei und keinen Ordner.

Die Datei beginnt mit

Dateiliste mit Hyperlinks in neuem Blatt erstellen
Makro MainExtractData starten

Also ich speicher diese Datei mit anderen Namen, wenn das makro nicht integriert ist wie starte ich es und wie speichere ich es (ich habe mit makro bisher nicht gearbeitet) nur mit verknüpfungen.