Tämä on makro, jonka avulla käyttäjä voi valita useita tiedostoja ja tuoda tiedostonimensä napsautettavina linkkeinä laskentataulukkoon.
Käytin mp3 -ongelmaa tämän makron inspiraationa, mutta annoin vain vihjeitä täydellisen mp3 -ratkaisun kehittämisestä.
Seuraava makro suorittaa seuraavat toimet:
1. Näyttää yleisen valintaikkunan
2. Käyttäjä voi valita useita mp3 -tiedostoja (voit muuttaa minkä tahansa tiedostotyypin, esimerkiksi *.mpg)
3. Tuo valitut tiedostonimet napsautettaviin linkkeihin laskentataulukossasi (taulukko 1)
Seuraava makro ei tarkoituksella:
1. Näytä mp3 -tiedoston toistoaika
Löysin API -ratkaisun tähän, mutta on luultavasti parempi tapa
2. Näytä kaikki tunnistetiedot (taiteilija, vuosi, tyylilaji jne.)
Lue mp3 binäärinä, uusi minulle, mutta toimi hyvin
3. Salli tuonti useammasta kuin yhdestä hakemistosta
Se kirjoittaa tällä hetkellä vanhoja tietoja
Esitän yhden otoksen tiedostonimien tuomisesta napsautettaviin linkkeihin Excelissä. Himmennyslaskuri Kokonaislukuna Taulukko 1. solut. Tyhjennä vanhat tiedot 'hanki mp3 laskuri = 1 On Error GoTo Cancel ', jos peruutuspainike 'selaa valittuja tiedostoja
Julkinen alituontiMP3 ()
Dim PathName Variant
Himmennä MP3 -nimi merkkijonona
PathName = Application.GetOpenFilename _
("MyMusic ( *.mp3), *.mp3", "My mp3 Selector",, True)
Kun laskuri <= UBound (PathName) 'hakee tiedostonimen polulta MP3name = Mid (PathName (counter), _ InStrRev (PathName (counter), "\") + 1) "luo hyperlinkin Sheet1.Cells (counter, 1) _. Hyperlinkit.