Здравствуйте.
При запуске файла - проигрывается звук из файла *.mp3 (адрес которого указан в ячейке AO1)
Но когда в ячейке AO1 записан файл с расширением *.mp4 - то звук уже не воспроизводится, вместо этого выводится ошибка:
"Ошибка при инициализации MCI. Указанное устройство не открыто или не опознается интерфейсом MCI"
Как сделать так, чтобы макрос при открытии проигрывал звук из файлов *.mp4 тоже ?
Файл огромный, приложить его сюда не могу.
Макрос на текущий момент выглядит так:
При запуске файла - проигрывается звук из файла *.mp3 (адрес которого указан в ячейке AO1)
Но когда в ячейке AO1 записан файл с расширением *.mp4 - то звук уже не воспроизводится, вместо этого выводится ошибка:
"Ошибка при инициализации MCI. Указанное устройство не открыто или не опознается интерфейсом MCI"
Как сделать так, чтобы макрос при открытии проигрывал звук из файлов *.mp4 тоже ?
Файл огромный, приложить его сюда не могу.
Макрос на текущий момент выглядит так:
Код |
---|
#If VBA7 Then Private Declare PtrSafe Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long Private Declare PtrSafe Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long #Else Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long #End If Sub Play1() Call mciExecute("open " + Chr$(34) + Range("AO1") + Chr$(34) + " alias _mysound_") Call mciExecute("play _mysound_") 'Call mciExecute("play _mysound_ repeat") End Sub Sub Stop1() Call mciExecute("close _mysound_") End Sub |
Если люди не научатся помогать друг другу, то род человеческий исчезнет с лица земли.
Вальтер Скотт
Вальтер Скотт