Це макрос, який дозволяє користувачеві вибирати кілька файлів та імпортувати їх імена файлів як посилання, які можна натиснути, в електронну таблицю.
Я використав проблему mp3 як натхнення для цього макросу, однак я лише дав підказки щодо розробки повного рішення для mp3.
Наступний макрос робить наступне:
1. Показує загальне діалогове вікно
2. Дозволяє користувачеві вибирати декілька файлів mp3 (це можна змінити на будь -який тип файлу, наприклад, *.mpg)
3. Імпортує вибрані імена файлів до посилань, які можна натиснути у вашій таблиці (Sheet1)
Наступний макрос навмисно не:
1. Покажіть час відтворення файлу mp3
Я знайшов для цього рішення API, проте, мабуть, є кращий спосіб
2. Показуйте будь -яку інформацію про теги (виконавця, рік, жанр тощо)
Читайте mp3 як двійковий, новий для мене, але працював чудово
3. Дозволити імпорт із кількох каталогів
В даний час він записує старі дані
Я представляю одну думку щодо імпорту імен файлів до посилань, які можна натиснути в Excel. Лічильник затемнення як ціле число Sheet1.Cells.Clear 'очистити старі дані "Отримайте mp3 лічильник = 1 Увімкнено Помилка Перейти до скасування 'у разі натискання кнопки скасування 'перебирати вибрані файли
Загальнодоступний імпорт MP3 ()
Затемнити PathName як варіант
Затемнити MP3 ім'я як рядок
PathName = Application.GetOpenFilename _
("MyMusic ( *.mp3), *.mp3", "" My mp3 Selector ",, True)
У той час як лічильник <= UBound (PathName) 'отримує ім'я файлу з шляху MP3name = Mid (PathName (counter), _ InStrRev (PathName (counter), "\") + 1)' створює гіперпосилання Sheet1.Cells (counter, 1) _. Гіперпосилання. Додати якір: = Sheet1.Cells (лічильник, 1), _ Адреса: = PathName (лічильник), TextToDisplay: = Лічильник імен MP3 = лічильник + 1 стовпці Wend ("A: A").
