Question

vba怎样将音频文件先读入内存，然后再播放内存中的文件？

Answer 1

Option ExplicitPublic Declare Function sndPlaySound32 _ Lib "winmm.dll" _ Alias "sndPlaySoundA" ( _ ByVal lpszSoundName As String, _ ByVal uFlags As Long) As LongSub PlayTheSound(ByVal WhatSound As String)
If Dir(WhatSound, vbNormal) = "" Then
' WhatSound is not a file. Get the file named by
' WhatSound from the Windows\Media directory.
WhatSound = Environ("SystemRoot") & "\Media\" & WhatSound If InStr(1, WhatSound, ".") = 0 Then
' if WhatSound does not have a .wav extension,
' add one.
WhatSound = WhatSound & ".wav"
End If
If Dir(WhatSound, vbNormal) = vbNullString Then
Beep ' Can't find the file. Do a simple Beep.
Exit Sub
End If
Else
' WhatSound is a file. Use it.
End If

sndPlaySound32 WhatSound, 0&
End Sub

追问

因为要反复的播放这个提示音，所以希望先将文件读到内存中。这个每次调用都是要读硬盘的吧？

Answer 2

如果你的OK.wav只是读文字的话，可以试一下Excel的语音。
Sub speak_ok()
Application.Speech.Speak ("OK")
End Sub