Tai makrokomanda, leidžianti vartotojui pasirinkti kelis failus ir importuoti failų pavadinimus kaip spustelėjamas nuorodas į skaičiuoklę.
Aš naudoju mp3 problemą kaip įkvėpimą šiai makrokomandai, tačiau pateikiau tik patarimų, kaip sukurti pilną mp3 sprendimą.
Ši makrokomanda atlieka šiuos veiksmus:
1. Rodomas bendras dialogo langas
2. Leidžia vartotojui pasirinkti kelis mp3 failus (galite pakeisti bet kokio tipo failus, pvz., *.Mpg)
3. Importuoja pasirinktus failų pavadinimus į skaičiuoklės paspaudžiamas nuorodas (1 lapas)
Ši makrokomanda tyčia to nedaro:
1. Parodykite mp3 failo grojimo laiką
Radau API sprendimą, tačiau tikriausiai yra geresnis būdas
2. Parodykite bet kokią žymų informaciją (atlikėjas, metai, žanras ir kt.)
Skaitykite mp3 kaip dvejetainį, man naujoką, bet puikiai veikė
3. Leisti importuoti iš daugiau nei vieno katalogo
Šiuo metu jis rašo senus duomenis
Pateikiu vieną pavyzdį, kaip importuoti failų pavadinimus į „Excel“ paspaudžiamas nuorodas. Šviesos skaitiklis Kaip sveikasis skaičius 1 lapas. Ląstelės. Išvalyti senus aiškius duomenis Gaukite mp3 skaitiklis = 1 On Error GoTo Cancel “, jei atšaukimo mygtukas “peržiūrėkite pasirinktus failus
Viešas antrinis importasMP3 ()
„Dim PathName As Variant“
Blankus MP3 pavadinimas kaip eilutė
PathName = Application.GetOpenFilename _
(„MyMusic ( *.mp3), *.mp3“, „My mp3 Selector“,, True)
Nors skaitiklis <= UBound (PathName) 'gauna failo pavadinimą iš kelio MP3name = Mid (PathName (skaitiklis), _ InStrRev (PathName (skaitiklis), "\") + 1) "sukuria hipersaitą Sheet1.Cells (skaitiklis, 1) _. Hipersaitai. Pridėti inkarą: = Sheet1.Cells (skaitiklis, 1), _ Adresas: = PathName (skaitiklis), TextToDisplay: = MP3 pavadinimo skaitiklis = skaitiklis + 1 Wend stulpeliai ("A: A"). EntireColumn.AutoFit Atšaukti: Pabaiga
