Dies ist ein Makro, mit dem ein Benutzer mehrere Dateien auswählen und ihre Dateinamen als anklickbare Links in eine Tabelle importieren kann.
Ich habe das mp3-Problem als Inspiration für dieses Makro verwendet, aber ich habe nur Hinweise zur Entwicklung einer vollständigen mp3-Lösung gegeben.
Das folgende Makro macht folgendes:
1. Zeigt ein allgemeines Dialogfeld an
2. Ermöglicht einem Benutzer, mehrere MP3-Dateien auszuwählen (Sie können dies in einen beliebigen Dateityp ändern, zum Beispiel *.mpg)
3. Importiert die ausgewählten Dateinamen in anklickbare Links in Ihrer Tabelle (Tabelle 1)
Das folgende Makro tut es absichtlich nicht:
1. Zeigen Sie die Spielzeit für eine mp3-Datei an
Ich habe eine API-Lösung dafür gefunden, aber es gibt wahrscheinlich einen besseren Weg
2. Zeigen Sie beliebige Tag-Informationen an (Künstler, Jahr, Genre usw.)
Lesen Sie die mp3 als Binärdatei, neu für mich, aber funktionierte großartig
3. Import aus mehr als einem Verzeichnis zulassen
Es überschreibt derzeit alte Daten
Ich präsentiere einen Ansatz zum Importieren von Dateinamen in anklickbare Links in Excel. Dim-Zähler As Integer Sheet1.Cells.Clear 'alte Daten löschen 'mp3 holen Zähler = 1 Bei Fehler GoTo Cancel 'falls Abbrechen-Schaltfläche 'durch ausgewählte Dateien schleifen
Öffentlicher UnterimportMP3()
Dim PathName als Variante
MP3-Name als String dimmen
Pfadname = Application.GetOpenFilename _
("MyMusic (*.mp3), *.mp3", , "My mp3 Selector", , True)
Während counter <= UBound(PathName) 'Dateiname aus dem Pfad abrufen MP3name = Mid(PathName(counter), _ InStrRev(PathName(counter), "\") + 1) 'Hyperlink erstellen Sheet1.Cells(counter, 1) _ . Hyperlinks.Add Anchor:=Sheet1.Cells(counter, 1), _ Address:= PathName(counter), TextToDisplay:=MP3name counter = counter + 1 Wend Columns("A:A").EntireColumn.AutoFit Cancel: End Sub
