Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.02.2011, 00:14   #11
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

А такая строка сработает? Попробуйте
Код:
Sub tt()
CreateObject("MediaPlayer.MediaPlayer.1").Open "C:\Windows\Media\Tada.wav"
End Sub
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Старый 27.02.2011, 01:01   #12
doober
Старожил
 
Аватар для doober
 
Регистрация: 02.05.2009
Сообщений: 3,907
По умолчанию

вы посмотрите .что записано в реестре
Возможно другаф версия,у меня запись MediaPlayer.MediaPlayer.1

Если у вас например MediaPlayer.MediaPlayer.2 то тогда CreateObject("MediaPlayer.MediaPlay er.2")

ссылку добавлять не надо,без нее прекрасно работает

Анализ,обработка данных Недорого
doober вне форума Ответить с цитированием
Старый 27.02.2011, 13:34   #13
Blondinka86
 
Регистрация: 16.01.2011
Сообщений: 7
По умолчанию

Цитата:
А такая строка сработает? Попробуйте
Код:
Sub tt()
CreateObject("MediaPlayer.MediaPlayer.1").Open "C:\Windows\Media\Tada.wav"
End Sub
Так тоже не работает
В реестре все, как надо MediaPlayer.MediaPlayer.1
Попробовала переписать код в VisualStudio - работает. В Excel ошибка.
Придется, видимо, забить на Excel и сделать самостоятельное приложение
Blondinka86 вне форума Ответить с цитированием
Старый 27.02.2011, 14:00   #14
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Цитата:
Так тоже не работает
Значит что-то с Excel-м.
Это стандартная строка вызова. Все должно работать.
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
MediaPlayer VasyaStyle Мультимедиа в Delphi 10 24.05.2010 17:03
mediaplayer Erick Cartman Мультимедиа в Delphi 1 25.03.2010 14:56
MediaPlayer Константин_1701 Мультимедиа в Delphi 1 06.07.2009 21:35
Mediaplayer RealSHELS Общие вопросы Delphi 3 12.05.2008 16:44
MediaPlayer KORT Компоненты Delphi 15 17.07.2007 14:51