Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Проигрывание файла MP3 (в текущем макросе) - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проигрывание файла MP3 (в текущем макросе) (Макросы/Sub)
Проигрывание файла MP3 (в текущем макросе)
rotten41 Дата: Вторник, 02.05.2017, 00:18 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 101
Репутация: 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(36Kb)
 
Ответить
СообщениеЗдравствуйте, гуру экселя.
Прошу помочь с решением непростой проблемы.

У меня есть макрос - проигрывающий 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]

Автор - rotten41
Дата добавления - 02.05.2017 в 00:18
KuklP Дата: Вторник, 02.05.2017, 07:52 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2112
Репутация: 453 ±
Замечаний: 0% ±



Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеКросс:
http://www.planetaexcel.ru/forum....ivaniem

Автор - KuklP
Дата добавления - 02.05.2017 в 07:52
rotten41 Дата: Вторник, 02.05.2017, 09:01 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 101
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013


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

Автор - rotten41
Дата добавления - 02.05.2017 в 09:01
RAN Дата: Вторник, 02.05.2017, 19:55 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4419
Репутация: 872 ±
Замечаний: 0% ±

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

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


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Видимо не знают ответа на вопрос.

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

Автор - RAN
Дата добавления - 02.05.2017 в 19:55
KuklP Дата: Вторник, 02.05.2017, 20:25 | Сообщение № 5
Группа: Проверенные
Ранг: Старожил
Сообщений: 2112
Репутация: 453 ±
Замечаний: 0% ±

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


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение
мне там ничего толкового не ответили
я щас расплачусь. Ссылки на кроспосты должны давать Вы, а не форумчане. Читайте правила здесь п5.s и там п4.1.

Автор - KuklP
Дата добавления - 02.05.2017 в 20:25
buchlotnik Дата: Вторник, 02.05.2017, 20:30 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2627
Репутация: 750 ±
Замечаний: 0% ±

2010, 2013, 2016 RUS / ENG
[offtop]
Цитата
мне там ничего толкового не ответили
и те же люди на другом форуме вдруг станут толковее...


платная помощь:
ЯД: 410012595572239; WM: 311017577133
buchlotnik@mail.ru
 
Ответить
Сообщение[offtop]
Цитата
мне там ничего толкового не ответили
и те же люди на другом форуме вдруг станут толковее...

Автор - buchlotnik
Дата добавления - 02.05.2017 в 20:30
rotten41 Дата: Вторник, 02.05.2017, 23:23 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 101
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Снимаю вопрос - решение найдено.
 
Ответить
СообщениеСнимаю вопрос - решение найдено.

Автор - rotten41
Дата добавления - 02.05.2017 в 23:23
Pelena Дата: Среда, 03.05.2017, 07:03 | Сообщение № 8
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11028
Репутация: 2462 ±
Замечаний: 0% ±

Excel 2010 & Mac Excel 2011
решение найдено

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


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение
решение найдено

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

Автор - Pelena
Дата добавления - 03.05.2017 в 07:03
gge29 Дата: Среда, 03.05.2017, 19:05 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 163
Репутация: 3 ±
Замечаний: 0% ±

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

Елена всё тут
 
Ответить
Сообщение
Поделиться не хотите?

Елена всё тут

Автор - gge29
Дата добавления - 03.05.2017 в 19:05
rotten41 Дата: Четверг, 04.05.2017, 23:22 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 101
Репутация: 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]
 
Ответить
Сообщение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]

Автор - rotten41
Дата добавления - 04.05.2017 в 23:22
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проигрывание файла MP3 (в текущем макросе) (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!