如何在Excel中播放多个WAV文件在VBA中同时异步循环

Sub PlayMultipleWAVFiles()
    Dim filePaths() As String
    Dim i As Integer
    
    ' 定义要播放的WAV文件路径
    filePaths = Array("C:\path\to\file1.wav", "C:\path\to\file2.wav", "C:\path\to\file3.wav")
    
    ' 循环播放每个WAV文件
    For i = LBound(filePaths) To UBound(filePaths)
        PlayWAVFileAsync filePaths(i)
    Next i
End Sub

Sub PlayWAVFileAsync(filePath As String)
    Dim soundObject As Object
    
    ' 创建一个新的声音对象
    Set soundObject = CreateObject("SAPI.SpVoice")
    
    ' 设置异步播放模式
    soundObject.SynchronousSpeakTimeout = 0
    
    ' 播放WAV文件
    soundObject.Speak filePath, 1
End Sub