[發問] 怎樣使excel 說出wav

自我感覺良好

真害～excel用64位元這些都無效了
excel 32還可以用…

Option Explicit

'API Class to take care of playing the file
Public Declare Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
                        ByVal uFlags As Long) As Long

自我感覺良好

回復 6# c_c_lai
真的是救苦救難的菩薩，太感謝了～
我想都沒有還可以32和64都可用的，這一招。
太完美了

c_c_lai

回復 3# 自我感覺良好
如果同時要在 32 / 64 位元下均能執行，請修改成：
#If VBA7 Then
    'API Class to take care of playing the file
    Public Declare PtrSafe Function sndPlaySound32 Lib "winmm.dll" _
    Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
                        ByVal uFlags As Long) As Long
#Else
    Public Declare Function sndPlaySound32 Lib "winmm.dll" _
    Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
                        ByVal uFlags As Long) As Long
#End If

c_c_lai

回復 1# 自我感覺良好
'API Class to take care of playing the file
Public Declare Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
                        ByVal uFlags As Long) As Long
'  修改成如下便可以了 ( PtrSafe )
'  API Class to take care of playing the file
Public Declare PtrSafe Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
                        ByVal uFlags As Long) As Long

自我感覺良好

我想要我的excel要像它一樣…會講話
https://youtu.be/17Wvun4onuY

自我感覺良好

32的excel可以用.rar (601.2 KB)

下載次數: 12

2017-12-11 11:08

附上檔案，拿到64位元就不能用了…

自我感覺良好

2012年曾經討論過，不過到了64位的excel全都失效了
http://forum.twbts.com/viewthrea ... ntable&tid=7013