VBA - Импортирайте имена на файлове в кликващи връзки

Това е макрос, който позволява на потребителя да избира множество файлове и да импортира имената на техните файлове като връзки, върху които може да се кликва, в електронна таблица.

Използвах проблема с mp3 като вдъхновение за този макрос, но дадох само съвети за разработване на цялостно mp3 решение.

Следният макрос прави следното:
1. Показва общ диалогов прозорец
2. Позволява на потребителя да избира множество mp3 файлове (можете да промените това на всеки тип файл, например *.mpg)
3. Импортира избраните имена на файлове в връзки, върху които може да се кликва във вашата електронна таблица (Sheet1)

Следният макрос нарочно не:
1. Показвайте времето за възпроизвеждане на mp3 файл
Открих API решение за това, но вероятно има по -добър начин

2. Показвайте някоя от информацията за етикета (изпълнител, година, жанр и т.н.)
Прочетете mp3 като двоичен, нов за мен, но работи чудесно

3. Разрешете импортирането от повече от една директория
В момента той записва стари данни

Представям един подход за импортиране на имена на файлове в връзки, върху които може да се кликва в Excel.

Публичен допълнителен импортMP3 ()

Брояч на затъмняване като цяло число
Dim PathName като вариант
Dim MP3name As String

Sheet1.Cells.Clear 'изчистване на стари данни

'вземете mp3
PathName = Application.GetOpenFilename _
("MyMusic ( *.mp3), *.mp3", "" My mp3 Selector ",, True)

брояч = 1

On Error GoTo Cancel 'в случай на бутон за анулиране

'цикъл през избрани файлове
Докато брояч <= UBound (PathName) 'получава име на файл от пътя MP3name = Mid (PathName (counter), _ InStrRev (PathName (counter), "\") + 1)' създава хипервръзка Sheet1.Cells (counter, 1) _. Hyperlinks.Add Anchor: = Sheet1.Cells (counter, 1), _ Address: = PathName (counter), TextToDisplay: = MP3name counter = counter + 1 Wend Columns ("A: A"). EntireColumn.AutoFit Отказ: End Sub