Questa è una macro che consente a un utente di selezionare più file e importare i nomi dei loro file come collegamenti cliccabili in un foglio di calcolo.
Ho usato il problema mp3 come ispirazione per questa macro, tuttavia ho fornito solo suggerimenti sullo sviluppo di una soluzione mp3 completa.
La seguente macro esegue le seguenti operazioni:
1. Mostra una finestra di dialogo comune
2. Consente a un utente di scegliere più file mp3 (puoi cambiarlo in qualsiasi tipo di file, ad esempio *.mpg)
3. Importa i nomi dei file selezionati in link cliccabili nel tuo foglio di calcolo (Foglio1)
La seguente Macro volutamente non:
1. Mostra il tempo di riproduzione di un file mp3
Ho trovato una soluzione API per questo, tuttavia probabilmente c'è un modo migliore
2. Mostra le informazioni sui tag (artista, anno, genere, ecc.)
Leggi l'mp3 come binario, nuovo per me ma ha funzionato alla grande
3. Consenti l'importazione da più di una directory
Attualmente scrive su vecchi dati
Presento una versione dell'importazione di nomi di file in collegamenti cliccabili in Excel. Contatore dim come numero intero Foglio1.Cells.Cancella "cancella vecchi dati" 'prendi mp3' contatore = 1 In caso di errore GoTo Annulla "nel caso in cui il pulsante Annulla" 'loop attraverso i file selezionati
Sub pubblica ImportMP3()
Dim PathName come variante
Dim MP3name As String
PathName = Application.GetOpenFilename _
("MyMusic (*.mp3), *.mp3", , "Il mio selettore mp3", , True)
Mentre counter <= UBound(PathName) 'ottieni il nome del file dal percorso MP3name = Mid(PathName(counter), _ InStrRev(PathName(counter), "\") + 1) 'crea il collegamento ipertestuale 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