✅ VBA - importige failinimed klõpsatavatele linkidele

Lang L: none (table-of-contents)

See on makro, mis võimaldab kasutajal valida mitu faili ja importida oma failinimed klikitavate linkidena arvutustabelisse.

Kasutasin selle makro inspiratsioonina mp3 -probleemi, kuid andsin ainult vihjeid täieliku mp3 -lahenduse väljatöötamiseks.

Järgmine makro teeb järgmist.
1. Kuvab tavalise dialoogiboksi
2. Võimaldab kasutajal valida mitu mp3 -faili (saate selle muuta mis tahes tüüpi failiks, näiteks *.mpg)
3. Impordib valitud failinimed arvutustabeli klikitavatele linkidele (leht 1)

Järgmine makro ei tee seda meelega:
1. Näidake mp3 -faili esitamise aega
Leidsin sellele API -lahenduse, kuid ilmselt on olemas parem viis

2. Näidake kogu märgenditeavet (esitaja, aasta, žanr jne)
Lugege mp3 -d binaarsena, minu jaoks uus, kuid töötas suurepäraselt

3. Luba importida rohkem kui ühest kataloogist
Praegu kirjutab see üle vanad andmed

Esitan ühe võtte failinimede importimisest Exceli klikitavatele linkidele.
Avalik alam importMP3 ()

Hämardusloendur täisarvuna Dim PathName Variant Hämardatud MP3 -nimi stringina


Leht1. Lahtrid. Kustutage vanad andmed
'Hangi mp3
PathName = Application.GetOpenFilename _
("MyMusic ( *.mp3), *.mp3", "My mp3 Selector",, True)
loendur = 1
On Error GoTo Cancel 'tühistamisnupu korral

'ringi valitud failide vahel Kuigi loendur <= UBound (PathName) 'saab failinime teelt MP3name = Mid (PathName (counter), _ InStrRev (PathName (counter), "\") + 1) "loob hüperlingi Sheet1.Cells (counter, 1) _. Hüperlingid. Lisa ankur: = Sheet1.Cells (counter, 1), _ Address: = PathName (counter), TextToDisplay: = MP3name counter = counter + 1 Wend Columns ("A: A"). EntireColumn.AutoFit Tühista: End Sub