Ово је макро који омогућава кориснику да изабере више датотека и увезе њихова имена датотека као везе на које је могуће кликнути у табелу.
Користио сам проблем са мп3 -ом као инспирацију за овај макро, али сам само дао савете о развоју комплетног мп3 решења.
Следећи макро ради следеће:
1. Приказује заједнички оквир за дијалог
2. Омогућава кориснику да одабере више мп3 датотека (ово можете променити у било коју врсту датотеке, на пример *.мпг)
3. Увоз изабраних назива датотека у везе на које је могуће кликнути у вашој табели (лист 1)
Следећи макро намерно не:
1. Прикажите време репродукције мп3 датотеке
Нашао сам АПИ решење за ово, међутим вероватно постоји бољи начин
2. Прикажите било коју од информација о ознакама (извођач, година, жанр итд.)
Читајте мп3 као бинарни, мени ново, али је одлично функционисало
3. Дозволите увоз из више директоријума
Тренутно записује старе податке
Представљам један поглед на увоз имена датотека на везе које се могу кликнути у Екцелу. Дим цоунтер Ас Интегер Схеет1.Целлс.Цлеар 'обришите старе податке 'Набави мп3 бројач = 1 Он Еррор ГоТо Цанцел 'у случају тастера за отказивање 'петља кроз изабране датотеке
Јавни под увоз МП3 ()
Затамни име путање као варијанту
Дим МП3наме Ас Стринг
ПатхНаме = Апплицатион.ГетОпенФиленаме _
("МиМусиц ( *.мп3), *.мп3",, "Ми мп3 Селецтор",, Труе)
Док бројач <= УБоунд (ПатхНаме) 'добије име датотеке са путање МП3наме = Мид (ПатхНаме (цоунтер), _ ИнСтрРев (ПатхНаме (цоунтер), "\") + 1)' креирајте хипервезу Схеет1.Целлс (цоунтер, 1) _. Хиперлинкс.Адд Анцхор: = Схеет1.Целлс (цоунтер, 1), _ Аддресс: = ПатхНаме (цоунтер), ТектТоДисплаи: = цоунтернаменаме цоунтер = цоунтер + 1 Венд Цолумнс ("А: А"). ЕнтиреЦолумн.АутоФит Цанцел: Енд Суб
