Проигрывание музального файла, находящегося внутри экселевского файла

@sku144 · Регистрация: 15.01.2015

Студворк — интернет-сервис помощи студентам

Я видел тему "Как воспроизвести .mp3 файл на Visual Basic 6.0? - Visual Basic" и нашел там два замечательных способа вызова музыкального файла

- с помощью плеера: CreateObject("WScript.Shell").Run "C:\1.wav"
- без помощи плеера: Call mciExecute("play C:\1.wav")

Оба способа хороши, но требуют путь до песни. А я тут подумал - нельзя ли свой звуковой файл запихнуть в xls(m) файл, и вызывать его оттуда? Такая штука запросто срабатывала с картинками, которые засовывались в xlsm-файл, и затем нехитрым кодом в xml-ке подгружались на Ribbon.

@БлагоЯр · 13.02.2018, 08:51

Сообщение от Hugo121

Копируете код как есть в посте в стандартный модуль файла, выполняете сперва загрузку wav на лист, затем когда нужно - проигрывание с листа

Ни фига не понял.
То бишь в Excel активировать в ленте "Разработчик", потом перейти в "Макросы" или "Visual Basic", убрать всё, что подставил Excel, вставить код. Правильно ли я понял?
Дальше - что значит выполнить загрузку wav на лист?!
Затем - что значит когда нужно - проигрывание с листа? Я так понимаю на этот вопрос ответ вытечет из предыдущего.

@Hugo121 · 13.02.2018, 09:40

Сообщение от БлагоЯр

убрать всё, что подставил Excel

- теперь я не понял

Я ничего не убирал, я добавлял - модуль (insert module), в него код (copy-paste).
Что значит загрузить - вот именно это и значит. Там ведь ясно написано:

Сообщение от Димит

сначала загрузите файл wav (до 2.6мб) File_W_Cel, потом проиграйте Play_Iz_Cell

тут и ответ на третий вопрос.

@БлагоЯр · 13.02.2018, 09:58

Сообщение от Hugo121

- теперь я не понял
Я ничего не убирал, я добавлял - модуль (insert module), в него код (copy-paste).
Что значит загрузить - вот именно это и значит. Там ведь ясно написано:

Я нажимаю "Макрос", Excel у меня запрашивает имя, я задаю к примеру "PlaySound", нажимаю "Создать", меня перекидывает в окно редактора и ... (см. прикреплённое изображение)

Сообщение от Hugo121

сначала загрузите файл wav (до 2.6мб) File_W_Cel, потом проиграйте Play_Iz_Cell
тут и ответ на третий вопрос.

Написано то понятно, только непонятно как? Загрузите ... С интернета что ли грузить?
Потом проиграйте Play_Iz_Cell ... Может я неправильно понял код, но мне к примеру нужно, чтобы я нажал на что-то (гиперссылку/объект/и т.д.) и у меня прямо в Excel проиграло нужный мне звук. А здесь непонятно, каким образом вставлять, на что нажимать и т.д.
Как это (Play_Iz_Cell) проиграть? Это же не кнопка, не видимое что-то. Как?

@Hugo121 · 13.02.2018, 10:09

Вот в этот модуль вместо того, что там сейчас Вы написали - копируете код из форума. Ну или просто копируете его выше.
Затем точно так же, как собирались выполнять свой PlaySound, выполняете сперва File_W_Cel, там в процессе выбираете свой звук, который хотите загрузить в Эксель на лист.
Затем, когда нужно его проиграть - так же выполняете Play_Iz_Cell.
Самое простое - выбрать макрос по Alt+F8, или прямо из окна редактора.
Ну а если просто хотели проиграть гиперссылку/объект - то никакого кода не нужно.

@БлагоЯр · 13.02.2018, 19:10

Сообщение от Hugo121

вместо того, что там сейчас Вы написали

Это не я, ну да не суть ...

Сообщение от Hugo121

выполняете сперва File_W_Cel, там в процессе выбираете свой звук

То бишь насколько я понял, он может проиграть только один звук?

У меня задача - в лист будет добавляться в строку дата, ФИО и звуковой файл и таких строк будет много, поэтому мне нужно, чтобы я нажал на строку со звуком и он проигрался.

@Hugo121 · 13.02.2018, 23:06

Сообщение от БлагоЯр

он может проиграть только один звук?

- а вам нужно одновременно сколько разных звуков проигрывать? А капелла...
Судя по коду - можно на лист столько файлов загрузить, сколько на листе строк. Но объём ограничен, и только wav - так пишет автор.
Т.е. в принципе можно сделать

Сообщение от БлагоЯр

и таких строк будет много, поэтому мне нужно, чтобы я нажал на строку со звуком и он проигрался

Добавлено через 13 минут
Но мне кажется что лучше подвязывать внешние звуковые файлы. Тогда можно не упираться в wav, да и в целом ограничений меньше.

@БлагоЯр · 14.02.2018, 05:04

Сообщение от Hugo121

- а вам нужно одновременно сколько разных звуков проигрывать? А капелла...

Капелла не подойдёт, нужен хор мальчиков-зайчиков

Мне нужен один проигрываемый, после нажатия на другой нужен - первый заглох, второй проигрывается и т.д.

Сообщение от Hugo121

Судя по коду - можно на лист столько файлов загрузить, сколько на листе строк. Но объём ограничен, и только wav - так пишет автор.

Вот так мне и нужно, объём будет не большим.

Сообщение от Hugo121

Но мне кажется что лучше подвязывать внешние звуковые файлы. Тогда можно не упираться в wav, да и в целом ограничений меньше.

Не, нужно внедрение в файл Excel-я и вот здесь я не понимаю как ...

@Hugo121 · 14.02.2018, 09:30

Первым делом наладьте чтоб работало то, что есть. Если заиграет - можно дописывать код, чтоб писал звук не только во вторую строку, а в ту, которая нужна для конкретной ФИО, и чтоб можно было вызывать для конкретной ФИО

Добавлено через 43 секунды

Сообщение от БлагоЯр

и вот здесь я не понимаю как

- прочитайте всё ещё раз, всё ведь выше описано до мелочей.

@БлагоЯр · 18.02.2018, 15:18

Сообщение от Hugo121

прочитайте всё ещё раз, всё ведь выше описано до мелочей.

Да ну где ж эти мелочи ...
Написано, всего, лишь ...

Сообщение от Димит

сначала загрузите файл wav (до 2.6мб) File_W_Cel

Куда и как - эта мелочь не описана.

Сообщение от Димит

потом проиграйте Play_Iz_Cell

Эта (понятно, что она вытекает из предыдущей, но ...) мелочь - тоже не описана.

Сообщение от Димит

Не исправил объявление функции API для совместимости, надеюсь сами сделаете

А здесь уже и не мелочь и тоже не описана.

И всё. И где же эти мелочи?

@Hugo121 · 18.02.2018, 16:54

По загрузке - написано какой макрос выполнить, далее азы владения компьютером.
По проигрыванию - написано какой макрос выполнить, далее даже азы знать не нужно. Ну разве что нужно суметь включить колонки/наушники.
Про АПИ - у Вас какой офис? Мне это не нужно, я и проверить не смогу, поэтому не берусь исправлять.

Новые блоги и статьи Все статьи Все блоги /
Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .

@sku144 195 / 17 / 2 Регистрация: 15.01.2015 Сообщений: 190

	Проигрывание музального файла, находящегося внутри экселевского файла 01.09.2015, 02:07. Показов 15045. Ответов 29 Метки нет (Все метки) Я видел тему "Как воспроизвести .mp3 файл на Visual Basic 6.0? - Visual Basic" и нашел там два замечательных способа вызова музыкального файла - с помощью плеера: CreateObject("WScript.Shell").Run "C:\1.wav" - без помощи плеера: Call mciExecute("play C:\1.wav") Оба способа хороши, но требуют путь до песни. А я тут подумал - нельзя ли свой звуковой файл запихнуть в xls(m) файл, и вызывать его оттуда? Такая штука запросто срабатывала с картинками, которые засовывались в xlsm-файл, и затем нехитрым кодом в xml-ке подгружались на Ribbon. 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	13.02.2018, 10:09
	Вот в этот модуль вместо того, что там сейчас Вы написали - копируете код из форума. Ну или просто копируете его выше. Затем точно так же, как собирались выполнять свой PlaySound, выполняете сперва File_W_Cel, там в процессе выбираете свой звук, который хотите загрузить в Эксель на лист. Затем, когда нужно его проиграть - так же выполняете Play_Iz_Cell. Самое простое - выбрать макрос по Alt+F8, или прямо из окна редактора. Ну а если просто хотели проиграть гиперссылку/объект - то никакого кода не нужно. 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	18.02.2018, 16:54
	По загрузке - написано какой макрос выполнить, далее азы владения компьютером. По проигрыванию - написано какой макрос выполнить, далее даже азы знать не нужно. Ну разве что нужно суметь включить колонки/наушники. Про АПИ - у Вас какой офис? Мне это не нужно, я и проверить не смогу, поэтому не берусь исправлять. 0