标题: 让Excel说话！ [打印本页]

---

作者: 月上西楼    时间: 2007-8-25 12:01     标题: 让Excel说话！

　　现在工资、财务管理，甚至工业控制中的很多数据报表都是利用Excel生成的。对于一个要反复利用的Excel表格，如果表格中的某些数据出现了异常，我们能够让Excel发出语音提示，岂不是更方便。尤其是在工业控制中，利用这种方法便可以做成语音报警。下面就以我在工业控制中做的语音报警程序为例，介绍一下如何在Excel报表中使用语音提示。

　　首先录制编辑好各种情况下的语音报警文件，保存到硬盘中。其次是打开所要使用的Excel报表，在Excel菜单中打开［工具］→［宏］、［Visual Basic编辑器］，再在Visual Basic编辑器中插入“模块”，并在该模块中插入下列代码：

　　Option Explicit

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

　　再在Workbook的BeforeSave事件中（根据需要也可以选用其他事件）加入下列用VBA编写的宏代码：

　　With Sheet1

　　If .Range("A2").Value 〉 2 Or .Range("A2").Value 〈 -2 Then

　　'判断A2单元格内的数据是否大于2或小于负2

　　x% = sndPlaySound("C:\语音\语音01.wav", uFlags%)

　　'播放语音文件“C:\语音\语音01.wav”

　　End If

　　If .Range("B2").Value 〉 2 Or .Range("B2").Value 〈 -2 Then

　　'判断B2单元格内的数据是否大于2或小于负2

　　x% = sndPlaySound("C:\语音\语音02.wav", uFlags%)

　　'播放语音文件“C:\语音\语音02.wav”

　　End If

　　End With

　　依此类推，利用这种方法可以对Excel表格某些单元格中的重要数据进行监控，且实现语音提示。?

---

欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/)

Powered by Discuz! 6.0.0