Excel之语音说话 vba代码 Sub test() With Application.Speech .Speak [A1].Value .Speak [A2].Value .Speak [A3].Value .Speak [A4].Value End With End Sub