Wa'alaikumussalam wr wb
mas Nang,
Di-loop saja gimana ?
Misal nama-nama filenya di A1:A3
dim rng as range
for each rng in sheets("nama sheet").range("a1:a3")
fungsiplaysoundnya rng.value,0 'kalau pakai winmm.dll
dengan 2 parameter
next rng
Tapi, proses akan ter-freeze.
Coba cari script yang pakai parameter SND_MEMORY, jadi semua file di load
ke memory dulu baru dimainkan, jadi bisa pakai async yang membuat proses
berjalan terus sambi memainkan sound.
Atau pakai winapi mcisendstring. Cuma nanti rada ribet memahami
callback-nya.
Opsi lainnya, pakai control mmcontrol.
Wassalamu'alaikum wr wb
Kid
2016-06-27 15:43 GMT+07:00 Nang Agus [email protected] [belajar-excel] <
[email protected]>:
>
>
> Asalamualaikum warahmatullah,
>
> Dear member B-Excel.
> saya akan memutar beberapa file mp3 atau wav secara berurutan menggunakan
> excel, namun tidak bisa.
>
> saya cari di google hanya bisa memutar sebuah file dengan cekrip:
> Option Explicit
> Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA"
> (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
> Public Const SND_SYNC = &H0
> Public Const SND_ASYNC = &H1
> Public Const SND_NODEFAULT = &H2
> Public Const SND_MEMORY = &H4
> Public Const SND_LOOP = &H8
> Public Const SND_NOSTOP = &H10
>
> Dim sndfile As String
> Dim wFlags As Double
> Dim PlayIt
>
> Sub WAVPlay(File)
> Dim SoundName As String
> SoundName = File
> wFlags = SND_ASYNC Or SND_NODEFAULT
> PlayIt = sndPlaySound(SoundName, wFlags)
> End Sub
>
> Sub Setel()
>
> PlayIt = sndPlaySound("E:\satu.wav", SND_ASYNC)
>
> End Sub
>
> manakah yang perlu mendapat perbaikan agar dapat memutar banyak file?
> Terimakasih
> Wasalamualaikum warahmatullah
>
>
>
