Excel VBA播放MP3流求助（无需安装法语语言包）

一、无需Windows法语语言包：VBA结合TTS API播放音频 #

sndPlaySound32不支持直接播放网络音频流，需先将音频下载到本地临时文件再播放。以下是完整实现代码：

核心代码 #

Option Explicit

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Const SND_FILENAME = &H20000
Private Const SND_ASYNC = &H1

Sub PlayFrenchAudio()
    Dim cellText As String
    Dim tempPath As String
    Dim xmlHttp As Object
    Dim audioData As Byte()
    
    cellText = Trim(Selection.Value)
    If cellText = "" Then Exit Sub
    
    tempPath = Environ("TEMP") & "\french_tts_temp.wav"
    
    ' 调用免费法语TTS API（替换为可用的API地址，要求返回WAV格式音频）
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
    xmlHttp.Open "GET", "https://your-tts-api-url?lang=fr&text=" & URLEncode(cellText), False
    xmlHttp.send
    
    If xmlHttp.Status = 200 Then
        audioData = xmlHttp.responseBody
        Open tempPath For Binary As #1
        Put #1, , audioData
        Close #1
        
        sndPlaySound tempPath, SND_FILENAME Or SND_ASYNC
        Application.OnTime Now + TimeValue("00:00:02"), "CleanTempAudio"
    End If
    
    Set xmlHttp = Nothing
End Sub

Sub CleanTempAudio()
    Dim tempPath As String
    tempPath = Environ("TEMP") & "\french_tts_temp.wav"
    If Dir(tempPath) <> "" Then Kill tempPath
End Sub

Function URLEncode(ByVal strText As String) As String
    Dim encoder As Object
    Set encoder = CreateObject("System.Web.HttpUtility")
    URLEncode = encoder.UrlEncode(strText)
    Set encoder = Nothing
End Function

添加点击触发 #

右键目标工作表标签→查看代码，粘贴以下代码实现点击指定列（示例为A列）触发播放：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 And Target.Cells.Count = 1 Then
        PlayFrenchAudio
    End If
End Sub

二、利用已安装的法语语音包解决Excel语言设置问题 #

Excel默认不会自动识别单元格语言，需手动设置后调用Office内置TTS：

1. 设置单元格法语语言 #

• 选中目标单元格/区域
• 点击审阅→语言→设置校对语言
• 选择法语（法国），取消勾选「自动检测语言」，点击确定

2. 内置TTS播放代码 #

Sub PlayBuiltInFrenchVoice()
    Dim cellText As String
    Dim speech As Object
    
    cellText = Trim(Selection.Value)
    If cellText = "" Then Exit Sub
    
    ' 验证单元格语言是否为法语（1036为法语(法国)的语言ID）
    If Selection.LanguageID <> 1036 Then
        MsgBox "请先将单元格语言设置为法语"
        Exit Sub
    End If
    
    Set speech = CreateObject("SAPI.SpVoice")
    ' 切换到法语语音
    Dim voice As Object
    For Each voice In speech.GetVoices
        If InStr(voice.GetDescription, "French") > 0 Then
            Set speech.Voice = voice
            Exit For
        End If
    Next voice
    
    speech.Speak cellText
    Set speech = Nothing
End Sub

同样可通过工作表点击事件绑定此宏，实现点击播放。

内容的提问来源于stack exchange，提问作者Stephan