Репродукција ВАВ датотека помоћу ВБА у програму Мицрософт Екцел

Anonim

Лако је репродуковати звучне датотеке у ВАВ формату. Потребно је само да знате назив датотеке звука који желите да пустите,
и одлучите да ли желите да макро сачека док се звук репродукује или не. Ево примера:

Јавно објави функцију сндПлаиСоунд Либ "винмм.длл" _ Алиас "сндПлаиСоундА" (БиВал лпсзСоундНаме Ас Стринг, _ БиВал уФлагс Ас Лонг) Ас Лонг Суб ПлаиВавФиле (ВавФилеНаме Ас Стринг, Ваит Ас Боолеан) Иф Дир (ВавФилеНа тхен) Под "нема датотеке за репродукцију Ако чекате онда" репродукујте звук пре него што покренете било који други код сндПлаиСоунд ВавФилеНаме, 0 Иначе "репродукујте звук док је код покренут сндПлаиСоунд ВавФилеНаме, 1 Енд Иф Енд Суб Суб ТестПлаиВавФиле () ПлаиВавФиле" ц: \ фолдернаме \ соундфиленаме. вав ", Фалсе МсгБок" Ово је видљиво док се звук репродукује … "ПлаиВавФиле" ц: \ фолдернаме \ соундфиленаме.вав ", Труе МсгБок" Ово је видљиво након што се звук заврши … "Енд Суб