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
