Это макрос, который позволяет пользователю выбрать несколько файлов и импортировать их имена в виде интерактивных ссылок в электронную таблицу.
Я использовал проблему mp3 в качестве вдохновения для этого макроса, однако я только дал подсказки по разработке полного решения для mp3.
Следующий макрос выполняет следующие действия:
1. Показывает обычное диалоговое окно.
2. Позволяет пользователю выбрать несколько файлов mp3 (вы можете изменить его на любой тип файла, например * .mpg)
3. Импортирует выбранные имена файлов в интерактивные ссылки в вашей электронной таблице (Sheet1).
Следующий макрос намеренно не выполняет:
1. Показать время воспроизведения mp3-файла.
Я нашел решение API для этого, но, вероятно, есть способ получше
2. Показать любую информацию тега (исполнитель, год, жанр и т. Д.)
Прочтите mp3 как двоичный, новый для меня, но отлично работал
3. Разрешить импорт из более чем одного каталога.
В настоящее время он записывает старые данные
Я представляю один вариант импорта имен файлов в интерактивные ссылки в Excel. Тусклый счетчик как целое число Sheet1.Cells.Clear 'очистить старые данные 'получить mp3 counter = 1 On Error GoTo Cancel 'в случае, если кнопка отмены 'перебирать выбранные файлы
Public Sub ImportMP3 ()
Dim PathName As Variant
Уменьшить размер имени MP3 в виде строки
PathName = Application.GetOpenFilename _
("MyMusic (* .mp3), * .mp3",, "Мой выбор mp3",, True)
Пока counter <= UBound (PathName) 'получает имя файла из пути MP3name = Mid (PathName (counter), _ InStrRev (PathName (counter), "\") + 1)' создает гиперссылку Sheet1.Cells (counter, 1) _. Гиперссылки. Добавить привязку: = Sheet1.Cells (counter, 1), _ Address: = PathName (counter), TextToDisplay: = MP3name counter = counter + 1 Wend Columns ("A: A"). CompleteColumn.AutoFit Cancel: End Sub