Слушаем интернет-радио в Excel

2013 07.05.2022 Скачать пример


На вкладке Разработчик выбираем кнопку Вставить - Элементы ActiveX - Другие элементы управления (Developer - Insert - ActiveX - Other controls):

Другие элементы ActiveX

Затем в открывшемся окне находим Windows Media Player, жмём OK и рисуем его контейнер на листе, удерживая нажатой левую кнопку мыши:

Вставленный медиаплейер

Запоминаем имя вставленного компонента в левом верхнем углу (обычно это WindowsMediaPlayer1 или что-то похожее) и отжимаем кнопку Режим Конструктора (Design Mode), чтобы перевести плейер в рабочий режим.

Затем щёлкаем правой по ярлычку листа и выбираем команду Исходный текст (Source code). В открывшееся окно редактора макросов вводим следующий код: 

Sub Radio()
    WindowsMediaPlayer1.Url = ActiveCell
    WindowsMediaPlayer1.Controls.Play
End Sub

Возвращаемся в Excel, выделяем ячейку с веб-ссылкой на потоковое вещание радиостанции и запускаем наш макрос через Разработчик - Макросы (Developer - Macros) или сочетанием клавиш Alt+F8. Для удобства также можно сделать отдельную кнопку запуска через Разработчик - Вставить - Кнопка (Developer - Insert - Button):

Результат

Воспроизведение медиа потока никак не мешает работе с данными на листах, созданию запросов Power Query, другим макросам и пр., т.к. происходит в фоновом процессе.

Простенько и со вкусом :)




Сергей Полухин
08.05.2022 13:42:21
Николай, благодарю! ЗдОрово!
Ссылка
Islambek Brgaliyev
08.05.2022 15:51:19
Здравствуйте Николай,

А как самому формировать ссылку на радио которую  я хочу слушать???
Ссылка
Николай Павлов
13.05.2022 08:12:25
Насколько я понимаю, это может только радиостанция :D
Родитель Ссылка
Тим
08.05.2022 20:25:48
Интересно, единственное перенес бы от пользователя на скрытый лист ссылки
Sub Radio()
WindowsMediaPlayer1.Url = Sheets("Лист2".Range(ActiveCell.Address)
WindowsMediaPlayer1.Controls.Play
End Sub
Ссылка
Алексей Иванов
08.05.2022 21:59:42
А можно то же самое, но для видео с ютуба?
Ссылка
Алексей Иванов
08.05.2022 22:15:07
Или любого другого источника видео
Родитель Ссылка
Anton
10.05.2022 09:37:32
Проделал всё тоже самое, но почему-то не играет радио
Ссылка
Виктор Суханов
10.05.2022 18:47:27
Посмотрите инструкцию в видео, а то на сайте инструкция не полная и нет скрина со списком радиостанций.
Родитель Ссылка
Владимир Гор
10.05.2022 20:48:04
Все супер, но хотелось бы добавить две кнопки "вперед" и "назад" для перехода по радиостанциям.
Ссылка
Alex F
17.05.2022 14:57:44
добавляете 2 макроса:

Sub RadioNext()
   ActiveCell.Offset(1, 0).Select
   WindowsMediaPlayer1.Url = ActiveCell
   WindowsMediaPlayer1.Controls.Play
End Sub


Sub RadioPrev()
   ActiveCell.Offset(-1, 0).Select
   WindowsMediaPlayer1.Url = ActiveCell
   WindowsMediaPlayer1.Controls.Play
End Sub

Ну и вставляете 2 кнопки, назначив макросы соответствующие
Родитель Ссылка
Владимир Гор
19.05.2022 17:10:50
Спасибо за помощь. Все получилось!)))) Благодарю!!!:)
Родитель Ссылка
Alex F
17.05.2022 15:22:56
А если добавить макрос 


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If InStr(ActiveCell.Value, "://") > 0 Then
Call Radio
End If
End Sub
То можно просто тыкать на ссылку, и будет проигрываться станция. А если ткнуть в другую пустую, то ничего не произойдет )
Ссылка
Danik Kek
18.05.2022 10:28:12
Все проделал, а радио молчит. Скачал ваш пример, при открытии радио начинает играть сразу, при переключении станции замолкает и не работает ни одна ссылка. В чем может быть проблема?
Ссылка
Ольга Колбасина
07.07.2022 08:04:51
Может быть ссылка на радиоканал не рабочая? Попробуйте вот здесь взять https/forum.mcmp.su/topic/3812/
Тут не все работают, но самые распространенные отлично воспроизводят.
Родитель Ссылка
Leo Grig
21.05.2022 16:22:42
Использовал первоначальный код Павла, но все время вылезает ошибка 424. Теряюсь в догадках
Ссылка
Оксана Г.
27.05.2022 19:15:33
Добрый день!
Все сделала, радио молчит. Нажимаешь на кнопку Play, в ячейке A1, где добавлен компонент WindowsMediaPlayer, пишет Подключение - Открытие мультимедиа - Готово. И тишина. Что может быть не так?
Ссылка
Илья Чечков
30.06.2022 11:31:07
У кого APPLE тот без радио будет сидеть. Даже вид ленты "Разработчик" другой.
Ссылка
Ольга Колбасина
07.07.2022 08:00:04
Добрый день.
Классная фишка для работы. Вариант с тремя кнопками прекрасно работает.:)
Ссылка
Максим Н
10.07.2022 10:46:21
з
Ссылка
Дмитрий Махнёв
17.08.2022 12:19:08
Урок супер, сделал под себя плейлист и добавил новых радиостанций!! А можно ли как то в отдельной ячейке вытянуть исполнителя и название проигрываемой композиции?
Ссылка
Наверх