Проигрывание файла MP3 (в текущем макросе)

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проигрывание файла MP3 (в текущем макросе) (Макросы/Sub)

rotten41

Дата: Вторник, 02.05.2017, 00:18 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 163

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте, гуру экселя.
Прошу помочь с решением непростой проблемы.

У меня есть макрос - проигрывающий mp3 файл - напрямую из экселя, без использования активХ.

Я хотел изменить этот код так, чтобы он проигрывал файл до бесконечности (с перемоткой).
Но что-то не получается.

Подскажите - как изменить этот макрос, чтобы он проигрывал этот файл до бесконечности ?
То есть как зациклить его?

[vba]

Код

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Sub Play1()
Call mciExecute("play C:\555\2.mp3")
End Sub

[/vba]

К сообщению приложен файл: 87635.xls (36.0 Kb)

Ответить

KuklP

Дата: Вторник, 02.05.2017, 07:52 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Кросс:
http://www.planetaexcel.ru/forum....ivaniem

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

rotten41

Дата: Вторник, 02.05.2017, 09:01 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 163

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Сообщение отредактировал rotten41 - Вторник, 02.05.2017, 23:23

Ответить

RAN

Дата: Вторник, 02.05.2017, 19:55 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Цитата rotten41, 02.05.2017 в 09:01, в сообщении № 3 ()

Видимо не знают ответа на вопрос.

Ответ вам дали. А вот писать вам макрос, с учетом отсутствия ваших попыток реализации подсказки, действительно, желания нет.

Быть или не быть, вот в чем загвоздка!

Ответить

KuklP

Дата: Вторник, 02.05.2017, 20:25 | Сообщение № 5

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Цитата rotten41, 02.05.2017 в 09:01, в сообщении № 3 ()

мне там ничего толкового не ответили

я щас расплачусь. Ссылки на кроспосты должны давать Вы, а не форумчане. Читайте правила здесь п5.s и там п4.1.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

buchlotnik

Дата: Вторник, 02.05.2017, 20:30 | Сообщение № 6

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

Репутация: 929 ±

Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG

[offtop]

Цитата

мне там ничего толкового не ответили

и те же люди на другом форуме вдруг станут толковее...

Ответить

rotten41

Дата: Вторник, 02.05.2017, 23:23 | Сообщение № 7

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 163

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Снимаю вопрос - решение найдено.

Ответить

Pelena

Дата: Среда, 03.05.2017, 07:03 | Сообщение № 8

Группа: Админы

Ранг: Местный житель

Сообщений: 19176

Репутация: 4413 ±

Замечаний: ±

Excel 365 & Mac Excel

Цитата rotten41, 02.05.2017 в 23:23, в сообщении № 7 ()

решение найдено

Поделиться не хотите?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

gge29

Дата: Среда, 03.05.2017, 19:05 | Сообщение № 9

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 244

Репутация: 3 ±

Замечаний: 0% ±

Цитата Pelena, 03.05.2017 в 07:03, в сообщении № 8 ()

Поделиться не хотите?

Елена всё тут

Ответить

rotten41

Дата: Четверг, 04.05.2017, 23:22 | Сообщение № 10

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 163

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Pelena, работающий макрос выглядит так.

[vba]

Код

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Sub Play1()
Call mciExecute("play C:\555\2.mp3"" repeat")
End Sub

[/vba]

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проигрывание файла MP3 (в текущем макросе) (Макросы/Sub)

Страница 1 из 1
1