Клайв занимается наблюдением за птицами и имеет более 300 файлов в формате MP3 со звуками птиц. Он хочет создать рабочий лист Excel с единственным столбцом, в котором перечислены фактические имена файлов MP3, например, «cormorant.mp3». Он хочет создать гиперссылку из каждой из этих 300 или около того ячеек на физический файл MP3, чтобы проигрыватель открывал и воспроизводил звук птицы. Он знает, что может индивидуально вставить гиперссылку, но это, очевидно, было бы довольно утомительно. Поэтому он задается вопросом, есть ли способ автоматически создать такую ​​ссылку на основе имен файлов MP3 на листе.

На самом деле этот вопрос состоит из двух частей: получение имен файлов в листе Excel и создание ссылки на файл MP3, чтобы можно было воспроизвести пение птиц.

Сначала убедитесь, что все файлы MP3 находятся в одной папке на жестком диске. О том, как получить список файлов, рассказывалось в других выпусках ExcelTips; Вы можете просмотреть идеи, как это сделать, на этой странице ExcelTips:

http://excelribbon.tips.net/T011144

После того, как имена окажутся в рабочем листе (предположим, что они находятся в столбце A), вы можете легко использовать функцию рабочего листа ГИПЕРССЫЛКА, чтобы собрать фактическую ссылку. Например, в ячейку B1 можно поместить следующее:

=HYPERLINK("C:\Documents\Birdsongs\" & A1)

Предполагается, что папка, в которой находятся песни, — C: \ Documents \ Birdsongs \. Если путь на самом деле отличается, просто измените функцию ГИПЕРССЫЛКА.

Как только правильная формула окажется в ячейке B1, вы можете скопировать ее для любого количества ячеек, которое вам потребуется, чтобы получить все правильные гиперссылки.

Конечно, вы можете указать «отображаемый текст», который будет использоваться функцией ГИПЕРССЫЛКА. Если ваши файлы с пением птиц начинаются с имени птицы и заканчиваются на .mp3, вы можете добавить отображаемый текст в функцию ГИПЕРССЫЛКА следующим образом:

=HYPERLINK("C:\Documents\Birdsongs\" & A1, LEFT(A1, LEN(A1) - 4)

Это использование просто удаляет последние четыре символа (точка и «mp3») из имени файла, а затем использует их в качестве отображаемого текста.

Если вы хотите использовать макро-подход для создания гиперссылок (без использования функции ГИПЕРССЫЛКА), то лучше всего начать с макроса захвата имени файла из подсказки, упомянутой ранее в этой подсказке. Его можно изменить так, чтобы в рабочий лист помещались не только имена файлов, но и создавались необходимые гиперссылки:

Sub MakeHyperlinks()

Dim sPath As String     Dim sFile As String     Dim iRow As Integer

'specify directory to use - must end in "\"

sPath = "C:\Documents\Birdsongs\"



iRow = 0     sFile = Dir(sPath)

While sFile <> ""

iRow = iRow + 1         Sheet1.Cells(iRow,1) = sFile         sBird = Left(sFile, Len(sFile)-4)

ActiveSheet.Hyperlinks.Add Anchor:=Sheet1.Cells(iRow,1), _           Address:=sPath & sFile, TextToDisplay:=sBird         sFile = Dir     ' Get next filename     Wend End Sub

Если вы решили пойти по макро-маршруту, убедитесь, что на текущем листе ничего нет. Макрос выполняется очень быстро и стирает все, что находится в ячейках, в которые он записывает. Когда это будет сделано, вы получите имя файла в столбце A и гиперссылку на файл MP3 в столбце B.

Когда вы щелкаете гиперссылку на листе, Excel запускает ваш веб-браузер и загружает файл MP3. Затем браузер воспроизводит файл.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (13127) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365.